<% if(session("login")<>"yes") then response.redirect("login.asp?URLFIRE=viewcontact.asp") end if %> <% set rsq = con.execute("select *from userinfo where username='" & trim(session("curuser")) & "'") %> <% username=session("curuser") act=request.queryString("action") if(act="update") then username=request.form("username") fname=request.form("fname") lname=request.form("lname") email=request.form("email") company=request.form("company") address1=request.form("address1") address2=request.form("address2") city=request.form("city") state=request.form("state") zipcode=request.form("zipcode") country=request.form("country") phone=request.form("phone") cardholder=request.form("cardholder") cardtype=request.form("cardtype") cardnumber=request.form("cardnumber") exmonth=request.form("exmonth") exyear=request.form("exyear") con.execute("update userinfo set fname='" & trim(fname) &"' where username='" & trim(username) & "'") con.execute("update userinfo set lname='" & trim(lname) &"' where username='" & trim(username) & "'") con.execute("update userinfo set email='" & trim(email) &"' where username='" & trim(username) & "'") con.execute("update userinfo set company='" & trim(company) &"' where username='" & trim(username) & "'") con.execute("update userinfo set address1='" & trim(address1) &"' where username='" & trim(username) & "'") con.execute("update userinfo set address2='" & trim(address2) &"' where username='" & trim(username) & "'") con.execute("update userinfo set city='" & trim(city) &"' where username='" & trim(username) & "'") con.execute("update userinfo set state='" & trim(state) &"' where username='" & trim(username) & "'") con.execute("update userinfo set zipcode='" & trim(zipcode) &"' where username='" & trim(username) & "'") con.execute("update userinfo set country='" & trim(country) &"' where username='" & trim(username) & "'") con.execute("update userinfo set phone='" & trim(phone) &"' where username='" & trim(username) & "'") con.execute("update userinfo set cardholder='" & trim(cardholder) &"' where username='" & trim(username) & "'") con.execute("update userinfo set cardtype='" & trim(cardtype) &"' where username='" & trim(username) & "'") con.execute("update userinfo set cardnumber='" & trim(cardnumber) &"' where username='" & trim(username) & "'") con.execute("update userinfo set exmonth='" & trim(exmonth) &"' where username='" & trim(username) & "'") con.execute("update userinfo set exyear='" & trim(exyear) &"' where username='" & trim(username) & "'") end if %>

 



" size="20">

Member's Data Modification

 

User Name

 <%=rsq("username")%>

First Name

">

Last Name

">

Email

">

Company

">

Address 1

">

Address 2

">

State

">

City

">

Zip Code

">

Country

">

Phone

">

Card Holder

">

Card Type

">

Card Number

">

Expiry Month

">

Expiry Year

">