<% Option Explicit %> <% dim objConn,objRsUsers dim strFirstName,strLastName,strAddress,strCity,strState,strZip dim strCountry,strCompany,strPhone,strFax,strEmail,strPassword,strQuery if Session("DS_Username")<>"" then set objConn=Server.CreateObject("ADODB.Connection") objConn.Open "DSN=DesignSprings" set objRsUsers=Server.CreateObject("ADODB.Recordset") strQuery="SELECT * FROM tblUsers WHERE Username='" & Session("DS_Username") & "';" objRsUsers.Open strQuery,objConn,adOpenForwardOnly,adLockOptimistic,adCmdText strCountry="USA" strState="TX" if not objRsUsers.eof then strFirstName=objRsUsers("FirstName") strLastName=objRsUsers("LastName") strAddress=objRsUsers("Address") strCity=objRsUsers("City") strState=objRsUsers("State") strZip=objRsUsers("Zip") strCountry=objRsUsers("Country") strCompany=objRsUsers("Company") strPhone=objRsUsers("Phone") strFax=objRsUsers("Fax") strEmail=objRsUsers("Email") strPassword=objRsUsers("Password") end if objRsUsers.Close objConn.Close set objRsUsers=Nothing set objConn=Nothing end if %> User Registration
springdesigner41199-01-01.gif (1596 bytes) springdesigner41199-01-02.gif (9499 bytes)
springdesigner41199-02-01.gif (1410 bytes) conclcalc41199-02-02.gif (1982 bytes)
* Required
<% if Session("DS_Username")="" then %> <% end if %>
First Name: *Last Name:
*Address:
*City: *State:
*Zip: *Country:
*Company:
*Phone: Fax:
Email:
*Username:
*Password: *Confirm:
<% if Session("DS_Username")="" then %> <% else %> <% end if %>