<%
idin=request.querystring("id")
'my connection and vars
dim conn, strMDBPath, strsql, strsql1, rs, rs1
set conn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
set rs1 = Server.CreateObject("ADODB.Recordset")
strMDBPath = "e:\domains\s\spconnor.co.uk\user\private\focus.mdb"
conn.open "PRoVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & strMDBPath
'open connection
'myDSN="DSN=focus"
'set conntemp=server.createobject("adodb.connection")
'conntemp.open myDSN
'start with an sql
' now I bring all the entries back fromthe db
strsql = "SELECT * FROM PEWDB where id = "& idin &" "
'response.Write ("" & strsql)
rs.open strsql,conn,1,2
'mystartdate = rs("startDate")
'mytruedate1 = cdate(mystartdate)
%>
management tool
