<%
If Request ("postyes") = "1" Then
leixing = Saferequest ("leixing", 2)
UserName = Saferequest ("UserName", 2)
thecom = Saferequest ("thecom", 2)
CodeType = Saferequest ("CodeType", 2)
Code = saferequest ("code", 2)
Tel = saferequest ("tel", 2)
Fox = Saferequest ("Fox", 2)
Add = Saferequest ("Add", 2)
email = saferequest ("email", 2)
Postcode = Saferequest ("postcode", 2)
Joindate = Saferequest ("Joindate", 2)
Scomid = Saferequest ("Scomid", 2)
Instrtxt = Saferequest ("Instrtxt", 2)
YONGTU = Saferequest ("Yongtu", 2)
SelectA = Saferequest ("SelectA", 2)
SELECTB = Saferequest ("SELECTB", 2)
Usertype = Saferequest ("Usertype", 2)
If Username= "" or thecom= "" or codetype= "" or code= "" or tel= "" or add= "" or joindate= "" or scomid= "" "Then
Response. Write (' <script language= ' JavaScript ' >alert (' basic information with asterisk ' must be filled in! '); History.go ( -1);</script> ")
Response. End ()
End If
Set Rs=server. CreateObject ("Adodb.recordset")
Sql= "SELECT * from Userdic"
Rs.Open sql,conn,1,3
Rs.addnew
RS ("leixing") =leixing
RS ("UserName") =username
RS ("thecom") =thecom
RS ("CodeType") =codetype
RS ("Code") =code
RS ("Tel") =tel
RS ("Fox") =fox
RS ("Add") =add
RS ("Email") =email
RS ("postcode") =postcode
RS ("Joindate") =joindate
RS ("Scomid") =scomid
RS ("Instrtxt") =instrtxt
RS ("Yongtu") =yongtu
RS ("SelectA") =selecta
RS ("SELECTB") =SELECTB
RS ("usertype") =usertype
RS ("state") =0
Rs.update
Response. Write (' <script language= ' JavaScript ' >alert (' information submitted successfully, please wait for review '); window.location= ' reg.asp?comid= ' &ScomID& "';</script>")