View Single Post
Old April 23rd, 2004, 05:07 AM
andy11983 andy11983 is offline
Registered User
Join Date: Apr 2004
Location: stoke, staffs, United Kingdom.
Posts: 4
Thanks: 0
Thanked 0 Times in 0 Posts
Default Chnaging user details

Hi Guys,

I have this problem wiv my code, i am trying to let the user to chnage there password in a private area of the site. Anyway
the problem that i am having is that the users password is not being updated to the database according to which user is logged in if you know what i mean?

Below is the code, i was wondering if any of you gurus can tell where i ma goin wrong, please.

<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "">
<html xmlns="">
<title>Untitled Document</title>
'Function to see what the user has entered
Function ChkString(string)
If String = "" Then String = " "
ChkString = replace(String, "'", " ")
End Function
dim username, conn
strconn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/cds.mdb")
set conn = server.createobject("adodb.connection") strconn
username = ChkString(request.form("login"))
SQLQuery = "SELECT * FROM users WHERE username = '"
sqlquery = sqlquery & username & "'"
Set RSuser = conn.Execute(SQLQuery)
if RSuser.eof then
dim oldpassword, newpassword1, newpassword2
oldpassword = ChkString(request.form("oldpassword"))
newpassword = ChkString(request.form("newpassword1"))
newpassword2 = ChkString(request.form("newpassword2"))
SQLQuery2 = "Insert into users (newpassword2) WHERE username ='"
sqlquery2 = sqlquery2 & "values ('" & newpassword2 & "')"
Set RSuserUpdate = Conn.Execute(SQLQuery2)
session("sesusername") = username
session("sesslocation") = ""
<div align="center">Sorry have entered your username incorrectly </div>
<%End If%>
Thanks for your help