<% 
Dim adoCon 
Dim rsUpdateEntry
Dim strSQL
Dim lngRecordNo 
lngRecordNo = CLng(Request.Form("UserID"))
Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("DegirmenWebDataBase.mdb")
Set rsUpdateEntry = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT TblUser.* FROM TblUser WHERE UserID=" & lngRecordNo
rsUpdateEntry.CursorType = 2
rsUpdateEntry.LockType = 3
rsUpdateEntry.Open strSQL, adoCon
do until rsUpdateEntry.EOF
rsUpdateEntry.Fields("UserID") = CLng(Request.Form("UserID"))
rsUpdateEntry.Fields("Ad") = Request.Form("Ad")
rsUpdateEntry.Fields("Soyad") = Request.Form("Soyad")
rsUpdateEntry.Fields("Kullanici_Adi") = Request.Form("Kullanici_Adi")
rsUpdateEntry.Fields("Sifre") = Request.Form("Sifre")
rsUpdateEntry.Fields("RSifre") = Request.Form("RSifre")
rsUpdateEntry.Fields("Email") = Request.Form("Email")
rsUpdateEntry.Fields("Firma") = Request.Form("Firma")
rsUpdateEntry.Fields("Adres") = Request.Form("Adres")
rsUpdateEntry.Fields("Tel") = Request.Form("Tel")
rsUpdateEntry.Fields("Tarih") = Date
rsUpdateEntry.Fields("UyeGirisCount") = Rs.Fields("UyeGirisCount") + 1
rsUpdateEntry.Fields("UyeEnSonGiris") = Date
rsUpdateEntry.MoveNext

rsUpdateEntry.Update
Loop
rsUpdateEntry.Close
Set rsUpdateEntry = Nothing
Set adoCon = Nothing
%>