<% dim signupBody 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("homepage") = Trim(Request.Form("homepage")) 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 " query = query & "from beta_mappers where " query = query & "(name = '" & SQLSafe(session("name")) & "') or " query = query & "(login = '" & SQLSafe(session("login")) & "') or " query = query & "(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 & "}
") if no_worries and not error then 'need to make a random number call for the unlock_key dim unlock_key Randomize unlock_key = Int(999999 * Rnd) set tigCON = Server.CreateObject("ADODB.Connection") tigCON.Open(DSN) 'Response.Write("start query
") query = "insert into beta_mappers " query = query & "(login, pass, name, homepage, " query = query & "email, active, unlock_key) " query = query & "VALUES " query = query & "('" & SQLsafe(session("login")) & "', " query = query & "'" & SQLsafe(session("pass")) & "', " query = query & "'" & SQLsafe(session("name")) & "', " query = query & "'" & SQLsafe(session("homepage")) & "', " query = query & "'" & SQLsafe(session("email")) & "', " query = query & 0 & ", " & unlock_key & ")" 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 Beta Mappers logon for ..::LvL - " & _ "If this sounds correct to you then visit the link below to activate your logon. " & vblf & vblf & _ site_url &"beta/unlock.asp?k=" & unlock_key & "&e=" & session("email") & vblf & vblf & _ "Make sure you get the FULL URL, it will end with your email address." & vblf & vblf & _ "Thanx for your time " & vblf & vblf & _ "===== "& replace(site_url,"http://","") &"beta =====" if (Request.ServerVariables("LOCAL_ADDR") = local_ip) then cdontstime SQLsafe(session("email")), "lvl@ebom.org", "..::LvL Beta Mapper Logon 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 Beta Mapper Logon 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 at <%=session("email")%>. You will need to visit the URL that is included with the email to activate your login. You will then be able to add maps to the ..::LvL Beta Section 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 be listed as a mapper 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 mapper's account 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 beta maps - cool hey?

You can't upload beta maps to LvL, so you will have to find somewhere to store them. 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.xoom.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 account is enabled.

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

Author's Email - (this is kind of important, so get it right OK)
">

You got a homepage? - (want to let others know more about you?)
<% if session("homepage") = "" then %> <% else %> "> <% end if %>

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