<% 'use this to clear the seesion 'session("attemps") = 0 if Request.QueryString("check") = "yes" then if session("attemps") = "" then 'only give them a few attemps to get things right session("attemps") = 0 end if dim loged_in, not_active set tigCON = Server.CreateObject("ADODB.Connection") tigCON.Open(DSN) query = "select id, active " & _ "from mods_login where " & _ "(login = '" & SQLSafe(Request.Form("login")) & "') and " & _ "(pass = '" & SQLSafe(Request.Form("password")) & "') " 'query = query & "(pass = '" & SQLSafe(Request.Form("password")) & "') and " 'query = query & "(active = 1)" 'Response.Write("Query = [" & query & "]
") set tigRS = tigCON.Execute(query) if (tigRS.EOF) then session("attemps") = session("attemps") + 1 else 'they must have got it right :], but we need to check to see if their 'account is active or not 'Response.Write("active?=[" & tigRS("active") & "]
") if tigRS("active") then Response.Cookies("lvlmods")("id") = tigRS("id") Response.Cookies("lvlmods").Expires = DateAdd("yyyy",1,now()) 'Response.Cookies("lvlbeta").Expires = DateAdd("n",5,now()) loged_in = true else 'there account is correct, but it aint active yet :[ not_active = true 'Response.Write("not active?=[" & not_active & "]
") end if end if end if %> [ login ] <% if (loged_in) or (Request.Cookies("lvlmods")("id")) then 'give them some options 'was havin a few problems with reading the cookie from a login 'Response.Write(Request.Cookies("lvlbeta")) %> mod author options

  • add a new mod
          so you got a new mod? Use this option to add it
  • ">edit details of a current mod
          use this to edit or update all your currently listed mods
  • list the screen shot names
          find out what to call you screen shots and where to send them
  • edit login details
          change your details like email address
    • <% else 'give them a login option if not not_active then %> Want to be able to list your mod on LvL? 1st you have to subscribe, you can do it right here

    <% end if if (session("attemps") < 4) and (not_active = false) then 'don't want to give them more than 3 attemps %> mod login <% if not Request.Cookies("lvlmods")("id") > 0 then if (session("attemps") = 1) then %> <% elseif (session("attemps") = 2) then %> <% elseif (session("attemps") = 3) then %> <% elseif (session("attemps") > 3) then %> <% end if end if %>


    The login/password combination you entered is not correct, want to try again?


    Nope, you got it wrong again :[ - want to try again?


    Just ain't you day is it? - This is your last chance, don't get it wrong again!


    You got it wrong again

    You could have your login detials emailed to you if you thinking you know some part of your loging, just fill in the blanks right here.

    If you still have problems how about you email tigger@ebom.org and let him know whats going on. He will be able to check your password (once you give some proof of who you are) and send you out your login info.

    ?check=yes" method="post">
    login -
    password -
    <% elseif not_active then %> Your mods login has not yet been activated. Feel free to email a reminder to Mandog (mandog@ebom.org) if it has been more than 24 hrs since you opened your account. Just include your login name, email and state that its for the mods section. <% else %> You have tried to login unsuccessfully. If you have forgotten your password and want to have it resent to you, go to themods password check. <% end if 'end the attemps section end if %>