<%@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
