Sure Bet

<%@ Language=VBScript %> <% Response.Expires=-1 'Response.write Session("ValidUser") If Session("ValidUser") <> 1 then Response.Redirect "login.asp" Else Session("LastPage") = Session("CurrentPage") Session("CurrentPage") = "WagerSubMenuA.asp" End if '///////////////////////////////////////////////////////////////////////////////////// '/ '/ Functions '/ '///////////////////////////////////////////////////////////////////////////////////// '///////////////////////////////////////////////////////////////////////////////////// '/ '/ Main Section '/ '///////////////////////////////////////////////////////////////////////////////////// Dim bFootballNFL Dim bFootballNFL_Full Dim bFootballNFL_Half Dim bFootballNFL_Qtr Dim bFootballCollege Dim bFootballCollege_Full Dim bFootballCollege_Half Dim bFootballCollege_Qtr Dim bFootballCanadian Dim bFootballArena Dim bBasketballNBA Dim bBasketballNBA_Full Dim bBasketballNBA_Half Dim bBasketballNBA_Qtr Dim bBasketballCollege Dim bBasketballCollege_Full Dim bBasketballCollege_Half Dim bBasketballCollege_Qtr Dim bBasketballEuropean Dim bBasketballWNBA Dim bBaseballMLB Dim bBaseballMLB2Run Dim bBaseballMLBHalf Dim bBaseballMLBAltRun Dim bBaseballMLBHRE Dim bHockeyNHL Dim bHockeyEuropean Dim bSoccerPro Dim bSoccerPro_Full Dim bSoccerPro_Half Dim bSoccerWorldCup Dim bSoccerWorldCup_Full Dim bSoccerWorldCup_Half Dim bOther_Boxing Dim bOther_Golf Dim bOther_NASCAR Dim bOther_Tennis Dim bAutoChecked Dim txtPassword Dim oRS Dim iResult Dim strConn Dim oConn Dim sSQL Dim sWagerType 'On Error goto ErrorHandler sWagerType = UCase(Trim(Request.QueryString("WagerType"))) 'response.write(request.querystring("WagerType")) 'Initialise everything bFootball = 0 bBasketball = 0 bBaseball = 0 bHockey = 0 bSoccer = 0 bOtherSports = 0 ' bFootballNFL = 0 bFootballNFL_Full = 0 bFootballNFL_Half = 0 bFootballNFL_Qtr = 0 ' bFootballCollege = 0 bFootballCollege_Full = 0 bFootballCollege_Half = 0 bFootballCollege_Qtr = 0 ' bFootballCanadian = 0 bFootballArena = 0 ' bBasketballNBA = 0 bBasketballNBA_Full = 0 bBasketballNBA_Half = 0 bBasketballNBA_Qtr = 0 ' bBasketballCollege = 0 bBasketballCollege_Full = 0 bBasketballCollege_Half = 0 bBasketballCollege_Qtr = 0 ' bBasketballEuropean = 0 bBasketballWNBA = 0 ' bBaseballMLB = 0 bBaseballMLB2Run = 0 bBaseballMLBHalf = 0 bBaseballMLBAltRun = 0 bBaseballMLBHRE = 0 ' bHockeyNHL = 0 bHockeyEuropean = 0 ' bSoccerPro = 0 bSoccerPro_Full = 0 bSoccerPro_Half = 0 ' bSoccerWorldCup = 0 bSoccerWorldCup_Full = 0 bSoccerWorldCup_Half = 0 ' bOther_Boxing = 0 bOther_Golf = 0 bOther_NASCAR = 0 bOther_Tennis = 0 ' bAutoChecked = 0 ' strConn = ";DRIVER={SQL Server};UID=BetUser;PWD=12NewYorkcitY2006;DATABASE=Betrci;SERVER=localhost;" ' Set oConn = server.CreateObject("adodb.connection") ' oConn.Open strConn ' Set cmd = Server.CreateObject("ADODB.Command") ' Set cmd.ActiveConnection = oConn ' cmd.CommandText = "{?=call AvailableGames()}" ' Set oRS = Server.CreateObject("ADODB.Recordset") ' oRS.CursorType = 3 ' oRS.CursorLocation = 3 ' oRS.Open cmd.Execute ' response.write ("Recordcount :") & oRS.recordcount strConn = ";DRIVER={SQL Server};UID=BetUser;PWD=12NewYorkcitY2006;DATABASE=Betrci;SERVER=localhost;" Set oConn = server.CreateObject("adodb.connection") oConn.Open strConn Set oRS = Server.CreateObject("ADODB.Recordset") oRS.CursorType = 3 oRS.CursorLocation = 3 oRS.Open "Exec AvailableGames", oConn 'response.write ("Recordcount :") & oRS.recordcount ' response.write ("GameTypeID :") & oRS.Fields("GameTypeID").Value Do While Not oRS.EOF Select case cint(oRS.Fields("GameTypeID").Value) case 1 'Baseball bBaseball = 1 if oRS.Fields("Team_League").Value & "" = "MLB" then bBaseballMLB = 1 bBaseballMLB2Run = 1 bBaseballMLBHalf = 1 bBaseballMLBAltRun = 1 bBaseballMLBHRE = 1 end if case 2 'Football bFootball = 1 if oRS.Fields("Team_League").Value & "" = "NFL" then bFootballNFL = 1 bFootballNFL_Full = 1 bFootballNFL_Half = 1 bFootballNFL_Qtr = 1 end if if oRS.Fields("Team_League").Value & "" = "College" then bFootballCollege = 1 bFootballCollege_Full = 1 bFootballCollege_Half = 1 bFootballCollege_Qtr = 1 end if if oRS.Fields("Team_League").Value & "" = "Canadian" then bFootballCanadian = 1 end if if oRS.Fields("Team_League").Value & "" = "Arena" then bFootballArena = 1 end if case 3 'Hockey bHockey = 1 if oRS.Fields("Team_League").Value & "" = "NHL" then bHockeyNHL = 1 end if if oRS.Fields("Team_League").Value & "" = "European" then bHockeyEuropean = 1 end if case 4 'Soccer bSoccer = 1 if oRS.Fields("Team_League").Value & "" = "SoccerPro" then bSoccerPro = 1 bSoccerPro_Full = 1 bSoccerPro_Half = 1 end if if oRS.Fields("Team_League").Value & "" = "WorldCup" then bSoccerWorldCup = 1 bSoccerWorldCup_Full = 1 bSoccerWorldCup_Half = 1 end if case 5 'Basketball bBasketball = 1 if oRS.Fields("Team_League").Value & "" = "NBA" then bBasketballNBA = 1 bBasketballNBA_Full = 1 bBasketballNBA_Half = 1 bBasketballNBA_Qtr = 1 end if if oRS.Fields("Team_League").Value & "" = "College" then bBasketballCollege = 1 bBasketballCollege_Full = 1 bBasketballCollege_Half = 1 bBasketballCollege_Qtr = 1 end if if oRS.Fields("Team_League").Value & "" = "European" then bBasketballEuropean = 1 end if if oRS.Fields("Team_League").Value & "" = "WNBA" then bBasketballWNBA = 1 end if case 6 'Other Sports bOtherSports = 1 bOther_Boxing = 1 bOther_Golf = 1 bOther_NASCAR = 1 bOther_Tennis = 1 End Select oRS.MoveNext Loop %> Sure Bet <% if sWagerType = "BOARD" then response.write("

