<%SUB userEdit()%> <% DIM objConn DIM objRS DIM strSQL DIM pid pid = Request.QueryString("sid") SET objConn = Server.CreateObject("ADODB.Connection") objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../users/btlsa.mdb") strSQL = "SELECT bmsUsername,bmsPassword,bmsFirstName,bmsSurname," & _ "bmsAddress1,bmsAddress2,bmsAddress3,bmsAddress4,bmsTelephone," & _ "bmsCellphone,bmsEmailAddress,bmsFacsimile FROM bmsWebUsers " & _ "WHERE id_bmsUsers = " & pid & ";" SET objRS = Server.CreateObject("ADODB.RecordSet") objRS.Open strSQL,objConn %>

<% objRS.Close Set objRS = Nothing objConn.Close Set objConn = Nothing %> Detail for: <%=objRS("bmsFirstName")%> <%=objRS("bmsSurname")%>. username: "> password: "> first name: "> surname: "> Cellphone: "> Telephone: "> address: "> email address: "> "> "> ">

<%END SUB%>