Admin Login

<% if trim(request.form("name"))<>"" Then Set RS = Server.CreateObject("ADODB.Recordset") MySql="SELECT * FROM Posters where Poster='" & trim(request.form("name")) & "'" Rs.Open MySql, my_conn inuse=0 if not rs.eof then %> Sorry that name is already in use. Please enter a different name. <%Else inuse=1 session("name")=request.form("name") poster=trim(request.form("name")) email=trim(request.form("email")) if email="" then email="Not Disclosed" password=request.form("password") MySql="Insert Into Posters ([Poster], [Email], [Password], [Joined], [Last login], [IP Address], [Nationality] ) " MySql=MySql & " Values ('" & poster & "', '" & email & "', '" & password & "', #" & now MySql=MySql & "#, #" & now & "#, '" & request.servervariables("REMOTE_ADDR") & "', '" & request.form("nationality") & "');" my_conn.execute (MySql) %> That name is okay. You have been logged in.
Click here to return to forum. <% End If rs.close my_conn.close End if %> <%if inuse<>1 Then%>

Name (this is your forum ID):
Email:
Choose password:
Nationality:

<% End If %>