<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Response.Buffer = "True" Service = trim(Request("radService")) eFrom = trim(Request("EmirateFrom")) eTo = trim(Request("EmirateTo")) 'Response.Write(Service) 'Response.Write(eFrom) 'Response.Write(eTo) Set Con = Server.CreateObject("ADODB.Connection") set rs = Server.CreateObject("ADODB.Recordset") Con.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Association.mdb") rs.CursorType=adOpenDynamic strSQL ="Select * from RegDetails where OwnCar='" & Service & "' and EmirateFrom='" & eFrom & "' and EmirateTo='" & eTo & "'" rs.Open strSQL, Con %>
<% if rs.eof then Response.Redirect "http://www.igc-me.com/ideal/SearchFailed.htm" else Session("Username") = trim(rs("UserName")) Session("strSQL") = trim(strSQL) %>
<% While not rs.eof %> <% rs.movenext wend %>
Name
Gender
Nationality
Mobile
E Mail
From
To
Timings
<% =rs.fields(1) %>
<% =rs.fields(3) %>
<% =rs.fields(6) %>
<% =rs.fields(8) %>
<% =rs.fields(9) %> <% =rs.fields(12) %> <% =rs.fields(13) %>
<% =rs.fields(18) %> - <% =rs.fields(19) %>

<% end if rs.close Con.close Set rs = Nothing Set Con = Nothing %>