<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% dim con,Rs,i,page,Project dim strConnectString,q,time1 time1=Replace(Request.Form("time"),",","/") response.Write(time1) if Request("ID")<>"" then i=Request("ID") Else i=1 End if 'strConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Request.ServerVariables("APPL_PHYSICAL_PATH") & "database\bonnycmd.mdb;Persist Security Info=False" strConnectString = "DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ=" & Server.MapPath("database\bonnycmd.mdb") set con = server.createobject("ADODB.connection") con.open strConnectString Set Rs = Server.CreateObject("ADODB.Recordset") Set Project = Server.CreateObject("ADODB.Recordset") 'Rs.Open "SELECT * FROM CATAGORY_MASTER Where ID="&i&" ORDER BY ID",con Project.Open "SELECT * FROM PROJECT Where CAT_ID=2 ORDER BY ID",con %> Hormuzline - Tours&Cruise
Home | About Us   |  Services at Khasab  |  Hotel Accoomodation   |  Our Corporate Clients  |  Photogallery  |    Contact Us   |  Map

<% i=0 while not Project.EOF %>
<% i=i+1 if not Project.EOF then 'Project.MoveNext End if wend %>


  About Us   |  Services at Khasab  |  Hotel Accoomodation   |  Our Corporate Clients  |  Photogallery  |    Contact Us   |  Map