<!--#include file="../includes/adovbs.inc"-->
<%
myUsername = Request.Form("myUsername")
myPassword = Request.Form("myPassword")
myName = Request.Form("myName")
mySurname = Request.Form("mySurname")
DIM objConn
DIM objRS
DIM strSQL
Set objRS = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT myLogons.id_logon,myLogons.myUsername,myLogons.myPassword,myLogons.myName,myLogons.mySurname " & _
         "FROM myLogons;"
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("billy.mdb")
objRS.CursorType = 2
objRS.LockType = 3
objRS.Open strSQL, objConn, adLockOptimistic, adCmdTable
objRS.AddNew
objRS.Fields("myUsername") = myUsername
objRS.Fields("myPassword") = myPassword
objRS.Fields("myName") = myName
objRS.Fields("mySurname") = mySurname
objRS.UpDate

DIM bookmark
bookmark = objRS.absolutePosition
objRS.Requery
objRS.absolutePosition = bookmark

Session("newUserID") = objRS("id_logon")

objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
Response.Redirect("../billy/userAdded.asp")
%>