Count Lines in Pages
Contents of Page: LoadMy4MasterFromMM2.asp
Number of Lines: 156
Last Modified: 8/22/2018 1:32:47 PM
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: 
0008: 	Set rsm = Server.CreateObject("ADODB.Recordset")
0009: 	
0010: 	sqlString = "SELECT * FROM My4_Master " & _
0011: 							"WHERE MMLastYear <> 2008 ORDER BY EmailAddress" 
0012: 	rsm.Open sqlString, conn2, adOpenDynamic, adLockOptimistic, adCmdText
0013: 
0014: 
0015: 
0016: 	totreg = 0
0017:    totentries = 0
0018:    totssentries = 0   
0019:    totpaid = 0
0020:    totmade = 0
0021:    tot2ndmade = 0
0022: %>
0023: <html>
0024: 
0025: <head>
0026: <link href="mm.css" rel="stylesheet" type="text/css">
0027: <script language="JavaScript" type="text/javascript">
0028: 		function deleteNode(id)	{
0029: 			if (!confirm("Are you sure you want to delete this entry?"))	{
0030: 				return;
0031: 			}
0032: 			window.location = "mmEntryDelete.asp?id="+id;
0033: 		}
0034: 	</script>
0035: 
0036: <title>March Madness - Search Results</title>
0037: </head>
0038: 
0039: <body bgcolor="#ffffff">
0040: 
0041: <table cellspacing="1" border="0" cellpadding="0" width="85%" align="center" height="53">
0042:   <tr>
0043: <%= SRTitle %>
0044:   </tr>
0045:   <tr>
0046:     <td width="30"></td>
0047:     <td width="40"></td>
0048:     <td width="110"><img src="clear.gif" width="1" height="2"></td>
0049:     <td width="90"><img src="clear.gif" width="1" height="2"></td>
0050:     <td width="150"><img src="clear.gif" width="1" height="2"></td>
0051:     <td width="40"><img src="clear.gif" width="1" height="2"></td>
0052:     <td width="30"><img src="clear.gif" width="1" height="2"></td>
0053:     <td width="30"><img src="clear.gif" width="1" height="2"></td>
0054:     <td width="200"><img src="clear.gif" width="1" height="2"></td>
0055:     <td width="30"><img src="clear.gif" width="1" height="2"></td>
0056:     <td width="50"><img src="clear.gif" width="1" height="2"></td>
0057:   </tr>
0058:   <tr bgcolor="#577fbe">
0059:     <td class="small" align="center" height="19"></td>
0060:     <td class="small" align="center" height="19">Year</td>
0061:     <td class="small" align="center" height="19">RegNo</td>    
0062:     <td class="small" align="center" height="19">Last Name</td>
0063:     <td class="small" align="center" height="19">First Name</td>
0064:     <td class="small" align="center" height="19">City</td>
0065:     <td class="small" align="center" height="19">St</td>
0066:     <td class="small" align="center" height="19">Entries</td>
0067:     <td class="small" align="center" height="19">Bad Email</td>
0068:     <td class="small" align="left" height="19">Email Address</td>
0069:     <td class="small" align="center" height="19"><a href="whoisin.asp?sort=ID"
0070:     class="smallUndl">ID</a></td>
0071: <%	bgcolor = "#e8e8e8"
0072: 		Do Until rsm.EOF
0073: 		emailaddress = rsm("EmailAddress").value
0074: 	Name = rsm("LastName").Value
0075: 	FirstName = rsm("FirstName").Value
0076: 	Address = rsm("Address").Value	
0077: 	City = rsm("City").Value
0078: 	State = rsm("State").Value
0079: 	If State = "" Then State = "ZZ"
0080: 	Zip = rsm("Zip").Value	
0081: 	password = rsm("Password").Value
0082: 
0083: 
0084: 
0085: 		Set rs = Server.CreateObject("ADODB.Recordset")	
0086: 		
0087: 		sqlString = "SELECT * FROM MMEntries " & _
0088: 							"WHERE EMailAddress = '" & emailaddress & "' "	& _
0089: 							" ORDER BY season DESC"
0090: 		rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0091:        If rs.Eof Then
0092: '		
0093: 	Else
0094:      		rsm("MMLastYear").Value = Season
0095: 
0096: 	 		rsm.Update
0097:      	End If
0098: 
0099: 
0100: 			If bgcolor = "#e8e8e8" Then
0101: 				bgcolor = "#ffffff"
0102: 			Else
0103: 				bgcolor = "#e8e8e8"
0104: 			End If
0105: 	%>
0106:   </tr>
0107:   <tr bgcolor="<%= bgcolor %>">
0108:     <td class="smalldark" align="center" height="13"><%= totreg %>
0109: </td>
0110:     <td class="smalldark" align="left" height="13"><%= Season %>
0111: </td>
0112:     <td class="smalldark" align="left" height="13"><%= RegNumber %> / .<%= OldMMLastYear %>.
0113: </td>
0114:     <td class="smalldark" align="left" height="13"><%= Name %>
0115: </td>
0116:     <td class="smalldark" align="left" height="13"><%= FirstName %>
0117: </td>
0118:     <td class="smalldark" align="left" height="13"><%= Address %>
0119: </td>
0120:     <td class="smalldark" align="left" height="13"><%= City %>
0121: </td>
0122:     <td class="smalldark" align="left" height="13"><%= State %>
0123: </td>
0124:     <td class="smalldark" align="left" height="13"><%= Zip %>
0125: </td>
0126: 
0127:    <td class="smalldark" align="left" height="13"><%= EmailAddress %>
0128: </td>
0129:     <td class="smalldark" align="left" height="13"><%=  NewFlag %>
0130: </td>
0131:     <td class="smalldark" align="left" height="13"><%=  OKtoUpdate %>
0132: </td>
0133: <%	   
0134:       rsm.MoveNext
0135: 		Loop
0136: 		If bgcolor = "#e8e8e8" Then
0137: 				bgcolor = "#ffffff"
0138: 			Else
0139: 				bgcolor = "#e8e8e8"
0140: 			End If
0141: 
0142:      	rsm.Close
0143: 	 	Set rsm = Nothing		%>
0144:   </tr>
0145:   <tr bgcolor="<%= bgcolor %>">
0146:     <td class="smalldark" align="left" colspan="3" height="13">Total Registered: <%= totreg %> </td>
0147:     <td class="smalldark" align="left" colspan="2" height="13"><p align="right">Total Entries:</td>
0148:     <td></td>
0149:     <td class="smalldark" align="center" height="13"><%= totentries %>
0150: </td>
0151:     <td class="smalldark" align="left" colspan="3" height="13"><p align="center"><input
0152:     type="button" value="Go Back" class="norm" onClick="history.back()" style="float: center"></td>
0153:   </tr>
0154: </table>
0155: </body>
0156: </html>