<%@Language=VBScript%> <%SET cn = Server.CreateObject("ADODB.Connection") SET rs = Server.CreateObject("ADODB.Recordset") SET cn1 = Server.CreateObject("ADODB.Connection") SET rs1 = Server.CreateObject("ADODB.Recordset") SET cn2 = Server.CreateObject("ADODB.Connection") SET rs2 = Server.CreateObject("ADODB.Recordset") DSNtemp="Provider=SQLOLEDB;DATA SOURCE=203.197.197.130;UID=travelm_travelmasti;PWD=master231;DATABASE=travelm_travelmasti" 'DSNtemp="fileDSN=ehotelskerala.dsn" %> <%cn.Open DSNtemp rs.Open "Select distinct p.packname from pack p, packinclud pin where p.city = '" & Replace(Request.QueryString("city"),"'","''") & "' and p.hotel = '" & Replace(Request.QueryString("hotel"),"'","''") & "' and pin.city = '" & Replace(Request.QueryString("city"),"'","''") & "' and pin.hotel = '" & Replace(Request.QueryString("hotel"),"'","''") & "'",cn if rs.EOF or rs.BOF then else %> <%do while not rs.EOF %> <%cn1.Open DSNtemp rs1.Open "Select distinct p.validity from pack p, packinclud pin where p.city = '" & Replace(Request.QueryString("city"),"'","''") & "' and p.hotel = '" & Replace(Request.QueryString("hotel"),"'","''") & "' and p.packname = '" & Replace(RS("packname"),"'","''") & "' and pin.city = '" & Replace(Request.QueryString("city"),"'","''") & "' and pin.hotel = '" & Replace(Request.QueryString("hotel"),"'","''") & "' and pin.packname = '" & Replace(RS("packname"),"'","''") & "'",cn1 if rs1.EOF or rs1.BOF then else do while not rs1.EOF %> <%rs1.MoveNext loop end if rs1.Close cn1.Close %> <%cn1.Open DSNtemp rs1.Open "Select distinct pin.packnotes from pack p, packnotes pin where p.city = '" & Replace(Request.QueryString("city"),"'","''") & "' and p.hotel = '" & Replace(Request.QueryString("hotel"),"'","''") & "' and p.packname = '" & Replace(RS("packname"),"'","''") & "' and pin.city = '" & Replace(Request.QueryString("city"),"'","''") & "' and pin.hotel = '" & Replace(Request.QueryString("hotel"),"'","''") & "' and pin.packname = '" & Replace(RS("packname"),"'","''") & "'",cn1 if rs1.EOF or rs1.BOF then else %> <%end if rs1.Close cn1.Close %> <% rs.MoveNext loop end if RS.Close cn.Close%>

<%=Replace(RS("packname"),"'","''")%>

Validity (<%=RS1("validity")%>)

<%cn2.Open DSNtemp rs2.Open "Select distinct p.packtype, p.packcost from pack p, packinclud pin where p.city = '" & Replace(Request.QueryString("city"),"'","''") & "' and p.hotel = '" & Replace(Request.QueryString("hotel"),"'","''") & "' and p.packname = '" & Replace(RS("packname"),"'","''") & "' and pin.city = '" & Replace(Request.QueryString("city"),"'","''") & "' and pin.hotel = '" & Replace(Request.QueryString("hotel"),"'","''") & "' and pin.packname = '" & Replace(RS("packname"),"'","''") & "' and validity='" & RS1("validity") & "'",cn1 if rs2.EOF or rs2.BOF then else do while not rs2.EOF %> <%rs2.MoveNext loop end if rs2.Close cn2.Close %> Package Type Package Cost <%=RS2("packtype")%> <%=RS2("packcost")%>

Package Includes

<%cn1.Open DSNtemp rs1.Open "Select packinclud from packinclud where city = '" & Replace(Request.QueryString("city"),"'","''") & "' and hotel = '" & Replace(Request.QueryString("hotel"),"'","''") & "' and packname = '" & Replace(RS("packname"),"'","''") & "'",cn1 if rs1.EOF or rs1.BOF then else do while not rs1.EOF if Replace(RS1("packinclud"),"'","''")<>"" then %> <%end if rs1.MoveNext loop end if RS1.Close cn1.Close%> <%=Replace(RS1("packinclud"),"'","''")%>

Notes:

<%=RS1("packnotes")%>

<%cn1.Open DSNtemp rs1.Open "Select distinct p.packtype from pack p, packinclud pin where p.city = '" & Replace(Request.QueryString("city"),"'","''") & "' and p.hotel = '" & Replace(Request.QueryString("hotel"),"'","''") & "' and p.packname = '" & Replace(RS("packname"),"'","''") & "' and pin.city = '" & Replace(Request.QueryString("city"),"'","''") & "' and pin.hotel = '" & Replace(Request.QueryString("hotel"),"'","''") & "' and pin.packname = '" & Replace(RS("packname"),"'","''") & "'",cn1 if rs1.EOF or rs1.BOF then else do while not rs1.EOF %> " selected><%=RS1("packtype")%> <% rs1.MoveNext loop end if RS1.Close cn1.Close%> "> "> "> ">