<%SUB ocnDetail()%> <% DIM objRS DIM strSQL DIM sid sid = Request.QueryString("sid") Set objRS = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT id_bmsUsers,bmsFirstName,bmsSurname," & _ "bmsAddress1,bmsAddress2,bmsAddress3,bmsAddress4,bmsTelephone," & _ "bmsCellphone,bmsEmailAddress,bmsFacsimile FROM bmsWebUsers " & _ "WHERE id_bmsUsers = " & sid & ";" objRS.CursorType = 2 objRS.Open strSQL,objConn %>

<% objRS.Close Set objRS = Nothing objConn.Close Set objConn = Nothing %> Detail for: <%=objRS("bmsFirstName")%> <%=objRS("bmsSurname")%>. name: <%=objRS("bmsFirstName")%> surname: <%=objRS("bmsSurname")%> Cellphone: <%=objRS("bmsCellphone")%> Telephone: <%=objRS("bmsTelephone")%> email address: <%=objRS("bmsEmailAddress")%> address: <%=objRS("bmsAddress1")%> <%=objRS("bmsAddress2")%>   <%=objRS("bmsAddress3")%>   <%=objRS("bmsAddress4")%> " target="_parent" class="whiteTen">edit this contact " target="_parent" class="whiteTen">delete this contact

<%END SUB%>