Hi all! i wrote an user system. i wanna update user info. but it doesn't work.
<% 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 %>
|