") elseif sWagerType = "PARLAY" then response.write("") elseif sWagerType = "MONEYLINE" then response.write("") end if %> <% If Session("ValidUser") <> 1 then Response.write "" Else Response.write "" End if %>

<% if sWagerType = "BOARD" then response.write("Straight Board Wager Sub-Menu") elseif sWagerType = "PARLAY" then response.write("Parlay Sub-Menu") elseif sWagerType = "MONEYLINE" then response.write("Money Line Sub Menu") end if %>


") else response.write(" >") end if else response.write(" disabled='false'>") end if %> Football	") else response.write(" >") end if else response.write(" disabled='false'>") end if %> Basketball	") else response.write(" >") end if else response.write(" disabled='false'>") end if %> Baseball	") else response.write(" >") end if else response.write(" disabled='false'>") end if %> Hockey	") else response.write(" >") end if else response.write(" disabled='false'>") end if %> Soccer	") else response.write(" >") end if else response.write(" disabled='false'>") end if %> Other Sports
") else response.write(" >") end if else response.write(" disabled='false'>") end if %> NFL	") else response.write(" >") end if else response.write(" disabled='false'>") end if %> NBA	") else response.write(" >") end if else response.write(" disabled='false'>") end if %> MLB	") else response.write(" >") end if else response.write(" disabled='false'>") end if %> Hockey	") else response.write(" >") end if else response.write(" disabled='false'>") end if %> Soccer Pro	") else response.write(" >") end if else response.write(" disabled='false'>") end if %> Other Sports
") else response.write(" >") end if else response.write(" disabled='false'>") end if %> NFL Full ") else response.write(" >") end if else response.write(" disabled='false'>") end if %> NFL 1/2's ") else response.write(" >") end if else response.write(" disabled='false'>") end if %> NFL 1/4's	") else response.write(" >") end if else response.write(" disabled='false'>") end if %> NBA Full ") else response.write(" >") end if else response.write(" disabled='false'>") end if %> NBA 1/2's ") else response.write(" >") end if else response.write(" disabled='false'>") end if %> NBA 1/4's	") else response.write(" >") end if else response.write(" disabled='false'>") end if %> MLB 2 1/2 Run ") else response.write(" >") end if else response.write(" disabled='false'>") end if %> MLB 1/2's ") else response.write(" >") end if else response.write(" disabled='false'>") end if %> MLB Alt Run ") else response.write(" >") end if else response.write(" disabled='false'>") end if %> MLB HRE	") else response.write(" >") end if else response.write(" disabled='false'>") end if %> NHL ") else response.write(" >") end if else response.write(" disabled='false'>") end if %> European	") else response.write(" >") end if else response.write(" disabled='false'>") end if %> Pro Full ") else response.write(" >") end if else response.write(" disabled='false'>") end if %> Pro 1/2's	") else response.write(" >") end if else response.write(" disabled='false'>") end if %> Boxing ") else response.write(" >") end if else response.write(" disabled='false'>") end if %> Golf ") else response.write(" >") end if else response.write(" disabled='false'>") end if %> Tennis ") else response.write(" >") end if else response.write(" disabled='false'>") end if %> NASCAR
") else response.write(" >") end if else response.write(" disabled='false'>") end if %> College Football	") else response.write(" >") end if else response.write(" disabled='false'>") end if %> College Basketball			") else response.write(" >") end if else response.write(" disabled='false'>") end if %> World Cup
") else response.write(" >") end if else response.write(" disabled='false'>") end if %> College Full ") else response.write(" >") end if else response.write(" disabled='false'>") end if %> College 1/2's ") else response.write(" >") end if else response.write(" disabled='false'>") end if %> College 1/4's	") else response.write(" >") end if else response.write(" disabled='false'>") end if %> College Full ") else response.write(" >") end if else response.write(" disabled='false'>") end if %> College 1/2's ") else response.write(" >") end if else response.write(" disabled='false'>") end if %> College 1/4's			") else response.write(" >") end if else response.write(" disabled='false'>") end if %> World Cup Full ") else response.write(" >") end if else response.write(" disabled='false'>") end if %> World Cup1/2's
") else response.write(" >") end if else response.write(" disabled='false'>") end if %> Canadian	") else response.write(" >") end if else response.write(" disabled='false'>") end if %> European
") else response.write(" >") end if else response.write(" disabled='false'>") end if %> Arena	") else response.write(" >") end if else response.write(" disabled='false'>") end if %> WNBA