Web Wiz - Solar Powered Eco Web Hosting

  New Posts New Posts RSS Feed - it’s not updated :(
  FAQ FAQ  Forum Search   Events   Register Register  Login Login

it’s not updated :(

 Post Reply Post Reply
Author
dpyers View Drop Down
Senior Member
Senior Member


Joined: 12 May 2003
Status: Offline
Points: 3938
Post Options Post Options   Thanks (0) Thanks(0)   Quote dpyers Quote  Post ReplyReply Direct Link To This Post Topic: it’s not updated :(
    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.
Back to Top
BlueMask View Drop Down
Newbie
Newbie
Avatar

Joined: 27 April 2003
Location: Turkey
Status: Offline
Points: 19
Post Options Post Options   Thanks (0) Thanks(0)   Quote BlueMask Quote  Post ReplyReply Direct Link To This Post 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
%>
Back to Top
 Post Reply Post Reply

Forum Jump Forum Permissions View Drop Down

Forum Software by Web Wiz Forums® version 12.07
Copyright ©2001-2024 Web Wiz Ltd.


Become a Fan on Facebook Follow us on X Connect with us on LinkedIn Web Wiz Blogs
About Web Wiz | Contact Web Wiz | Terms & Conditions | Cookies | Privacy Policy

Web Wiz is the trading name of Web Wiz Ltd. Company registration No. 05977755. Registered in England and Wales.
Registered office: Web Wiz Ltd, Unit 18, The Glenmore Centre, Fancy Road, Poole, Dorset, BH12 4FB, UK.

Prices exclude VAT unless otherwise stated. VAT No. GB988999105 - $, € prices shown as a guideline only.

Copyright ©2001-2024 Web Wiz Ltd. All rights reserved.