<% set rs = server.createobject ("adodb.recordset") set rsc = server.createobject ("adodb.recordset") set rsCAT = server.createobject ("adodb.recordset") set rsCATN = server.createobject ("adodb.recordset") '=========================================STAT EDIT If Request.QueryString("STAT") = "EDIT" Then rs.open "Select * From Customer Where CUSID = " & Request.QueryString("CUSID"), conn, 3, 3 VARCUSName = rs("CUSName") VARCUSFieldActivity = rs("CUSFieldActivity") VARCUSContact = rs("CUSContact") VARCUSAddress = rs("CUSAddress") VARCUSCity = rs("CUSCity") VARCUSProvince = rs("CUSProvince") VARCUSPCode = rs("CUSPCode") VARCUSPhone = rs("CUSPhone") VARCUSFax = rs("CUSFax") VARCUSEmail = rs("CUSEmail") VARCUSWebsite = rs("CUSWebsite") VARCUSUsername = rs("CUSUsername") VARCUSPassword = rs("CUSPassword") VARCUSInformation = rs("CUSInformation") rs.close END If If Request.QueryString("STAT") <> "EDIT" AND Request.cookies("HighEnd") ("ErrMSG") <> "" Then VARCUSName = Request.cookies("HighEnd") ("CUSName") VARCUSFieldActivity = Request.cookies("HighEnd") ("CUSFieldActivity") VARCUSContact = Request.cookies("HighEnd") ("CUSContact") VARCUSAddress = Request.cookies("HighEnd") ("CUSAddress") VARCUSCity = Request.cookies("HighEnd") ("CUSCity") VARCUSProvince = Request.cookies("HighEnd") ("CUSProvince") VARCUSPCode = Request.cookies("HighEnd") ("CUSPCode") VARCUSPhone = Request.cookies("HighEnd") ("CUSPhone") VARCUSFax = Request.cookies("HighEnd") ("CUSFax") VARCUSEmail = Request.cookies("HighEnd") ("CUSEmail") VARCUSWebsite = Request.cookies("HighEnd") ("CUSWebsite") VARCUSUsername = Request.cookies("HighEnd") ("CUSUsername") VARCUSPassword = Request.cookies("HighEnd") ("CUSPassword") VARCUSInformation = Request.cookies("HighEnd") ("CUSInformation") End If %> High End Gems Back-Office
<%=Request.cookies("HighEnd") ("ErrMSG")%>
Customers Signup Page
" onsubmit="return FrontPage_Form1_Validator(this)" language="JavaScript" name="FrontPage_Form1">
   Personal/Company Information
Company Name:  
Contact Name:   
Field of Activity:
Address:
City:   Province:   P-Code:
Phone:   FAX:
Email:   Website:
   Security information
Username:      
Password:   Confirm Password:
">
<%Response.cookies("HighEnd") ("ErrMSG") = ""%>