<%
CheckSession()
saveornew=Request.Form("save")
if saveornew="save" then
UserName=Request.Form("username")
Password=Request.Form("password")
Firstname=Request.Form("firstname")
Lastname=Request.Form("lastname")
Company=ReplaceQuotes(Request.Form("company"))
ContactPref=Request.Form("contactpref")
PhoneNumber=Request.Form("phonenumber")
Address1=Request.Form("address1")
Address2=Request.Form("address2")
City=Request.Form("city")
State=Request.Form("state")
Zip=Request.Form("zip")
Country=Request.Form("country")
mySQL="UPDATE "&UserTable&" SET Lastname='" &Lastname& "', Firstname='" &Firstname& "',Company='" &Company& "', UserName='" &UserName& "', Password='" &Password& "', Address1='" &Address1& "', Address2='" &Address2& "', City='" &City& "', State='" &State& "', Zip='" &Zip& "',Country='" &Country& "',ContactPref='" &ContactPref& "', PhoneNumber='" &PhoneNumber& "' WHERE ID=" &session("userid")& ""
if (Lastname<>"") then
session("name")=Firstname+" "+Lastname
else
session("name")=Company
end if
ExecuteSQL(mySQL)
'response.write mySQL
'response.end
response.write "
Profile update successful. Return to main menu. "
else
mySQL="SELECT * FROM ShowcaseUsers WHERE ID="&session("userid")&";"
set conntemp=server.createobject("adodb.connection")
conntemp.ConnectionTimeout = 20
conntemp.open myDSN
set rstemp=conntemp.execute(mySQL)
DO UNTIL rstemp.eof
For each whatever in rstemp.fields
Select case whatever.name
case "Lastname"
lastname=whatever.value
case "Firstname"
firstname=whatever.value
case "Company"
company=whatever.value
case "UserName"
username=whatever.value
case "Password"
password=whatever.value
case "Address1"
address1=whatever.value
case "Address2"
address2=whatever.value
case "City"
city=whatever.value
case "State"
state=whatever.value
case "Zip"
zip=whatever.value
case "Country"
country=whatever.value
case "ContactPref"
contactpref=whatever.value
case "PhoneNumber"
phonenumber=whatever.value
End select
Next
rstemp.movenext
LOOP
rstemp.close
set rstemp=nothing
conntemp.close
set conntemp=nothing
response.write " "
end if
%>
|