|
Sign
up ....
Forgot Your Password
<%
If strUname <> "" and strPasswd <> "" Then
strDBPath = Server.MapPath("accounts.mdb")
Set cnnSearch = Server.CreateObject("ADODB.Connection")
cnnSearch.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"
strSQL = "SELECT * " _
& "FROM accounts " _
& "WHERE username = '" & strUname & "' " _
& "and password = '" & strPasswd & "'; "
Set rstSearch = cnnSearch.Execute(strSQL)
if not rstSearch.EOF then
strStatus = rstSearch.Fields("status").Value
if strStatus <> "pending" then
randomize()
a=((rnd() * 100) mod 100) + 1
b=((rnd() * 100) mod 100) + 1
c=((rnd() * 100) mod 100) + 1
d=((rnd() * 100) mod 100) + 1
user_id = rstSearch.Fields("user_id").Value
coded_id = user_id * ((a * d) + (b * c))
'response.Redirect "login_redirect.asp?a87e9f=" & a & "&d74a92b=" & b & "&b12d89z=" & c & "&cod82id128=" & coded_id & "&c27p57m=" & c
'response.write " " & a & " " & b & " " & c & " " & d & " " & user_id & " " & coded_id
'response.End
else
%>
<% response.write "ERROR: SUBSCRIPTION NOT YET ACTIVATED" %>
<%
end if
else
%>
<% response.write "ERROR: INVALID USERNAME AND PASSWORD" %>
<%
coded_id = 0
end if
rstSearch.Close
Set rstSearch = Nothing
cnnSearch.Close
Set cnnSearch = Nothing
if coded_id <> 0 then
Dim adoCon
Dim rsUpdateEntry
Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("accounts.mdb")
Set rsUpdateEntry = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM checker WHERE user_id =" & user_id
rsUpdateEntry.CursorType = 2
rsUpdateEntry.LockType = 3
rsUpdateEntry.Open strSQL, adoCon
rsUpdateEntry.Fields("a") = a
rsUpdateEntry.Fields("b") = b
rsUpdateEntry.Fields("c") = c
rsUpdateEntry.Fields("d") = d
rsUpdateEntry.Update
rsUpdateEntry.Close
Set rsUpdateEntry = Nothing
Set adoCon = Nothing
if strStatus <> "admin" then
response.Redirect "login_redirect.asp?a87e9f=" & a & "&d74a92b=" & d & "&b12d89z=" & b & "&cod82id128=" & coded_id & "&c27p57m=" & c
else
response.Redirect "admin.asp?a87e9f=" & a & "&d74a92b=" & d & "&b12d89z=" & b & "&cod82id128=" & coded_id & "&c27p57m=" & c
end if
end if
Else
%>
<% response.write "Please enter your username and password" %>
<%
End If
%>
|
