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

You can't have a blank 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) or 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("pass") <> session("passchk") then error = true error_msg = error_msg & "

The passwords you have entered didn't match - try again" end if if (session("pass") = "") 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 name, login, pass " & _ "from mods_login where " & _ "(name = '" & SQLSafe(session("name")) & "') or " & _ "(login = '" & SQLSafe(session("login")) & "') or " & _ "(pass = '" & SQLSafe(session("pass")) & "')" '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("name")) = lcase(session("name")) then 'Response.Write("error is name [" & tigRS("name") & "]
") error_msg = error_msg & "

The 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("pass")) = lcase(session("pass")) then 'Response.Write("error is pass [" & tigRS("pass") & "]
") 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 & "}
") dim signupBody if no_worries and not error then set tigCON = Server.CreateObject("ADODB.Connection") tigCON.Open(DSN) 'Response.Write("start query
") query = "insert into mods_login " & _ "(login, pass, name, " & _ "email, active) " & _ "VALUES " & _ "('" & SQLsafe(session("login")) & "', " & _ "'" & SQLsafe(session("pass")) & "', " & _ "'" & SQLsafe(session("name")) & "', " & _ "'" & SQLsafe(session("email")) & "', " & _ 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 Mod Login for ..::LvL ("& site_url &"mods/) " & _ "If this sounds correct to you, please reply to this email so Mandog " & _ "can unlock your account and you can add your mod :]" & vblf & vblf & _ "Please include the following in the reply; " & vblf & _ "name: " & SQLsafe(session("name")) & vblf & _ "login: " & SQLsafe(session("login")) & vblf & _ "email: " & SQLsafe(session("email")) & vblf & vblf & _ "Thanx " & vblf & vblf & _ "===== "& replace(site_url,"http://","") &"mods =====" if (Request.ServerVariables("LOCAL_ADDR") = local_ip) then cdontstime SQLsafe(session("email")), "lvl@ebom.org", "..::LvL mod login for " & session("name"), signupBody else 'emailtime is using Jmail on the 'planetquake server as cdonts was unrelyable :[ emailtime SQLsafe(session("email")), "lvl@ebom.org", "..::LvL mod login for " & session("name"), 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 mod login can be unlocked. You will then be able to add your mod to the mods section of ..::LvL for public feedback.

Good luck,
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 listed your mod on ..::LvL you need to submit the following info.

You are then sent an email with your details for confirmation, you return the email saying hell yeah that's me alright, and your mod login is activated. Then you will be sent another email to let you know your login is enabled.

This will all take about 24hrs and then you will be able to list information about your mod and everyone can tell you what they really think - cool hey?

..::LvL does NOT house mods for download, so you will have to find somewhere to store the files. If you do not have web-space atm, try one of the following:

http://www.angelfire.com

http://www.hypermart.net

http://www.geocites.com

http://www.yoobay.net (German)
(know of any other free web-space sites? send me a link and I'll add them to this list) <% end if %>

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

Authors Name - (who's responsible for the mod? if it was a mod by IdSoftware it would be IdSoftware)
">

Authors Email - (its where we send a confimation email to and also where people can get in touch with you)
">

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

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 %>