<% if Request.QueryString("signmeup") = "yes" then 'make some sessions, incase of error session("login") = Trim(Request.Form("login")) session("password") = Trim(Request.Form("password")) session("passchk") = Trim(Request.Form("passchk")) session("sysadmin") = Trim(Request.Form("sysadmin")) session("email") = Trim(Request.Form("email")) session("active") = Trim(Request.Form("active")) dim error, error_msg, signupBody if (session("sysadmin") = "") then error = true error_msg = error_msg & "

You can't have a blank sysadmin name - try again

" end if if (session("login") = "") then error = true error_msg = error_msg & "

You can't have a blank login - try again

" end if if (session("email") = "") then error = true error_msg = error_msg & "

You can't have a blank email - try again

" end if if not (instr(2,session("email"),"@") > 1) and not (instr(4,session("email"),".") > 3) then 'Response.Write("email check 1 = [" & (instr(2,session("email"),"@")) & "]
") 'Response.Write("email check 2 = [" & (instr(4,session("email"),".")) & "]
") error = true error_msg = error_msg & "

You can't have an invalid email - try again

" end if if session("password") <> session("passchk") then error = true error_msg = error_msg & "

The passwords you have entered didn't match - try again

" end if if (session("password") = "") then error = true error_msg = error_msg & "

You need to enter a password - try again

" end if if (session("passchk") = "") then error = true error_msg = error_msg & "

You need to enter a check password - try again

" end if '1st check to see if their name, login, pass, is already listed set tigCON = Server.CreateObject("ADODB.Connection") tigCON.Open(DSN) query = "select sysadmin, login, password " & _ "from server_sysadmin where " & _ "(sysadmin = '" & SQLSafe(session("sysadmin")) & "') or " & _ "(login = '" & SQLSafe(session("login")) & "') or " & _ "(password = '" & SQLSafe(session("password")) & "')" 'Response.Write("Query = [" & query & "]
") set tigRS = tigCON.Execute(query) dim no_worries if (tigRS.EOF) then 'ok, all is good, they can be added no_worries = true 'Response.Write("ahhh!
") else 'Response.Write("brr
") 'must be a match, they have to chage some thing do while not tigRS.EOF if lcase(tigRS("sysadmin")) = lcase(session("sysadmin")) then 'Response.Write("error is name [" & tigRS("sysadmin") & "]
") error_msg = error_msg & "

The sysadmin name you have chosen is already in use." error = true end if if lcase(tigRS("login")) = lcase(session("login")) then 'Response.Write("error is login [" & tigRS("login") & "]
") error_msg = error_msg & "

The login you have chosen is already in use." error = true end if if lcase(tigRS("password")) = lcase(session("password")) then 'Response.Write("error is pass [" & tigRS("password") & "]
") error_msg = error_msg & "

The password you have chosen is already in use." error = true end if tigRS.MoveNext loop end if 'Response.Write("no worries?={" & no_worries & "}
") 'Response.Write("error?={" & error & "}
") if no_worries and not error then set tigCON = Server.CreateObject("ADODB.Connection") tigCON.Open(DSN) 'Response.Write("start query
") query = "insert into server_sysadmin " & _ "(login, password, sysadmin, " & _ "email, datestamp, active) " & _ "VALUES " & _ "('" & SQLsafe(session("login")) & "', " & _ "'" & SQLsafe(session("password")) & "', " & _ "'" & SQLsafe(session("sysadmin")) & "', " & _ "'" & SQLsafe(session("email")) & "', " & _ "getdate(), " & _ 0 & ")" tigCON.Execute(query) 'Response.Write("run query
") 'now send a mail off as someone has join and needs to be made active signupBody = "Someone, more than likely you, has requested a System Admins logon for " & _ "..::LvL ( " & site_url & "server/ ) " & _ "If this sounds correct to you, please reply to this email so Tigger-oN " & _ "can unlock your account and you can start adding your server info :]" & vblf & vblf & _ "Please include the following in the reply; " & vblf & _ "sysadmin: " & SQLsafe(session("sysadmin")) & vblf & _ "login: " & SQLsafe(session("login")) & vblf & _ "email: " & SQLsafe(session("email")) & vblf & vblf & _ "Thanx " & vblf & vblf & _ "===== " & replace(site_url,"http://","") & "server =====" if (Request.ServerVariables("LOCAL_ADDR") = local_ip) then cdontstime SQLsafe(session("email")), "lvl@ebom.org", "..::LvL System Admin login for " & session("sysadmin"), signupBody else 'emailtime is using Jmail on the 'planetquake server as cdonts was unrelyable :[ emailtime SQLsafe(session("email")), "lvl@ebom.org", "..::LvL System Admin login for " & session("sysadmin"), signupBody end if dim signed_up signed_up = true end if tigRS.close tigCON.close end if %>

<% if signed_up then %> A confirmation email is now being sent to you. Once this has been returned your account can be unlocked. You will then be able to add your servers. Please remeber that all servers that are list require at least 80% custom maps in their rotation. Any System Admin that doesn't adhear to this will have their login locked

Thanx,
Tigger-oN <% else 'ok, there must have been a problem if Request.QueryString("signmeup") = "yes" then if error then Response.Write(error_msg) end if end if %>

?signmeup=yes" method="post"> <% if not Request.QueryString("signmeup") = "yes" then %> Before you can have your servers listed on ..::LvL you need to submit the following info.
Then you are sent an email with your details for confirmation, you return the email saying hell yeah that's me alright, and your System Admin login is activated. Then you will be sent another email to let you know your account is enabled.

This will all take about 24hrs and then you will be able to list information about your custom map servers - cool hey?

The main requirement is that you run a map rotation of at least 80% custom maps. Accounts will be disable if this rule is not meet. <% end if %>

You can edit these details at any time once your login is enabled.

System Admins Name - (that's your name or nick, it will appear everywhere)
">

System Admins Email - (this is kind of important, so get it right OK)
">

Login name - (you will use this to login into your account)
">

Password - (so others can't just change your details)
">

Password check - (so can you type it in the 2nd time?)

<% 'end the sign_up = true end if %> <% 'end if %>