<% 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("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 author 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 " & _ "from mods_login where " & _ "((name = '" & SQLSafe(session("name")) & "') or " & _ "(login = '" & SQLSafe(session("login")) & "') or " & _ "(pass = '" & SQLSafe(session("pass")) & "')) and " & _ "(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 author 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 mods_login set " & _ "login = '" & SQLsafe(session("login")) & "', " & _ "email = '" & SQLsafe(session("email")) & "', " & _ "name = '" & SQLsafe(session("name")) & "', " & _ "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 &"mods/ " & _ "have changed or your login is now activated, please confirm that the changes are correct. " & _ "If you have NOT requested any changes to be made to your account, " & _ "email Mandog (mandog@ebom.org) asap, thanx" & vblf & vblf & _ "your login info;" & vblf & _ "login: " & session("login") & vblf & _ "sysadmin: " & session("name") & vblf tigRS.close tigCON.close '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 call 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 end if %>

<% if all_done then %> Details for <%=session("name")%> at <%=session("email")%> has been updated, an email has also beeen sent to the mod author 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 mods_login where id = " & Request.QueryString("id") 'Response.Write("Query = [" & query & "]
") set tigRS = tigCON.Execute(query) if (tigRS.EOF) then %> The mods login 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("active") = server.HTMLEncode(tigRS("active")) session("pass") = server.HTMLEncode(tigRS("pass")) end if tigRS.close tigCON.close %> <% end if %>