<% 'they must have logged in fine let them have the world if Request.QueryString("updateme") = "yes" then session("login") = Trim(Request.Form("login")) session("pass") = Trim(Request.Form("pass")) session("name") = Trim(Request.Form("name")) session("homepage") = Trim(Request.Form("homepage")) session("email") = Trim(Request.Form("email")) session("active") = Cint(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" end if if (session("login") = "") then error = true error_msg = error_msg & "
  • You can't have a blank login" end if if (session("email") = "") then error = true error_msg = error_msg & "
  • You can't have a blank email" end if if not (instr(2,session("email"),"@") > 1) or not (instr(4,session("email"),".") > 3) then error = true error_msg = error_msg & "
  • You can't have a invalid email" end if if (session("pass") = "") then error = true error_msg = error_msg & "
  • You need to enter a password" 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")) & "')) and " query = query & "(id <> " & Request.QueryString("id") & ")" '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 else 'must be a match, they have to chage some thing do while not tigRS.EOF if tigRS("name") = 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 tigRS("login") = 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 tigRS("pass") = 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 if no_worries and not error then dim Subject, Body 'Response.Write("im here") set tigCON = Server.CreateObject("ADODB.Connection") tigCON.Open(DSN) query = "update beta_mappers set " & _ "login = '" & SQLsafe(session("login")) & "', " & _ "email = '" & SQLsafe(session("email")) & "', " & _ "name = '" & SQLsafe(session("name")) & "', " & _ "homepage = '" & SQLsafe(session("homepage")) & "', " & _ "pass = '" & SQLsafe(session("pass")) & "', " & _ "active = " & session("active") & " " & _ "where id =" & Request.QueryString("id") 'Response.Write("query=[" & query & "]
    ") tigCON.Execute(query) 'now send a mail off as someone has joined and needs to be made active Subject = session("name") & "'s details have changed on ..::LvL" Body = "Your details for "& site_url &"beta/ " & _ "have changed or your login is now active. Please confirm that the changes are correct. " & _ "If you have NOT requested any changes to be made to your account, " & _ "email Tigger-oN (tigger@ebom.org) asap, thanx" & vblf & vblf & _ "your login info;" & vblf & _ "login: " & session("login") & vblf & _ "name: " & session("name") & vblf 'emailtime function is in processpage.asp, its what sends the email :] if (Request.ServerVariables("LOCAL_ADDR") = local_ip) then cdontstime session("email"), "lvl@ebom.org", Subject, body else emailtime session("email"), "lvl@ebom.org", Subject, body '(byval sendto, byval from, byval subject, byval body) end if dim all_done all_done = true end if tigRS.close tigCON.close end if %> admin <% if all_done then %> Details for <%=session("name")%> at <%=session("email")%> has been updated, an email has also beeen sent to the mapper stating that their account has been modified. <% else 'anything could happen 'Response.Write("ReQu id =[" & Request.Cookies("lvlbeta")("mapperid") & "]
    ") set tigCON = Server.CreateObject("ADODB.Connection") tigCON.Open(DSN) query = "select all * from beta_mappers where id = " & Request.QueryString("id") 'Response.Write("Query = [" & query & "]
    ") set tigRS = tigCON.Execute(query) if (tigRS.EOF) then %> The mappers account you have requested has not been activated, does not exist, or some thing has gone wrong - email tigger@ebom.org if there is a real problem <% else 'create some session vars for this level session("login") = server.HTMLEncode(tigRS("login")) session("name") = server.HTMLEncode(tigRS("name")) session("email") = server.HTMLEncode(tigRS("email")) session("homepage") = server.HTMLEncode(tigRS("homepage")) session("active") = server.HTMLEncode(tigRS("active")) session("pass") = server.HTMLEncode(tigRS("pass")) end if tigRS.close tigCON.close %>
    ?updateme=yes&id=<%=Request.QueryString("id")%>" method="post">

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

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

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

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

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

    make their account active/inactive - (ohh... the power!)
    >active - >disabled

    <% end if %>