% Dim strSql set Conn = server.createobject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\database\NK-Database.mdb") Set rs = Server.CreateObject("ADODB.Recordset") Booking_ID=request.QueryString("Booking_ID") strSql="select * from Booking " rs.open strSql,Conn,1,3 Booking_ID=rs("Booking_ID") rs.close %>
Air Ticketing Booking : |