Count Lines in Pages
Contents of Page: sendPassword.asp
Number of Lines: 44
Last Modified: 8/22/2018 1:33:15 PM
0001: <% @Language = "VBScript" %>
0002: 
0003: <!-- #include FILE="include/adovbs.inc" -->
0004: <!-- #include FILE="include/constants.inc" -->
0005: <!-- #include FILE="include/funcs.asp" -->
0006: 
0007: <%
0008: 	user = Request.Cookies("user")
0009: 	If user = ""  Or (user <> "" And Session("loggedIn") = "") Then Response.Redirect("login.asp")
0010: 
0011: 	Set rs = Server.CreateObject("ADODB.Recordset")
0012: 	sqlString = "SELECT * FROM mmEntries WHERE EmailAddress = " & user & "'"
0013: 	rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0014: 
0015: 	If rs.EOF Then
0016: 		rs.Close
0017: 		Response.Redirect("login.asp")
0018: 	End If
0019: 	
0020: 	msg = "Your March Madness login id is: " & user & vbCrLf
0021: 	msg = msg & "Your password is: " & rs("Password").Value
0022: 	senderr = sendEmail(rs("EntryName").Value, user, 0, "March Madness Password", msg)
0023: 	
0024: %>
0025: 
0026: <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
0027: 
0028: <html>
0029: <head>
0030: 	<title>March Madness - Send Password</title>
0031: 	<link href="mm.css" rel="stylesheet" type="text/css">
0032: </head>
0033: 
0034: <body bgcolor="#ffffff">
0035: 
0036: 	<table border="0" cellpadding="0" cellspacing="0" width="400" align="center">
0037: 		<tr>
0038: 			<td class="norm">
0039: 				Your password has been sent to your email address
0040: 			</td>
0041: 		</tr>
0042: 	</table>
0043: </body>
0044: </htmL>