<%
mode = Request("mode")
Response.Buffer = True
%>
Star Wars Community
<% if mode = "" then %>
<% end if %>
<% if mode = "gem" then
if Request.form("UserName") = "" then Response.Redirect("new.asp?error=You need to write a username") end if
if Request.form("Password") = "" then Response.Redirect("new.asp?error=You need to write a password") end if
if Request.form("usermail") = "" then Response.Redirect("new.asp?error=You need to write your email") end if
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("swc.html") & ";UID=admin;PWD=;"
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From user where username = '" & Request.form("Username") & "'"
rs.Open strSQL, Conn, 1, 3
If Not (rs.BOF Or rs.EOF) Then
Response.Redirect("new.asp?error=Username is taken")
end if
rs.addnew
rs("Username") = Request.form("Username")
rs("Userpassword") = Request.form("Password")
rs("Usermail") = Request.form("usermail")
rs("Userhttp") = Request.form("Userhttp")
rs("UserICQ") = Request.form("Usericq")
rs("Usertext") = Request.form("Usertext")
rs.update
Response.Write("You are now a member of Star Wars Community!")
rs.Close
Set rs = Nothing
Conn.Close
set Conn = Nothing
end if %>