Count Lines in Pages
Contents of Page: proppicksdisplay2.asp
Number of Lines: 183
Last Modified: 8/22/2018 1:33:11 PM
0001: <% @Language = "VBScript" %>
0002: <!-- #include FILE="include/adovbs.inc" -->
0003: <!-- #include FILE="include/constants.inc" -->
0004: <!-- #include FILE="include/funcs.asp" -->
0005: <%
0006: EntryID = Request.QueryString("EntryID")
0007: 
0008: 	Email = Request.Cookies("user")
0009: 
0010: 
0011: 
0012: %>
0013: <html>
0014: 
0015: <head>
0016: <meta http-equiv="Content-Language" content="en-us">
0017: <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
0018: <link href="mm.css" rel="stylesheet" type="text/css">
0019: <title>March Madness Contest - Proposition Bets</title>
0020: </head>
0021: <%	
0022: 
0023: 
0024: 	Set rst = Server.CreateObject("ADODB.Recordset")
0025: 	sqlString = "SELECT * FROM PropBets WHERE Season = " & Season & " ORDER By DisplayOrder, ID"
0026: 	rst.Open sqlString, conn3, adOpenStatic, adLockReadOnly, adCmdText
0027: 
0028: ' Response.Write("<BR>" & sqlstring)
0029: 
0030: 'Dim Results(2,100)
0031: 'Kount = 0
0032: '	Do Until rst.Eof
0033: '	Kount = Kount + 1
0034: 'Results(1,Kount) = rst("WhoWon").Value
0035: 'Results(2,Kount) = rst("ActualResult").Value
0036: '
0037: '	 rst.MoveNext
0038: '	 Loop
0039: 
0040: 
0041: Dim MyPicks
0042: 
0043: 	Set rsp = Server.CreateObject("ADODB.Recordset")
0044: 
0045: If EntryID <> "" Then
0046: 	sqlString = "SELECT * FROM PropPicks WHERE ID = " & EntryID
0047: Else
0048: 		sqlString = "SELECT * FROM PropPicks WHERE Season = " & Season & " AND EmailAddress = '" & Email & "'"
0049: End If
0050: 
0051: ' Response.Write("<BR>" & sqlstring)
0052: 
0053: 	rsp.Open sqlString, conn3, adOpenStatic, adLockReadOnly, adCmdText
0054: 
0055:     MySelections = rsp("MySelections").Value
0056: 	EmailAddress = rsp("EmailAddress").Value
0057: 	TotalPoints = rsp("TotalPoints").Value
0058: 
0059: 	MyPicks = Split(MySelections,"-")
0060: 
0061: 
0062: 				Set rsEntry = Server.CreateObject("ADODB.Recordset")
0063:     	sqlString = "SELECT * FROM mmEntries " & _
0064: 							"WHERE EmailAddress = '" & EmailAddress & "' " & _
0065: 							"AND Season = " & season
0066: 	rsEntry.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0067: LastName = rsEntry("Name").Value
0068: FirstName = rsEntry("FirstName").Value
0069: City = rsEntry("City").Value
0070: State = rsEntry("State").Value
0071: 	FullName = LastName & ", " & FirstName 
0072: 	CitySt = City & ", " & State
0073: 
0074: If STOPMAKEPICKS <> "YES" Then
0075: TabWidth="650"
0076: Else
0077: TabWidth="750"
0078: End If
0079: 
0080: %>
0081: <table border="0" cellpadding="0" width="<%= TabWidth %>">
0082: <tr>
0083: <td class="norm" colspan="5"><b><big><%= FirstName %>&nbsp;<%= LastName %></b>&nbsp;&nbsp;&nbsp;(<%= CitySt %>)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Total Points: <b> <%= TotalPoints %>
0084: 
0085: <%		If MyRegNo = "1000" Then
0086: %>
0087: <br><%= EmailAddress %>
0088: <% End If %>
0089: </td>
0090: </tr>
0091: <tr bgcolor="#33cc00"><td class="normbold" size = "10%">Prop<br>Bet#</td>
0092: <td class="normbold" size = "50%" align="center">Propopstion Bet Description</td>
0093: <td class="norm" size = "5%">Your<br>Pick#</td>
0094: <td class="norm" size = "15%" align="center">Selection</td>
0095: <% If STOPMAKEPICKS = "YES" Then %>
0096: <td class="norm" size = "5%">Result<br>Pick#</td>
0097: <td class="norm" size = "15%" align="center">Actual Result</td>
0098: <% End If %>
0099: </tr>
0100: 
0101: 
0102: <%
0103: Dim Options(5)
0104: bgcolor = "#FFFFFF"
0105: Kount = 0
0106: Do Until rst.Eof
0107: ID = rst("ID").Value
0108: PropDescription = rst("PropDescription").Value
0109: WhoWon =  Trim(rst("WhoWon").Value)
0110: ActualResult = rst("ActualResult").Value
0111: Options(1) = rst("Option1").Value
0112: Options(2) = rst("Option2").Value
0113: Options(3) = rst("Option3").Value
0114: Options(4) = rst("Option4").Value
0115: Options(5) = rst("Option5").Value
0116: 
0117: 
0118: If WhoWon <> "" Then
0119: X = CInt(WhoWon)
0120: ActualWin = Options(X)
0121: Else
0122: ActualWin = ""
0123: End If
0124: 
0125: Kount = Kount + 1
0126: 
0127: 
0128: PickName = Options(MyPicks(Kount))
0129: 
0130: 	If WhoWon = "" Then
0131: 		FontColor = "Black"
0132: 	ElseIf WhoWon = MyPicks(Kount) Then
0133: 		FontColor = "#33cc00"
0134: 	Else
0135: 		FontColor = "Red"
0136: 	End If
0137: 
0138: 
0139: 
0140: %>
0141:     <tr height="24" bgcolor="<%= bgcolor %>">
0142: <td class="normbold" align="center"><big><%= Kount %></td>
0143:       <td class="normbold" align="Right"><i><%= PropDescription %>&nbsp;&nbsp;&nbsp;&nbsp;</td>
0144: <td class="normbold" align="center"><%= MyPicks(Kount) %></td>
0145:       <td class="normbold" align="center"><big><Font color="<%= FontColor %>"><%= PickName %>
0146: <% If ActualResult <> "" Then %>
0147: <br><small>(<%= ActualResult %>)
0148: <% End If %>
0149: <% If STOPMAKEPICKS = "YES" Then %>
0150: <td class="normbold" align="center"><%= WhoWon %> </td>
0151: <td class="normbold" align="center"><%= ActualWin %> </td>
0152: <% End If %>
0153: 	  </font></td>
0154: 
0155: 
0156:  
0157:     </tr>
0158: 
0159: <%
0160: 
0161: If bgcolor = "#FFFFFF" Then
0162: bgcolor = "#BDBDBD"
0163: Else
0164: bgcolor = "#FFFFFF"
0165: End If
0166: rst.MoveNext
0167: Loop
0168: %>
0169: 
0170: 	<tr><td colspan="3" class="norm">
0171: 	<a href="javascript:window.print()"><font face="Arial" size="2.5"><b> Print</b></font></a>&nbsp;&nbsp;
0172: 	<% If STOPMAKEPICKS <> "YES" Then %>
0173: 	|&nbsp;&nbsp;
0174: 	<a href="Proppicks1.asp?EntryID=<%= EntryID %>"><font face="Arial" size="2"><b>Change Selections</b></font></a>
0175: 	<% End If %>
0176: 	</td></tr>
0177: 
0178: 
0179: 
0180:   </table>
0181: </form>
0182: </body>
0183: </html>