<% uname=trim(request.form("uname")) pass1=trim(request.form("pass1")) fname=trim(request.form("fname")) lname=trim(request.form("lname")) mail=trim(request.form("mail")) phone=trim(request.form("phone")) cell=trim(request.form("cell")) Set con = Server.CreateObject("ADODB.Connection") strcon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db1.mdb") Con.open strcon u=1 if len(uname)=0 or len(pass1)=0 or len(fname)=0 then Response.redirect "registration.html" u=0 end if if len(lname)=0 or len(mail)=0 or len(phone)=0 then Response.redirect "registration.html" u=0 end if if len(cell)=0 then cell="None" end if if u > 0 then v=0 Set rsCheckUser = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT usersid.uname FROM usersid" rsCheckUser.Open strSQL, strCon while not rsCheckUser.EOF If (uname = rsCheckUser("uname")) Then v=1 end if rscheckuser.MoveNext wend if (v>0) then Response.Redirect ("err1.asp") else mysql= "insert into uinfo(uname,fname,lname,email,phone,cell) values ('"&uname&"','"&fname&"','"&lname&"','"&mail&"','"&phone&"','"&cell&"')" con.execute mysql mysql="insert into usersid(uname,upass) values ('"&uname&"','"&pass1&"')" con.execute mysql response.write "<center><font size=+2 color='blue'>Thank you for Registering!</font></center>" end if end if %> <html> <body> <a href="login.html">Click Here</a> go to log in. </body> </html>
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)