% '---- CursorTypeEnum Values ---- Const adOpenForwardOnly = 0 Const adOpenKeyset = 1 Const adOpenDynamic = 2 Const adOpenStatic = 3 '---- LockTypeEnum Values ---- Const adLockReadOnly = 1 Const adLockPessimistic = 2 Const adLockOptimistic = 3 Const adLockBatchOptimistic = 4 On Error Resume Next MyName = Request("NAME") MyID = Request("ID") If MyID <> "" Then sql = "SELECT * FROM tblMembers WHERE ID=" & MyID Set Conn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.RecordSet") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" + Server.MapPath("./access_db/the-jobs-site.mdb") rs.Open sql, Conn, adOpenKeyset,adLockReadOnly If Not rs.EOF Then myHow = rs("Hear") myRecruiter = rs("Recruiter") myContact = rs("Name") myCompany = rs("Company") myCountry = rs("Country") myEmail = rs("Email") End If rs.Close Set rs = Nothing Conn.Close Set Conn = Nothing End If %>
| ||||||||||||||||||||