<%@ language="VBScript" %> <% If Request("Submit") = "Login" Then strlog_email = Request.Form.Item("log_email") strlog_password = Request.Form.Item("log_password") bLoginOK = False msg = "" If strlog_email<>"" And strlog_password <>"" Then strSQL = "SELECT * FROM trainingvideos_register WHERE email = '"& strlog_email &"' AND userpassword = '"& strlog_password &"' " Set connDB = Server.CreateObject("ADODB.CONNECTION") connDB.Open theDSN Set rsDB = connDB.Execute( strSQL ) If Not rsDB.EOF Then 'Session("trainingvideos_userID") = rsDB("id") 'Session("trainingvideos_login") = "yes" Response.Cookies("trainingvideos_userID")=rsDB("id") Response.Cookies("trainingvideos_login")="yes" Response.Cookies("trainingvideos_login").Expires = Date() + 30 bLoginOK = True End If Set theRS = Nothing connDB.Close Set connDB = Nothing If bLoginOK Then Response.Redirect "http://" & Request.ServerVariables("SERVER_NAME")&"/trainingvideos-list.asp" Else msg = "Invalid Login" End If End if End If If Request("forget") = "Submit" Then emailTo = Request.Form.Item("email") str_password = "" strSQL = "SELECT userpassword FROM trainingvideos_register WHERE email = '"& emailTo &"' " Set connDB = Server.CreateObject("ADODB.CONNECTION") connDB.Open theDSN Set rsDB = connDB.Execute( strSQL ) If Not rsDB.EOF Then str_password =rsDB("userpassword") End If Set theRS = Nothing connDB.Close Set connDB = Nothing message = "" & VbCrLF message = message & "You have requested your password for accessing the AlarmLock video library. Here is your password:" & VbCrLF message = message & str_password & VbCrLF message = message & "Click here to log in and access the videos:" & VbCrLF message = message & "http://alarmlock.com/trainingvideos-list.asp" & VbCrLF & VbCrLF & VbCrLF message = message & "Sincerely, " & VbCrLF & VbCrLF & VbCrLF message = message & "AlarmLock.com" & VbCrLF resultTwoAdmin = SendMail("noreply@napcosecurity.com", emailTo, "", "", "AlarmLock.com:: forgot password", message) response.write(resultTwoAdmin) Response.Redirect "trainingvideos-list.asp" End If %> Welcome to Alarm Lock 12
<% If Request.Cookies("trainingvideos_login") <> "yes" Then %>
" method="post">

Returning Users Log In




<%= Response.Write(msg)%> 

<% End if %>
 

Forgot Password

Please enter your email below to have your password sent to your email address.

Email:*
 
 
  * Required field