Count Lines in Pages
Contents of Page: SearchResults.asp
Number of Lines: 193
Last Modified: 3/24/2025 9:07:45 AM
0001: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
0002: <!-- #include FILE="include/adovbs.inc" -->
0003: <!-- #include FILE="include/constants.inc" -->
0004: <!-- #include FILE="include/funcs.asp" -->
0005: <%
0006: 
0007: 	FirstName = Trim(Request.QueryString("FirstName"))
0008:    LastName = Request.QueryString("LastName")
0009:    EmailAddress = Request.QueryString("EmailAddress")
0010: 
0011: If FirstName = "" Then 	FirstName = Trim(Request.Form("FirstName"))
0012: If LastName = "" Then  LastName = Request.Form("LastName")
0013: If EmailAddress = "" Then  EmailAddress = Request.Form("EmailAddress")
0014:    City = Request.Form("City")
0015:    State = Request.Form("State")
0016: 
0017: 
0018: 	Set rs = Server.CreateObject("ADODB.Recordset")
0019: 
0020: 	sqlString = "SELECT * FROM mmEntries " & _
0021: 			    "WHERE Season > 1000 "
0022:     If FirstName <> "" Then
0023:           sqlString = sqlString & "AND FirstName LIKE '%" &  FirstName & "%' "
0024:     End If
0025:     If EmailAddress <> "" Then
0026:           sqlString = sqlString & "AND EmailAddress LIKE '%" &  EmailAddress & "%' "  
0027:     End If
0028:     If LastName <> "" Then
0029:           sqlString = sqlString & "AND Name LIKE '%" &  LastName & "%' "  
0030:     End If  
0031:     If City <> "" Then
0032:           sqlString = sqlString & "AND City LIKE '%" &  City & "%' "  
0033:     End If 
0034: 		sqlString = sqlString &	"ORDER BY Season,Name,FirstName"  
0035: 
0036: 
0037: 		
0038: SRTitle = "All Entries with FirstName Containing: " & FirstName
0039: 
0040: 
0041: 
0042: SRTitle = sqlString
0043: 
0044: ' Response.Write(SqlString & "<BR>")
0045: 
0046: 	rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0047: 	totreg = 0
0048:    totentries = 0
0049:    totssentries = 0   
0050:    totpaid = 0
0051:    totmade = 0
0052:    tot2ndmade = 0
0053: %>
0054: <html>
0055: 
0056: <head>
0057: <meta name="viewport" content="width=device-width">
0058: <link href="mm.css" rel="stylesheet" type="text/css">
0059: <script language="JavaScript" type="text/javascript">
0060: 		function deleteNode(id)	{
0061: 			if (!confirm("Are you sure you want to delete this entry?"))	{
0062: 				return;
0063: 			}
0064: 			window.location = "mmEntryDelete.asp?id="+id;
0065: 		}
0066: 	</script>
0067: 
0068: <title>March Madness - Search Results</title>
0069: </head>
0070: 
0071: <body bgcolor="#ffffff">
0072: 
0073: <table cellspacing="1" border="0" cellpadding="0" width="600" height="53">
0074:   <tr>
0075:     <td width="30"></td>
0076:     <td width="40"></td>
0077: 	<td width="40"></td>
0078:     <td width="110"><img src="clear.gif" width="1" height="2"></td>
0079:     <td width="90"><img src="clear.gif" width="1" height="2"></td>
0080:     <td width="150"><img src="clear.gif" width="1" height="2"></td>
0081:     <td width="40"><img src="clear.gif" width="1" height="2"></td>
0082:     <td width="30"><img src="clear.gif" width="1" height="2"></td>
0083:     <td width="30"><img src="clear.gif" width="1" height="2"></td>
0084:     <td width="200"><img src="clear.gif" width="1" height="2"></td>
0085:     <td width="30"><img src="clear.gif" width="1" height="2"></td>
0086:     <td width="50"><img src="clear.gif" width="1" height="2"></td>
0087:   </tr>
0088:   <tr bgcolor="#577fbe">
0089:     <td class="small" align="center" height="19"></td>
0090: 	    <td class="small" align="center" height="19">RegNumber</td>
0091:     <td class="small" align="center" height="19">Year</td>
0092:     <td class="small" align="center" height="19">Last Name</td>
0093:     <td class="small" align="center" height="19">First Name</td>
0094:     <td class="small" align="center" height="19">City</td>
0095:     <td class="small" align="center" height="19">St</td>
0096:     <td class="small" align="center" height="19">Entries</td>
0097:     <td class="small" align="center" height="19">Bad Email</td>
0098:     <td class="small" align="left" height="19">Email Address</td>
0099:     <td class="small" align="center" height="19">Paid By</td>
0100:     <td class="small" align="center" height="19"><a href="whoisin.asp?sort=ID"
0101:     class="smallUndl">ID</a></td>
0102: <%	bgcolor = "#e8e8e8"
0103: 		Do Until rs.EOF
0104: 		emailaddr = rs("EmailAddress").value
0105: 	
0106: 		
0107: 			If bgcolor = "#e8e8e8" Then
0108: 				bgcolor = "#ffffff"
0109: 			Else
0110: 				bgcolor = "#e8e8e8"
0111: 			End If
0112: 			val = rs("NumEntries").Value
0113: 			paid = rs("PaidEntries").Value
0114: 			Num2ndEntries = rs("Num2ndEntries").Value
0115: 			Paid2ndEntries = rs("Paid2ndEntries").Value
0116: 			If paid <> "" Then totpaid = totpaid + CInt(paid)
0117: 			If val > 0 Then
0118: 			totreg = totreg + 1
0119: 			End If
0120: 		PayPalUsed = rs("PayPalUsed").Value		
0121: 		CashUsed = rs("CashUsed").Value	
0122: 		VenMoUsed = rs("VenMoUsed").Value	
0123: 		ZelleUsed = rs("ZelleUsed").Value
0124: 		RegNumber = rs("RegNumber").Value
0125: 
0126: 
0127: 		If Val > Paid OR  Num2ndEntries > Paid2ndEntries Then
0128: 		PaidBy = ""
0129: 		Else
0130: 
0131: 		If PayPalUsed = True Then
0132: 		PaidBy = "PayPal"
0133: 		ElseIf CashUsed = True Then
0134: 		PaidBy = "Cash"
0135: 		ElseIf VenMoUsed = True Then
0136: 		PaidBy = "VenMo"
0137: 		ElseIf ZelleUsed = True Then
0138: 		PaidBy = "Zelle"
0139: 		Else
0140: 		PaidBy = "Check"
0141: 		End If
0142: End If
0143: 
0144: 	%>
0145:   </tr>
0146:   <tr bgcolor="<%= bgcolor %>">
0147:     <td class="smalldark" align="center" height="13"><%= totreg %>
0148: </td>
0149:     <td class="smalldark" align="center" height="13"><%= RegNumber %>
0150: </td>
0151:     <td class="smalldark" align="left" height="13"><%= rs("Season").Value %>
0152: </td>
0153:     <td class="smalldark" align="left" height="13"><%= rs("Name").Value %>
0154: </td>
0155:     <td class="smalldark" align="left" height="13"><%= rs("FirstName").Value %>
0156: </td>
0157:     <td class="smalldark" align="left" height="13"><%= rs("City").Value %>
0158: </td>
0159:     <td class="smalldark" align="left" height="13"><%= rs("State").Value %>
0160: </td>
0161:     <td class="smalldark" align="center" height="13"><%= val %>
0162: </td>
0163:     <td class="smalldark" align="center" height="13"><%= rs("InvalidEmail").Value %>
0164: </td>
0165:     <td class="smalldark" align="left" height="13"><a href="SearchResults.asp?EmailAddress=<%= emailaddr %>"><%= emailaddr %></a></td>
0166:     <td class="smalldark" align="left" height="13"><a
0167:     href="editSearchEntries.asp?id=<%= rs("ID").Value %>" class="smallblueUndl"><%= rs("ID").Value %></a></td>
0168: 	    <td class="smalldark" align="center" height="13"><%= PaidBy %>
0169: <%	   totentries = totentries + val
0170:        totssentries = totssentries + val2nd
0171:       rs.MoveNext
0172: 		Loop
0173: 		If bgcolor = "#e8e8e8" Then
0174: 				bgcolor = "#ffffff"
0175: 			Else
0176: 				bgcolor = "#e8e8e8"
0177: 			End If
0178: 
0179: 		rs.Close
0180: 		Set rs = Nothing	%>
0181:   </tr>
0182:   <tr bgcolor="<%= bgcolor %>">
0183:     <td class="smalldark" align="left" colspan="3" height="13">Total Registered: <%= totreg %> </td>
0184:     <td class="smalldark" align="left" colspan="2" height="13"><p align="right">Total Entries:</td>
0185:     <td></td>
0186:     <td class="smalldark" align="center" height="13"><%= totentries %>
0187: </td></tr><tr>
0188:     <td class="smalldark" align="left" colspan="3" height="13"><p align="center"><input
0189:     type="button" value="Go Back" class="norm" onClick="history.back()" style="float: center"></td>
0190:   </tr>
0191: </table>
0192: </body>
0193: </html>