Print Page | Close Window

it’s not updated :(

Printed From: Web Wiz Forums
Category: General Discussion
Forum Name: Classic ASP Discussion
Forum Description: Discussion on Active Server Pages (Classic ASP).
URL: https://forums.webwiz.net/forum_posts.asp?TID=13165
Printed Date: 30 March 2026 at 7:38pm
Software Version: Web Wiz Forums 12.08 - https://www.webwizforums.com


Topic: it’s not updated :(
Posted By: BlueMask
Subject: it’s not updated :(
Date Posted: 31 December 2004 at 8:00am
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
%>



Replies:
Posted By: dpyers
Date Posted: 31 December 2004 at 9:17am
And the error you get is...?

-------------

Lead me not into temptation... I know the short cut, follow me.



Print Page | Close Window

Forum Software by Web Wiz Forums® version 12.08 - https://www.webwizforums.com
Copyright ©2001-2026 Web Wiz Ltd. - https://www.webwiz.net