Count Lines in Pages
Contents of Page: proppicks2.asp
Number of Lines: 168
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: 
0007: 	If EventID = "" Then
0008: 	EventID = PROPDEFAULTEVENT
0009: 	End If
0010: 
0011: 			Set rsm = Server.CreateObject("ADODB.Recordset")
0012: 	sqlString = "SELECT * FROM PropEvents WHERE ID = " & EventID 
0013:    
0014: 	rsm.Open sqlString, conn3, adOpenStatic, adLockReadOnly, adCmdText
0015: 	EventFirstName = rsm("FirstName").Value
0016: 	EventSecondName = rsm("SecondName").Value
0017: 	StopMakingPicks = rsm("StopMakingPicks").Value
0018: 
0019:     rsm.Close
0020: 	Set rsm = Nothing
0021: 
0022: 	If StopMakingPicks = "YES" Then
0023: 	Response.Redirect("PropStandings.asp")
0024: 	End If
0025: 
0026:  	EntryID = Request.QueryString("EntryID")
0027: 
0028: 		Set rsm = Server.CreateObject("ADODB.Recordset")
0029: 	sqlString = "SELECT * FROM PropEntries WHERE ID = " & EntryID 
0030:    
0031: 	rsm.Open sqlString, conn3, adOpenStatic, adLockReadOnly, adCmdText
0032: 	EventID = rsm("EventID").Value
0033: 	RegNumber = rsm("RegNumber").Value
0034: 	FirstName = rsm("FirstName").Value
0035: 	LastName = rsm("LastName").Value
0036: 	EmailAddress = rsm("EmailAddress").Value
0037: 	CitySt = rsm("CitySt").Value
0038:     rsm.Close
0039: 	Set rsm = Nothing
0040: 
0041: 		Set rsm = Server.CreateObject("ADODB.Recordset")
0042: 	sqlString = "SELECT * FROM PropEvents WHERE ID = " & EventID 
0043:    
0044: 	rsm.Open sqlString, conn3, adOpenStatic, adLockReadOnly, adCmdText
0045: 
0046: 	EventDescription = rsm("EventDescription").Value
0047:     rsm.Close
0048: 	Set rsm = Nothing
0049: 
0050: '		Set rsm = Server.CreateObject("ADODB.Recordset")
0051: '	sqlString = "SELECT * FROM PropMaster WHERE RegNumber = " & RegNumber 
0052: '   
0053: '	rsm.Open sqlString, conn3, adOpenStatic, adLockReadOnly, adCmdText
0054: '
0055: '	NumberOfEntries = rsm("NumberOfEntries").Value
0056: '    rsm.Close
0057: '	Set rsm = Nothing
0058: 
0059: %>
0060: <html>
0061: 
0062: <head>
0063: <meta http-equiv="Content-Language" content="en-us">
0064: <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
0065: <link href="mm.css" rel="stylesheet" type="text/css">
0066: <title>PickASquare - Proposition Bets</title>
0067: </head>
0068: <%	
0069: 
0070: 
0071: 	Set rst = Server.CreateObject("ADODB.Recordset")
0072: 	sqlString = "SELECT * FROM PropBets WHERE EventID = " & EventID & " ORDER By DisplayOrder, ID"
0073: 	rst.Open sqlString, conn3, adOpenStatic, adLockReadOnly, adCmdText
0074: 
0075: 
0076: 
0077: %>
0078: <table border="0" cellpadding="1" width="550">
0079: <form method="POST" action="proppickspost.asp?RegNumber=<%= RegNumber %>&EventID=<%= EventID %>&EntryID=<%= EntryID %>">
0080: <tr>
0081: <td class="bigblue" colspan="10"><%= EventDescription %> Proposition Bets</td>
0082: </tr>
0083: <tr>
0084: <td size="5%">&nbsp;</td>
0085: <td size="70%" class="norm" align="right"><big>Prop Bet Description</big></td>
0086: <td size="3%" class="norm" align="left"></td>
0087: <td size="22%" class="norm" align="left">Selection</td>
0088: 
0089: <%
0090: bgcolor = "#FFFFFF"
0091: Dim Options(4)
0092: Kount = 0
0093: Do Until rst.Eof
0094: ID = rst("ID").Value
0095: PropDescription = rst("PropDescription").Value
0096: Options(1) = Trim(rst("Option1").Value)
0097: Options(2) = Trim(rst("Option2").Value)
0098: Options(3) = rst("Option3").Value
0099: Options(4) = rst("Option4").Value
0100: If Options(1) = "" Then
0101: Options(1) = EventFirstName
0102: End If
0103: If Options(2) = "" Then
0104: Options(2) = EventSecondName
0105: End If
0106: 
0107: 	Set rsp = Server.CreateObject("ADODB.Recordset")
0108: 	sqlString = "SELECT * FROM PropPicks WHERE EntryID = '" & EntryID & "' " & _
0109: 	            "AND  PropBetID = " & ID
0110: 	rsp.Open sqlString, conn3, adOpenStatic, adLockReadOnly, adCmdText
0111: 	If rsp.Eof Then
0112: 	Selection = ""  
0113: 	PickName = "- Make Selection -" 
0114: 	Else
0115:     Selection = rsp("Selection").Value
0116: 	If Selection <> "" Then
0117: 	PickName = Options(Selection)
0118: 	Else
0119: 	Selection = ""  
0120: 	PickName = "- Make Selection -" 
0121: 	End If
0122: 	End If
0123: 	
0124: 'Response.Write("<BR>EntryID=" & EntryID & " PropBetID=" & ID & " Selection=" & Selection)
0125: 
0126: 
0127: Kount = Kount + 1
0128: %>
0129:     <tr height="24" bgcolor="<%= bgcolor %>">
0130: 
0131: <td class="normbold" align="center"><%= Kount %></td>
0132: <td class="normbold" align="right"><%= PropDescription %></td>
0133: <td class="normbold" align="right"> </td>
0134: <td  align="left"><select name="<%= ID %>" size="1">
0135:         <option value="<%= Selection %>"><%= PickName %></option>
0136:         <option value="1"><%= Options(1) %></option>
0137:         <option value="2"><%= Options(2) %></option>
0138: <% If Options(3) <> "" Then %>
0139:         <option value="3"><%= Options(3) %></option>
0140: <% End If %>
0141: <% If Options(4) <> "" Then %>
0142:         <option value="4"><%= Options(4) %></option>
0143: <% End If %>
0144:       </select>	   
0145: 	  </td>
0146: 
0147:  
0148:     </tr>
0149: 
0150: <%
0151: 
0152: If bgcolor = "#FFFFFF" Then
0153: bgcolor = "#BDBDBD"
0154: Else
0155: bgcolor = "#FFFFFF"
0156: End If
0157: rst.MoveNext
0158: Loop
0159: %>
0160: 
0161: 	<tr><td>&nbsp </td></tr>
0162: 	<tr><td colspan="6"><input type="submit" value="Post Your Selections" name="B1"></td></tr>
0163: 	<tr><td>&nbsp </td></tr>
0164: 	<tr><td colspan="6" class="norm"><big>** Winner will be the one who has the more correct selections.  <br>In case of a tie, 1st pick is the tie breaker, then 2nd, and so on...</td></tr>
0165:   </table>
0166: </form>
0167: </body>
0168: </html>