<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% 'ASP file written by Adel Barazandeh Nia 'Copyright 2004 Sam Arts Internet Developers Option Explicit Response.Buffer = True On Error Resume Next %> <% '----------- Test If Others Is Selected -------------- IF request.Form("rdhotelid") = "Other" Then Session("Bussiness_Hotel") = request.Form("fldhotelname") Response.Redirect("reserve_p3.asp") End IF %> <% '----- Check Form Fields IF request.Form("rdhotelid") = "false" Then Session("Error") = Session("Error") & "

" & "Please select your hotel name from the list or if you stay in another hotel, please provide the hotel name" Response.Redirect("reserve_p3_hotel.asp") End IF %> <% Dim SpecialHotelID, AdultNo, ChildNo, OtherHotel, SpecialHotelName, strConn, conn, sql, rs '------- Opening the connection ----------------------------- Set conn = Server.CreateObject("ADODB.Connection") conn.ConnectionString = strConn conn.Open '------- Getting Form Fields ------------------------- sql = "SELECT * FROM Airports WHERE (((ID)=" & Session("state") & "));" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, adOpenForwardOnly, adLockReadOnly session("AirPortFullName") = rs("AirPort_Full_Name") session("AirPortPrice") = rs("Price_Per_One") Session("Table") = rs("AirPort") rs.close Set rs = Nothing conn.Close Set conn = Nothing %> <% '-------------- Fetchin Data From Hotels.asp ----------- SpecialHotelID = int(request.Form("rdhotelid")) AdultNo = Cint(Session("passengers1")) IF Session("child") <> "" Then ChildNo = Cint(Session("child")) Else ChildNo = 0 End IF OtherHotel= request.Form("fldhotelname") %> <% '------- Opening the connection ----------------------------- Set conn = Server.CreateObject("ADODB.Connection") conn.ConnectionString = strConn conn.Open sql = "SELECT Hotels.*, JW.*, Hotels.HotelID FROM JW LEFT JOIN Hotels ON JW.ID = Hotels.CityID WHERE(((Hotels.HotelID)="& SpecialHotelID &"));" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, adOpenForwardOnly, adLockReadOnly '--------- Find Address --------------- Session("Bussiness_Hotel") = rs("Hotel1") SpecialHotelName = rs("Hotel1") Session("Address") = rs("Address1") %> <% '---------- Price Calculation ------- Dim Adultp, childp, PriceHotel, PriceTc, PriceTcR, Exclusive, ExclusiveRt Adultp = rs("H_Adult_Price") childp = rs("H_Child_Price") PriceHotel = (AdultNo * Adultp) + (ChildNo * childp) PriceTc = rs("tc") PriceTcR = rs("rt") Exclusive = rs("exec") ExclusiveRt = rs("ex_rt") IF (AdultNo + ChildNo) >= 8 Then Exclusive = Exclusive + 20 ExclusiveRt = ExclusiveRt + 40 End IF %>

<% IF Session("Target") = "toairport" Then %> Pick-up Location: <%=session("City")%>,Hotel Name: <%=SpecialHotelName%> Drop-off Location: <%= session("AirPortFullName") %> <% Else %> Pick-up Location: <%= session("AirPortFullName") %> Drop-off Location: <%=session("City")%>,Hotel Name: <%=SpecialHotelName%> <% End IF %>   Hotel Address: <%=Session("Address")%>   Number of Passengers- Adults: <%= Adultno %> / Children and Infants: <%= ChildNo %> <% IF AdultNo + ChildNo =< 9 Then %> <% End IF %>     Shared and private van fares do not   include drivers gratuity.                                 <% Response.Write(Session("Error")) Session("Error") = null %>

<% rs.close Set rs = Nothing conn.Close Set conn = Nothing %>