<!--#include file="conn.asp"-->
<%
   dim username,psw,psw1,lsmail,lstele,lszip,lssex
   username=request.Form("username")
   psw=request.Form("psw")
   psw1=request.Form("checkpsw")
   lsmail=request.Form("email")
   lstele=request.Form("tele")
   lszip=request.Form("zipcode")
   if isnull(lstele) then
      lstele="010"
   end if
   if isnull(lszip) then
      lszip="001"
   end if
   if request.Form("sex") ="M" then
  ' response.Write(request.Form("sex"))
 '  response.End()
      lssex="1"
	 else
	  lssex="0" 
   end if
   if psw<>psw1 then
     response.Redirect("regerror.asp")
   end if
   set rs=conn.execute("select * from login ")
   do while not rs.eof
      if rs("email")= lsmail then
	     response.Redirect("regerror.asp")
	  end if
   rs.movenext
   loop
   rs.close
   'call closeconn()
%>

<%
  
   dim mydate
   mydate=Date
   'response.Write(lsmail+lstele+lszip+Cstr(mydate))
   'response.End()
    Set Rs = Server.CreateObject("ADODB.RecordSet")
	Sql="Select * From login"
	Rs.Open Sql,Conn,2,3
	Rs.AddNew
    rs("username")=username
	rs("password")=psw
	rs("sex")=lssex
	rs("email")=lsmail
	rs("tele")=lstele
	rs("zipcode")=lszip
	rs("date")=now()
   
  ' sqlstr="insert into login (username,password,sex,email,tele,zipcode,date) values('"&username&"','"&psw&"','"&lssex&"','"&lsmail&"','"&lstele&"','"&lszip&"','"&mydate&"')"
  ' set rs=conn.execute(sqlstr)
    Rs.Update
	Rs.Close
	Set Rs = Nothing
	'response.Write("successe")
	'response.End()
    response.Redirect("registerinfor.htm")
%>