<%@ Language=VBScript %> <% Response.Expires=-1 If Session("ValidUser") <> 1 then Response.Redirect "login.asp" Else Session("LastPage") = Session("CurrentPage") Session("CurrentPage") = "StraightWagerBetConfirm.asp" End if %> <% 'response.write("LastPage:" & Session("LastPage") & "
") 'response.write("CurrentPage:" & Session("CurrentPage") & "
") %> <% pStr="private,no-cache, must-revalidate" response.expiresAbsolute=#2000-01-01# response.addheader "pragma","no-cache" response.addheader "cache-control",pStr %> <% '///////////////////////////////////////////////////////////////////////////////////// '/ '/ Functions '/ '///////////////////////////////////////////////////////////////////////////////////// Function IIf( expr, truepart, falsepart ) IIf = falsepart If expr Then IIf = truepart End Function Function CollectFormParameters() Dim oParamsRS Set oParamsRS = Server.CreateObject("ADODB.Recordset") oParamsRS.CursorType = 3 oParamsRS.CursorLocation = 3 oParamsRS.CursorLocation = adUseClient SET oParamsRS = BuildRecordset For each inputField in Request.Form For each inputValue in Request.Form(inputField) sInput = Split(inputField,";") if ubound(sInput) > 0 and inputvalue <> "" then GetGameTypeIDFromGame sInput(1), sGameTypeID, sGameDesc ' response.write sInput(0) oParamsRS.AddNew oParamsRS.Fields("Game_ID").Value = sInput(1) oParamsRS.Fields("GameLine_ID").Value = sInput(2) oParamsRS.Fields("Length").Value = sInput(3) oParamsRS.Fields("GameType_ID").Value = sGameTypeID oParamsRS.Fields("Location").Value = iif(instr(sInput(0), "Visitor"),"Visitor", "Home") oParamsRS.Fields("GameDesc").Value = sGameDesc oParamsRS.Fields("InputValue").Value = inputValue oParamsRS.Fields("InputField").Value = sInput(0) oParamsRS.Fields("League").Value = sInput(4) oParamsRS.Fields("LeagueConf").Value = "" oParamsRS.Fields("GameTypeOrder").Value = GetGameTypeOrder(sGameTypeID) oParamsRS.Fields("PeriodOrder").Value = GetPeriodOrder(sInput(3)) oParamsRS.Fields("LeagueOrder").Value = GetLeagueOrder(sInput(4)) oParamsRS.Fields("BetParamOrder").Value = BetParamOrder(sInput(0)) End If Next Next 'response.write "
Recordset Recordcount: " & oParamsRS.recordcount & "
" SET CollectFormParameters = oParamsRS End Function Public Function GetGameTypeOrder(inGameTypeID) Select case cint(inGameTypeID) case 1 GetGameTypeOrder = 1 case 2 GetGameTypeOrder = 2 case 3 GetGameTypeOrder = 3 case 4 GetGameTypeOrder = 4 case 5 GetGameTypeOrder = 5 case 6 GetGameTypeOrder = 6 case 7 GetGameTypeOrder = 7 case 8 GetGameTypeOrder = 8 End Select End Function Public Function GetPeriodOrder(inPeriod) Select case inPeriod case "Game" GetPeriodOrder = 1 case "1stHalf" GetPeriodOrder = 2 case "2ndHalf" GetPeriodOrder = 3 case "1stQtr" GetPeriodOrder = 4 case "2ndQtr" GetPeriodOrder = 5 case "3rdQtr" GetPeriodOrder = 6 case "4thQtr" GetPeriodOrder = 7 End Select End Function Public Function GetLeagueOrder(inLeague) Select case inLeague case "NFL" GetLeagueOrder = 1 case "NBA" GetLeagueOrder = 2 case "College" GetLeagueOrder = 3 End Select End Function Public Function BetParamOrder(inParamOrder) Select case inParamOrder case "txtVisitorSpread" BetParamOrder = 1 case "txtVisitorMoneyLine" BetParamOrder = 2 case "txtTotalPointOver" BetParamOrder= 3 case "txtVisitorTeamTotalPointsOver" BetParamOrder= 4 case "txtVisitorTeamTotalPointsUnder" BetParamOrder= 5 case "txtHomeSpread" BetParamOrder= 6 case "txtHomeMoneyLine" BetParamOrder= 7 case "txtTotalPointsUnder" BetParamOrder= 8 case "txtHomeTeamTotalPointsOver" BetParamOrder= 9 case "txtHomeTeamTotalPointsUnder" BetParamOrder= 10 case else 'response.write "I am: " & inParamOrder & "
" End Select End Function Public Function BuildRecordset() Set oRS2 = Server.CreateObject("ADODB.Recordset") oRS2.CursorType = 3 oRS2.CursorLocation = 3 oRS2.CursorLocation = adUseClient oRS2.Fields.Append "Game_ID", adDouble, , adFldMayBeNull oRS2.Fields.Append "GameLine_ID", adDouble, , adFldMayBeNull oRS2.Fields.Append "Length", adVarChar, 50, adFldMayBeNull oRS2.Fields.Append "GameType_ID", adDouble, , adFldMayBeNull oRS2.Fields.Append "GameDesc", adVarChar, 50, adFldMayBeNull oRS2.Fields.Append "InputValue", adVarChar, 50, adFldMayBeNull oRS2.Fields.Append "InputField", adVarChar, 50, adFldMayBeNull oRS2.Fields.Append "Location", adVarChar, 50, adFldMayBeNull oRS2.Fields.Append "League", adVarChar, 50, adFldMayBeNull oRS2.Fields.Append "LeagueConf", adVarChar, 50, adFldMayBeNull oRS2.Fields.Append "GameTypeOrder", adInteger, , adFldMayBeNull oRS2.Fields.Append "PeriodOrder", adInteger, , adFldMayBeNull oRS2.Fields.Append "LeagueOrder", adInteger, , adFldMayBeNull oRS2.Fields.Append "BetParamOrder", adInteger, , adFldMayBeNull oRS2.open Set BuildRecordset = oRS2 End Function Sub GetGameTypeIDFromGame(pGameID, pGameTypeID, pGameDesc) strConn = ";DRIVER={SQL Server};UID=BetUser;PWD=12NewYorkcitY2006;DATABASE=Betrci;SERVER=localhost;" Set oConn = server.CreateObject("adodb.connection") oConn.Open strConn set oCmd = Server.CreateObject("ADODB.Command") With oCmd .ActiveConnection = oConn .CommandText = "GetGameTypeFromGame" .CommandType = adCmdStoredProc 'Add Input Parameters .Parameters.Append .CreateParameter("@Game_ID", adBigInt, adParamInput, , pGameID) .Parameters.Append .CreateParameter("@GameType_ID", adBigInt, adParamOutput, , 0) .Parameters.Append .CreateParameter("@GameDesc", advarchar, adParamOutput, 50, 0) 'Execute the function 'If not returning a recordset, use the adExecuteNoRecords parameter option .Execute, , adExecuteNoRecords pGameTypeID= .Parameters("@GameType_ID") pGameDesc= .Parameters("@GameDesc") End With End Sub Sub GetBetFigures(dBetAmount, dJuice, dRiskAmount, dWinAmount) if dJuice > 0 then dWinAmount = round(dBetAmount * (abs(dJuice)/100), 2) dRiskAmount = dBetAmount else dRiskAmount = round(dBetAmount * (abs(dJuice)/100), 2) dWinAmount = dBetAmount end if End Sub Function GetMyClientID() strConn = ";DRIVER={SQL Server};UID=BetUser;PWD=12NewYorkcitY2006;DATABASE=Betrci;SERVER=localhost;" Set oConn = server.CreateObject("adodb.connection") oConn.Open strConn sSql = "Select * from Clients where upper(userid) = '" & ucase(Session("Usercode")) & "' " & _ "And Password = '" & Request.Form("txtPassword")& "'" Set RS = Server.CreateObject("ADODB.Recordset") RS.CursorType = 3 RS.CursorLocation = 3 RS.ActiveConnection = oConn RS.Open sSql GetMyClientID = RS.Fields("Client_ID").value & "" End Function Sub InsertBet(pBetTypeID, pDesc, pWagerAmount, pPayAmount, pSequence, pConfirmationNo) strConn = ";DRIVER={SQL Server};UID=BetUser;PWD=12NewYorkcitY2006;DATABASE=Betrci;SERVER=localhost;" Set oConn = server.CreateObject("adodb.connection") oConn.Open strConn set oCmd = Server.CreateObject("ADODB.Command") With oCmd .ActiveConnection = oConn .CommandText = "InsertBet" .CommandType = adCmdStoredProc 'Add Input Parameters .Parameters.Append .CreateParameter("@BetType_ID", adBigInt, adParamInput, , pBetTypeID) .Parameters.Append .CreateParameter("@Desc", advarchar, adParamInput, 50, pDesc) .Parameters.Append .CreateParameter("@Client_ID", adBigInt, adParamInput, , GetMyClientID ) .Parameters.Append .CreateParameter("@BetAmount", adCurrency, adParamInput, , pWagerAmount) .Parameters.Append .CreateParameter("@PayAmount", adCurrency, adParamInput, , pPayAmount) .Parameters.Append .CreateParameter("@Sequence", adBigInt, adParamOutput, , 0) .Parameters.Append .CreateParameter("@ConfirmationNo", advarchar, adParamOutput, 50, 0) 'Execute the function 'If not returning a recordset, use the adExecuteNoRecords parameter option .Execute, , adExecuteNoRecords pSequence= .Parameters("@Sequence") pConfirmationNo = .Parameters("@ConfirmationNo") End With End Sub Function DidGameLineChange(sGameID, sGameLineID) strConn = ";DRIVER={SQL Server};UID=BetUser;PWD=12NewYorkcitY2006;DATABASE=Betrci;SERVER=localhost;" Set oConn = server.CreateObject("adodb.connection") oConn.Open strConn 'response.write("The GameID: " & sGameID & "
") 'response.write("The GameLineID: " & sGameLineID & "
") GetGameTypeIDFromGame sGameID, sGameTypeID, sGameDesc if cdbl(sGameTypeID) = 2 then sSql = "SELECT dbo.CurrentFootballLine(" & sGameID & ") As CurrentLine " elseif cdbl(sGameTypeID) = 5 then sSql = "SELECT dbo.CurrentBasketballLine(" & sGameID & ") As CurrentLine " end if Set RS = Server.CreateObject("ADODB.Recordset") RS.CursorType = 3 RS.CursorLocation = 3 RS.ActiveConnection = oConn RS.Open sSql sCurrentGameLineID = RS.Fields("CurrentLine").value & "" If cdbl(sCurrentGameLineID) <> cdbl(sGameLineID) then DidGameLineChange = True Else DidGameLineChange = False End If 'response.write("The CurrentGameLineID: " & sCurrentGameLineID & "
") End Function Function InsertBetLine(sBet_ID, sGameLine_ID, sPeriod, sSelection, sTeam, sSpread, sJuice, sBetType, sTeamLeague, sGame_ID) strConn = ";DRIVER={SQL Server};UID=BetUser;PWD=12NewYorkcitY2006;DATABASE=Betrci;SERVER=localhost;" Set oConn = server.CreateObject("adodb.connection") oConn.Open strConn ' response.write("sBet_ID: " & sBet_ID & "
") ' response.write("sGameLine_ID: " & sGameLine_ID & "
" ) ' response.write("sPeriod: " & sPeriod & "
" ) ' response.write("sSelection: " & sSelection & "
" ) ' response.write("sTeam: " & sTeam & "
" ) ' response.write("sSpread: " & sSpread & "
" ) ' response.write("sJuice: " & sJuice & "
" ) ' response.write("sBetType: " & sBetType& "
" ) ' response.write("sTeamLeague: " & sTeamLeague & "
" ) ' response.write("sGame_ID: " & sGame_ID & "
" ) set oCmd = Server.CreateObject("ADODB.Command") With oCmd .ActiveConnection = oConn .CommandText = "InsertBetLine" .CommandType = adCmdStoredProc 'Add Input Parameters .Parameters.Append .CreateParameter("@Bet_ID", adBigInt, adParamInput, , sBet_ID) .Parameters.Append .CreateParameter("@Game_ID", adBigInt, adParamInput, , sGame_ID) .Parameters.Append .CreateParameter("@GameLine_ID", adBigInt, adParamInput, , sGameLine_ID) .Parameters.Append .CreateParameter("@Period", advarchar, adParamInput, 50, sPeriod) .Parameters.Append .CreateParameter("@Selection", advarchar, adParamInput, 50, sSelection) .Parameters.Append .CreateParameter("@Team", advarchar, adParamInput, 50, sTeam) .Parameters.Append .CreateParameter("@Spread", adDouble, adParamInput, , sSpread) .Parameters.Append .CreateParameter("@Juice", adDouble, adParamInput, , sJuice) .Parameters.Append .CreateParameter("@BetType", advarchar, adParamInput, 50, sBetType) .Parameters.Append .CreateParameter("@TeamLeague", advarchar, adParamInput, 50, sTeamLeague) 'Execute the function 'If not returning a recordset, use the adExecuteNoRecords parameter option .Execute, , adExecuteNoRecords End With End Function '///////////////////////////////////////////////////////////////////////////////////// '/ '/ Main Section '/ '///////////////////////////////////////////////////////////////////////////////////// 'Get Method 'For each inputField in Request.QueryString ' For each inputValue in Request.QueryString(inputField) ' response.write inputField & " = " & inputValue & "
" ' Next 'Next Dim oRS Dim iCount Dim strConn Dim oConn Dim sSQL Dim sInput Dim sBetTeam Dim sHeading Dim bLineChanged Dim bConfirm1 Dim bConfirm2 Dim sbgcolor %> Sure Bet <% If Session("ValidUser") <> 1 then Response.write "" Else Response.write "" End if %>
 
 
 

 

<% 'Response.write("Football Main - chkFootball: " & "" & Request.Form("chkFootball")) & "

" 'Response.write("Football (NFL) - chkFootballNFL: " & "" & Request.Form("chkFootballNFL")) & "

" 'Response.write("Football (NFL) FULL - chkNFLFull: " & "" & Request.Form("chkNFLFull")) & "

" 'Response.write("Football (NFL) Half - chkNFLhalf: " & "" & Request.Form("chkNFLhalf")) & "

" 'Response.write("Football (NFL) Qtr - chkNFLquarter: " & "" & Request.Form("chkNFLquarter")) & "

" 'Response.write("Football (College) - chkColFoot: " & "" & Request.Form("chkColFoot")) & "

" 'Response.write("Football (College) FULL - chkColFootFull: " & "" & Request.Form("chkColFootFull")) & "

" 'Response.write("Football (College) Half - chkColFoothalf: " & "" & Request.Form("chkColFoothalf")) & "

" 'Response.write("Football (College) Qtr - chkColFootquarter: " & "" & Request.Form("chkColFootquarter")) & "

" 'Response.write("Football (Canadian) - chkCanadaFoot: " & "" & Request.Form("chkCanadaFoot")) & "

" 'Response.write("Football (Arena) - chkArenaFoot: " & "" & Request.Form("chkArenaFoot")) & "

" 'Response.write("From Page: " & "" & Request.Form("page")) & "

" 'Determine the heading here. 'sHeading = "Selections Have Been Made, Please Review & Enter Wager Amount!" 'sHeading = "The Following Wager Has Been Made, Please Review and Enter Password To Confirm!" sbgcolor = "#EBEBEB" sWagerType = " -- Straight Bet --" if trim(Request.Form("page")) = "WagerStraightChoices" then Response.write("

") 'Response.write("From Page: " & Request.Form("page")) sHeading = "Selections Have Been Made, Please Review & Enter Wager Amount!" bConfirm1 = true bConfirm2 = False elseif trim(Request.Form("page")) = "StraightWagerBetConfirm" then Response.write("") 'Response.write("From Page: " & Request.Form("page")) bConfirm1 = false bConfirm2 = true sHeading = "The Following Wager Has Been Made, Please Review and Enter Password To Confirm!" else 'Check The Password Here 'Response.write("User Code: " & Session("Usercode")) strConn = ";DRIVER={SQL Server};UID=BetUser;PWD=12NewYorkcitY2006;DATABASE=Betrci;SERVER=localhost;" Set oConn = server.CreateObject("adodb.connection") oConn.Open strConn sSql = "Select * from Clients where upper(userid) = '" & ucase(Session("Usercode")) & "' " & _ "And Password = '" & Request.Form("txtPassword")& "'" Set oRS = Server.CreateObject("ADODB.Recordset") oRS.CursorType = 3 oRS.CursorLocation = 3 oRS.ActiveConnection = oConn oRS.Open sSql 'Response.Write(oRS.RecordCount) if oRS.RecordCount <> 0 then Response.write("") 'Response.write("From Page: " & Request.Form("page")) bConfirm1 = false bConfirm2 = false bWrongPassword = False bPasswordAccepted = True sHeading = "Your Bet has been accepted ... Print this page for your records." else 'Session("Usercode") = "" 'Session("ValidUser") = 0 'Response.Redirect "login.asp" 'Response.Redirect "123.asp" Response.write("") Response.write("From Page: " & Request.Form("page")) bConfirm1 = false bConfirm2 = true bWrongPassword = true bPasswordAccepted = False sHeading = "The Following Wager Has Been Made, Please Review and Enter Password To Confirm!" end if end if sLineChangedText = "This Line Has Changed! - Please Review Before Continuing" %> <% strConn = ";DRIVER={SQL Server};UID=BetUser;PWD=12NewYorkcitY2006;DATABASE=Betrci;SERVER=localhost;" Set oConn = server.CreateObject("adodb.connection") oConn.Open strConn if bPasswordAccepted then 'server.transfer "Confirmation.asp" end if Set oRS = Server.CreateObject("ADODB.Recordset") oRS.CursorType = 3 oRS.CursorLocation = 3 iCount = 1 SET oRSParams = CollectFormParameters oRSParams.Sort="GameTypeOrder, LeagueOrder, Game_ID, PeriodOrder, BetParamOrder" oRSParams.movefirst Do while not oRSParams.EOF 'response.write "Game_ID: " & oRSParams.fields("Game_ID").value & "
" 'response.write "GameLine_ID: " & oRSParams.fields("GameLine_ID").value & "
" 'response.write "Length: " & oRSParams.fields("Length").value & "
" 'response.write "GameType_ID: " & oRSParams.fields("GameType_ID").value & "
" 'response.write "GameDesc: " & oRSParams.fields("GameDesc").value & "
" 'response.write "InputValue: " & oRSParams.fields("InputValue").value & "
" 'response.write "InputField: " & oRSParams.fields("InputField").value & "
" 'response.write "Location: " & oRSParams.fields("Location").value & "
" 'response.write "League: " & oRSParams.fields("League").value & "
" 'response.write "League Conf: " & oRSParams.fields("LeagueConf").value & "
" 'response.write "GameTypeOrder: " & oRSParams.fields("GameTypeOrder").value & "
" 'response.write "PeriodOrder: " & oRSParams.fields("PeriodOrder").value & "
" 'response.write "LeagueOrder: " & oRSParams.fields("LeagueOrder").value & "
" 'response.write "BetParamOrder: " & oRSParams.fields("BetParamOrder").value & "
" response.write "" if oRS.State = 1 Then oRS.Close 'Make sure we dont process the continue flag oRS.Open "Exec GetGameLineInfo " & cint(oRSParams.fields("Game_ID").value) & ", " & cint(oRSParams.fields("GameLine_ID").value), oConn 'response.write "GameLine RecordCount: " & oRS.Recordcount & "
" 'response.write "count " & cstr(icount) & "
" 'response.write "InputField: " & oRSParams.fields("InputField").value & "
" 'response.write "Game_ID: " & oRSParams.fields("Game_ID").value & "
" 'response.write "GameLine_ID: " & oRSParams.fields("GameLine_ID").value & "
" 'response.write "Length: " & oRSParams.fields("Length").value & "
" Select case trim(oRSParams.fields("InputField").value) case "txtVisitorSpread" sBetType = "Spread" sTeamName = oRS.fields("Visitor_Team_Name").value & " (" & oRS.fields("Visitor_Team_GameID").value & ")" Select Case oRSParams.fields("Length").value case "Game" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = replace(oRS.fields("Visitor_Final_Line").value & "",".5","½") & " " & oRS.fields("Visitor_Final_Line_Juice").value sJuice = iif(sJuice = "", oRS.fields("Visitor_Final_Line_Juice").value, sJuice & ";" & oRS.fields("Visitor_Final_Line_Juice").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Visitor_Final_Line_Juice").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, oRS.fields("Visitor_Final_Line").value, oRS.fields("Visitor_Final_Line_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID Else sComments1 = "" sComments2 = "" End If case "1stHalf" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = replace(oRS.fields("Visitor_1stHalfTime_Line").value & "",".5","½") & " " & oRS.fields("Visitor_1stHalfTime_Line_Juice").value sJuice = iif(sJuice = "", oRS.fields("Visitor_1stHalfTime_Line_Juice").value, sJuice & ";" & oRS.fields("Visitor_1stHalfTime_Line_Juice").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Visitor_1stHalfTime_Line_Juice").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, oRS.fields("Visitor_1stHalfTime_Line").value, oRS.fields("Visitor_1stHalfTime_Line_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID Else sComments1 = "" sComments2 = "" End If case "2ndHalf" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = replace(oRS.fields("Visitor_2ndHalfTime_Line").value & "",".5","½") & " " & oRS.fields("Visitor_2ndHalfTime_Line_Juice").value sJuice = iif(sJuice = "", oRS.fields("Visitor_2ndHalfTime_Line_Juice").value, sJuice & ";" & oRS.fields("Visitor_2ndHalfTime_Line_Juice").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Visitor_2ndHalfTime_Line_Juice").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, oRS.fields("Visitor_2ndHalfTime_Line").value, oRS.fields("Visitor_2ndHalfTime_Line_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID Else sComments1 = "" sComments2 = "" End If case "1stQtr" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = replace(oRS.fields("Visitor_1st_Line").value & "",".5","½") & " " & oRS.fields("Visitor_1st_Line_Juice").value sJuice = iif(sJuice = "", oRS.fields("Visitor_1st_Line_Juice").value, sJuice & ";" & oRS.fields("Visitor_1st_Line_Juice").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Visitor_1st_Line_Juice").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, oRS.fields("Visitor_1st_Line").value, oRS.fields("Visitor_1st_Line_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID Else sComments1 = "" sComments2 = "" End If case "2ndQtr" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = replace(oRS.fields("Visitor_2nd_Line").value & "",".5","½") & " " & oRS.fields("Visitor_2nd_Line_Juice").value sJuice = iif(sJuice = "", oRS.fields("Visitor_2nd_Line_Juice").value, sJuice & ";" & oRS.fields("Visitor_2nd_Line_Juice").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Visitor_2nd_Line_Juice").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, oRS.fields("Visitor_2nd_Line").value, oRS.fields("Visitor_2nd_Line_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If case "3rdQtr" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = replace(oRS.fields("Visitor_3rd_Line").value & "",".5","½") & " " & oRS.fields("Visitor_3rd_Line_Juice").value sJuice = iif(sJuice = "", oRS.fields("Visitor_3rd_Line_Juice").value, sJuice & ";" & oRS.fields("Visitor_3rd_Line_Juice").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Visitor_3rd_Line_Juice").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, oRS.fields("Visitor_3rd_Line").value, oRS.fields("Visitor_3rd_Line_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If case "4thQtr" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = replace(oRS.fields("Visitor_4th_Line").value & "",".5","½") & " " & oRS.fields("Visitor_4th_Line_Juice").value sJuice = iif(sJuice = "", oRS.fields("Visitor_4th_Line_Juice").value, sJuice & ";" & oRS.fields("Visitor_4th_Line_Juice").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Visitor_4th_Line_Juice").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, oRS.fields("Visitor_4th_Line").value, oRS.fields("Visitor_4th_Line_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If End Select case "txtHomeSpread" sBetType = "Spread" sTeamName = oRS.fields("Home_Team_Name").value & " (" & oRS.fields("Home_Team_GameID").value & ")" Select Case oRSParams.fields("Length").value case "Game" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = replace(oRS.fields("Home_Final_Line").value & "",".5","½") & " " & oRS.fields("Home_Final_Line_Juice").value sJuice = iif(sJuice = "", oRS.fields("Home_Final_Line_Juice").value, sJuice & ";" & oRS.fields("Home_Final_Line_Juice").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Home_Final_Line_Juice").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, oRS.fields("Home_Final_Line").value, oRS.fields("Home_Final_Line_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If case "1stHalf" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = replace(oRS.fields("Home_1stHalfTime_Line").value & "",".5","½") & " " & oRS.fields("Home_1stHalfTime_Line_Juice").value sJuice = iif(sJuice = "", oRS.fields("Home_1stHalfTime_Line_Juice").value, sJuice & ";" & oRS.fields("Home_1stHalfTime_Line_Juice").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Home_1stHalfTime_Line_Juice").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, oRS.fields("Home_1stHalfTime_Line").value, oRS.fields("Home_1stHalfTime_Line_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If case "2ndHalf" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = replace(oRS.fields("Home_2ndHalfTime_Line").value & "",".5","½") & " " & oRS.fields("Home_2ndHalfTime_Line_Juice").value sJuice = iif(sJuice = "", oRS.fields("Home_2ndHalfTime_Line_Juice").value, sJuice & ";" & oRS.fields("Home_2ndHalfTime_Line_Juice").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Home_2ndHalfTime_Line_Juice").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, oRS.fields("Home_2ndHalfTime_Line").value, oRS.fields("Home_2ndHalfTime_Line_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If case "1stQtr" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = replace(oRS.fields("Home_1st_Line").value & "",".5","½") & " " & oRS.fields("Home_1st_Line_Juice").value sJuice = iif(sJuice = "", oRS.fields("Home_1st_Line_Juice").value, sJuice & ";" & oRS.fields("Home_1st_Line_Juice").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Home_1st_Line_Juice").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, oRS.fields("Home_1st_Line").value, oRS.fields("Home_1st_Line_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If case "2ndQtr" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = replace(oRS.fields("Home_2nd_Line").value & "",".5","½") & " " & oRS.fields("Home_2nd_Line_Juice").value sJuice = iif(sJuice = "", oRS.fields("Home_2nd_Line_Juice").value, sJuice & ";" & oRS.fields("Home_2nd_Line_Juice").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Home_2nd_Line_Juice").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, oRS.fields("Home_2nd_Line").value, oRS.fields("Home_2nd_Line_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If case "3rdQtr" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = replace(oRS.fields("Home_3rd_Line").value & "",".5","½") & " " & oRS.fields("Home_3rd_Line_Juice").value sJuice = iif(sJuice = "", oRS.fields("Home_3rd_Line_Juice").value, sJuice & ";" & oRS.fields("Home_3rd_Line_Juice").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Home_3rd_Line_Juice").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, oRS.fields("Home_3rd_Line").value, oRS.fields("Home_3rd_Line_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If case "4thQtr" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = replace(oRS.fields("Home_4th_Line").value & "",".5","½") & " " & oRS.fields("Home_4th_Line_Juice").value sJuice = iif(sJuice = "", oRS.fields("Home_4th_Line_Juice").value, sJuice & ";" & oRS.fields("Home_4th_Line_Juice").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Home_4th_Line_Juice").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, oRS.fields("Home_4th_Line").value, oRS.fields("Home_4th_Line_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If End Select case "txtVisitorMoneyLine" sBetType = "Money Line" sTeamName = oRS.fields("Visitor_Team_Name").value & " (" & oRS.fields("Visitor_Team_GameID").value & ")" Select Case oRSParams.fields("Length").value case "Game" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = oRS.fields("Visitor_Final_Money_Line").value & " " sJuice = iif(sJuice = "", oRS.fields("Visitor_Final_Money_Line").value, sJuice & ";" & oRS.fields("Visitor_Final_Money_Line").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Visitor_Final_Money_Line").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, 0, oRS.fields("Visitor_Final_Line_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If case "1stHalf" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = oRS.fields("Visitor_1stHalfTime_Money_Line").value & " " sJuice = iif(sJuice = "", oRS.fields("Visitor_1stHalfTime_Money_Line").value, sJuice & ";" & oRS.fields("Visitor_1stHalfTime_Money_Line").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Visitor_1stHalfTime_Money_Line").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, 0, oRS.fields("Visitor_1stHalfTime_Line_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If case "2ndHalf" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = oRS.fields("Visitor_2ndHalfTime_Money_Line").value & " " sJuice = iif(sJuice = "", oRS.fields("Visitor_2ndHalfTime_Money_Line").value, sJuice & ";" & oRS.fields("Visitor_2ndHalfTime_Money_Line").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Visitor_2ndHalfTime_Money_Line").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, 0, oRS.fields("Visitor_2ndHalfTime_Money_Line").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If case "1stQtr" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = oRS.fields("Visitor_1st_Money_Line").value & " " sJuice = iif(sJuice = "", oRS.fields("Visitor_1st_Money_Line").value, sJuice & ";" & oRS.fields("Visitor_1st_Money_Line").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Visitor_1st_Money_Line").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, 0, oRS.fields("Visitor_1st_Money_Line").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If case "2ndQtr" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = oRS.fields("Visitor_2nd_Money_Line").value & " " sJuice = iif(sJuice = "", oRS.fields("Visitor_2nd_Money_Line").value, sJuice & ";" & oRS.fields("Visitor_2nd_Money_Line").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Visitor_2nd_Money_Line").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, 0, oRS.fields("Visitor_2nd_Money_Line").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If case "3rdQtr" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = oRS.fields("Visitor_3rd_Money_Line").value & " " sJuice = iif(sJuice = "", oRS.fields("Visitor_3rd_Money_Line").value, sJuice & ";" & oRS.fields("Visitor_3rd_Money_Line").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Visitor_3rd_Money_Line").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, 0, oRS.fields("Visitor_3rd_Money_Line").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If case "4thQtr" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = oRS.fields("Visitor_4th_Money_Line").value & " " sJuice = iif(sJuice = "", oRS.fields("Visitor_4th_Money_Line").value, sJuice & ";" & oRS.fields("Visitor_4th_Money_Line").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Visitor_4th_Money_Line").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, 0, oRS.fields("Visitor_4th_Money_Line").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If End Select case "txtHomeMoneyLine" sBetType = "Money Line" sTeamName = oRS.fields("Home_Team_Name").value & " (" & oRS.fields("Home_Team_GameID").value & ")" Select Case oRSParams.fields("Length").value case "Game" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = oRS.fields("Home_Final_Money_Line").value & " " sJuice = iif(sJuice = "", oRS.fields("Home_Final_Money_Line").value, sJuice & ";" & oRS.fields("Home_Final_Money_Line").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Home_Final_Money_Line").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, 0, oRS.fields("Home_Final_Money_Line").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If case "1stHalf" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = oRS.fields("Home_1stHalfTime_Money_Line").value & " " sJuice = iif(sJuice = "", oRS.fields("Home_1stHalfTime_Money_Line").value, sJuice & ";" & oRS.fields("Home_1stHalfTime_Money_Line").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Home_1stHalfTime_Money_Line").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, 0, oRS.fields("Home_1stHalfTime_Money_Line").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If case "2ndHalf" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = oRS.fields("Home_2ndHalfTime_Money_Line").value & " " sJuice = iif(sJuice = "", oRS.fields("Home_2ndHalfTime_Money_Line").value, sJuice & ";" & oRS.fields("Home_2ndHalfTime_Money_Line").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Home_2ndHalfTime_Money_Line").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, 0, oRS.fields("Home_2ndHalfTime_Money_Line").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If case "1stQtr" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = oRS.fields("Home_1st_Money_Line").value & " " sJuice = iif(sJuice = "", oRS.fields("Home_1st_Money_Line").value, sJuice & ";" & oRS.fields("Home_1st_Money_Line").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Home_1st_Money_Line").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, 0, oRS.fields("Home_1st_Money_Line").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If case "2ndQtr" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = oRS.fields("Home_2nd_Money_Line").value & " " sJuice = iif(sJuice = "", oRS.fields("Home_2nd_Money_Line").value, sJuice & ";" & oRS.fields("Home_2nd_Money_Line").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Home_2nd_Money_Line").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, 0, oRS.fields("Home_2nd_Money_Line").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If case "3rdQtr" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = oRS.fields("Home_3rd_Money_Line").value & " " sJuice = iif(sJuice = "", oRS.fields("Home_3rd_Money_Line").value, sJuice & ";" & oRS.fields("Home_3rd_Money_Line").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Home_3rd_Money_Line").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, 0, oRS.fields("Home_3rd_Money_Line").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If case "4thQtr" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = oRS.fields("Home_4th_Money_Line").value & " " sJuice = iif(sJuice = "", oRS.fields("Home_4th_Money_Line").value, sJuice & ";" & oRS.fields("Home_4th_Money_Line").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Home_4th_Money_Line").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, 0, oRS.fields("Home_4th_Money_Line").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If End Select case "txtVisitorTeamTotalPointsOver" sBetType = "Team Total Points(Over)" sTeamName = oRS.fields("Visitor_Team_Name").value & " (" & oRS.fields("Visitor_Team_GameID").value & ")" Select Case oRSParams.fields("Length").value case "Game" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = replace(oRS.fields("Visitor_Final_Total").value & "",".5","½") & " " & oRS.fields("Visitor_Final_Total_Over_Juice").value sJuice = iif(sJuice = "", oRS.fields("Visitor_Final_Total_Over_Juice").value, sJuice & ";" & oRS.fields("Visitor_Final_Total_Over_Juice").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Visitor_Final_Total_Over_Juice").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, oRS.fields("Visitor_Final_Total").value, oRS.fields("Visitor_Final_Total_Over_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If case "1stHalf" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = replace(oRS.fields("Visitor_1stHalfTime_Total").value & "",".5","½") & " " & oRS.fields("Visitor_1stHalfTime_Total_Over_Juice").value sJuice = iif(sJuice = "", oRS.fields("Visitor_1stHalfTime_Total_Over_Juice").value, sJuice & ";" & oRS.fields("Visitor_1stHalfTime_Total_Over_Juice").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Visitor_1stHalfTime_Total_Over_Juice").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, oRS.fields("Visitor_1stHalfTime_Total").value, oRS.fields("Visitor_1stHalfTime_Total_Over_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If case "2ndHalf" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = replace(oRS.fields("Visitor_2ndHalfTime_Total").value & "",".5","½") & " " & oRS.fields("Visitor_2ndHalfTime_Total_Over_Juice").value sJuice = iif(sJuice = "", oRS.fields("Visitor_2ndHalfTime_Total_Over_Juice").value, sJuice & ";" & oRS.fields("Visitor_2ndHalfTime_Total_Over_Juice").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Visitor_2ndHalfTime_Total_Over_Juice").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, oRS.fields("Visitor_2ndHalfTime_Total").value, oRS.fields("Visitor_2ndHalfTime_Total_Over_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If case "1stQtr" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = replace(oRS.fields("Visitor_1st_Total").value & "",".5","½") & " " & oRS.fields("Visitor_1st_Total_Over_Juice").value sJuice = iif(sJuice = "", oRS.fields("Visitor_1st_Total_Over_Juice").value, sJuice & ";" & oRS.fields("Visitor_1st_Total_Over_Juice").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Visitor_1st_Total_Over_Juice").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, oRS.fields("Visitor_1st_Total").value, oRS.fields("Visitor_1st_Total_Over_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If case "2ndQtr" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = replace(oRS.fields("Visitor_2nd_Total").value & "",".5","½") & " " & oRS.fields("Visitor_2nd_Total_Over_Juice").value sJuice = iif(sJuice = "", oRS.fields("Visitor_2nd_Total_Over_Juice").value, sJuice & ";" & oRS.fields("Visitor_2nd_Total_Over_Juice").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Visitor_2nd_Total_Over_Juice").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, oRS.fields("Visitor_2nd_Total").value, oRS.fields("Visitor_2nd_Total_Over_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If case "3rdQtr" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = replace(oRS.fields("Visitor_3rd_Total").value & "",".5","½") & " " & oRS.fields("Visitor_3rd_Total_Over_Juice").value sJuice = iif(sJuice = "", oRS.fields("Visitor_3rd_Total_Over_Juice").value, sJuice & ";" & oRS.fields("Visitor_3rd_Total_Over_Juice").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Visitor_3rd_Total_Over_Juice").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, oRS.fields("Visitor_3rd_Total").value, oRS.fields("Visitor_3rd_Total_Over_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If case "4thQtr" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = replace(oRS.fields("Visitor_4th_Total").value & "",".5","½") & " " & oRS.fields("Visitor_4th_Total_Over_Juice").value sJuice = iif(sJuice = "", oRS.fields("Visitor_4th_Total_Over_Juice").value, sJuice & ";" & oRS.fields("Visitor_4th_Total_Over_Juice").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Visitor_4th_Total_Over_Juice").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, oRS.fields("Visitor_4th_Total").value, oRS.fields("Visitor_4th_Total_Over_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If End Select case "txtVisitorTeamTotalPointsUnder" sBetType = "Team Total Points(Under)" sTeamName = oRS.fields("Visitor_Team_Name").value & " (" & oRS.fields("Visitor_Team_GameID").value & ")" Select Case oRSParams.fields("Length").value case "Game" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = replace(oRS.fields("Visitor_Final_Total").value & "",".5","½") & " " & oRS.fields("Visitor_Final_Total_Under_Juice").value sJuice = iif(sJuice = "", oRS.fields("Visitor_Final_Total_Under_Juice").value, sJuice & ";" & oRS.fields("Visitor_Final_Total_Under_Juice").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Visitor_Final_Total_Under_Juice").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, oRS.fields("Visitor_Final_Total").value, oRS.fields("Visitor_Final_Total_Under_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If case "1stHalf" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = replace(oRS.fields("Visitor_1stHalfTime_Total").value & "",".5","½") & " " & oRS.fields("Visitor_1stHalfTime_Total_Under_Juice").value sJuice = iif(sJuice = "", oRS.fields("Visitor_1stHalfTime_Total_Under_Juice").value, sJuice & ";" & oRS.fields("Visitor_1stHalfTime_Total_Under_Juice").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Visitor_1stHalfTime_Total_Under_Juice").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, oRS.fields("Visitor_1stHalfTime_Total").value, oRS.fields("Visitor_1stHalfTime_Total_Under_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If case "2ndHalf" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = replace(oRS.fields("Visitor_2ndHalfTime_Total").value & "",".5","½") & " " & oRS.fields("Visitor_2ndHalfTime_Total_Under_Juice").value sJuice = iif(sJuice = "", oRS.fields("Visitor_2ndHalfTime_Total_Under_Juice").value, sJuice & ";" & oRS.fields("Visitor_2ndHalfTime_Total_Under_Juice").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Visitor_2ndHalfTime_Total_Under_Juice").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, oRS.fields("Visitor_2ndHalfTime_Total").value, oRS.fields("Visitor_2ndHalfTime_Total_Under_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If case "1stQtr" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = replace(oRS.fields("Visitor_1st_Total").value & "",".5","½") & " " & oRS.fields("Visitor_1st_Total_Under_Juice").value sJuice = iif(sJuice = "", oRS.fields("Visitor_1st_Total_Under_Juice").value, sJuice & ";" & oRS.fields("Visitor_1st_Total_Under_Juice").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Visitor_1st_Total_Under_Juice").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, oRS.fields("Visitor_1st_Total").value, oRS.fields("Visitor_1st_Total_Under_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If case "2ndQtr" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = replace(oRS.fields("Visitor_2nd_Total").value & "",".5","½") & " " & oRS.fields("Visitor_2nd_Total_Under_Juice").value sJuice = iif(sJuice = "", oRS.fields("Visitor_2nd_Total_Under_Juice").value, sJuice & ";" & oRS.fields("Visitor_2nd_Total_Under_Juice").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Visitor_2nd_Total_Under_Juice").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, oRS.fields("Visitor_2nd_Total").value, oRS.fields("Visitor_2nd_Total_Under_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If case "3rdQtr" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = replace(oRS.fields("Visitor_3rd_Total").value & "",".5","½") & " " & oRS.fields("Visitor_3rd_Total_Under_Juice").value sJuice = iif(sJuice = "", oRS.fields("Visitor_3rd_Total_Under_Juice").value, sJuice & ";" & oRS.fields("Visitor_3rd_Total_Under_Juice").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Visitor_3rd_Total_Under_Juice").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, oRS.fields("Visitor_3rd_Total").value, oRS.fields("Visitor_3rd_Total_Under_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If case "4thQtr" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = replace(oRS.fields("Visitor_4th_Total").value & "",".5","½") & " " & oRS.fields("Visitor_4th_Total_Under_Juice").value sJuice = iif(sJuice = "", oRS.fields("Visitor_4th_Total_Under_Juice").value, sJuice & ";" & oRS.fields("Visitor_4th_Total_Under_Juice").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Visitor_4th_Total_Under_Juice").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, oRS.fields("Visitor_4th_Total").value, oRS.fields("Visitor_4th_Total_Under_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If End Select case "txtHomeTeamTotalPointsOver" sBetType = "Team Total Points(Over)" sTeamName = oRS.fields("Home_Team_Name").value & " (" & oRS.fields("Home_Team_GameID").value & ")" Select Case oRSParams.fields("Length").value case "Game" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = replace(oRS.fields("Home_Final_Total").value & "",".5","½") & " " & oRS.fields("Home_Final_Total_Over_Juice").value sJuice = iif(sJuice = "", oRS.fields("Home_Final_Total_Over_Juice").value, sJuice & ";" & oRS.fields("Home_Final_Total_Over_Juice").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Home_Final_Total_Over_Juice").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, oRS.fields("Home_Final_Total").value, oRS.fields("Home_Final_Total_Over_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If case "1stHalf" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = replace(oRS.fields("Home_1stHalfTime_Total").value & "",".5","½") & " " & oRS.fields("Home_1stHalfTime_Total_Over_Juice").value sJuice = iif(sJuice = "", oRS.fields("Home_1stHalfTime_Total_Over_Juice").value, sJuice & ";" & oRS.fields("Home_1stHalfTime_Total_Over_Juice").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Home_1stHalfTime_Total_Over_Juice").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, oRS.fields("Home_1stHalfTime_Total").value, oRS.fields("Home_1stHalfTime_Total_Over_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If case "2ndHalf" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = replace(oRS.fields("Home_2ndHalfTime_Total").value & "",".5","½") & " " & oRS.fields("Home_2ndHalfTime_Total_Over_Juice").value sJuice = iif(sJuice = "", oRS.fields("Home_2ndHalfTime_Total_Over_Juice").value, sJuice & ";" & oRS.fields("Home_2ndHalfTime_Total_Over_Juice").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Home_2ndHalfTime_Total_Over_Juice").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, oRS.fields("Home_2ndHalfTime_Total").value, oRS.fields("Home_2ndHalfTime_Total_Over_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If case "1stQtr" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = replace(oRS.fields("Home_1st_Total").value & "",".5","½") & " " & oRS.fields("Home_1st_Total_Over_Juice").value sJuice = iif(sJuice = "", oRS.fields("Home_1st_Total_Over_Juice").value, sJuice & ";" & oRS.fields("Home_1st_Total_Over_Juice").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Home_1st_Total_Over_Juice").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, oRS.fields("Home_1st_Total").value, oRS.fields("Home_2ndHalfTime_Total_Over_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If case "2ndQtr" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = replace(oRS.fields("Home_2nd_Total").value & "",".5","½") & " " & oRS.fields("Home_2nd_Total_Over_Juice").value sJuice = iif(sJuice = "", oRS.fields("Home_2nd_Total_Over_Juice").value, sJuice & ";" & oRS.fields("Home_2nd_Total_Over_Juice").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Home_2nd_Total_Over_Juice").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, oRS.fields("Home_2nd_Total").value, oRS.fields("Home_2nd_Total_Over_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If case "3rdQtr" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = replace(oRS.fields("Home_3rd_Total").value & "",".5","½") & " " & oRS.fields("Home_3rd_Total_Over_Juice").value sJuice = iif(sJuice = "", oRS.fields("Home_3rd_Total_Over_Juice").value, sJuice & ";" & oRS.fields("Home_3rd_Total_Over_Juice").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Home_3rd_Total_Over_Juice").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, oRS.fields("Home_3rd_Total").value, oRS.fields("Home_3rd_Total_Over_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If case "4thQtr" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = replace(oRS.fields("Home_4th_Total").value & "",".5","½") & " " & oRS.fields("Home_4th_Total_Over_Juice").value sJuice = iif(sJuice = "", oRS.fields("Home_4th_Total_Over_Juice").value, sJuice & ";" & oRS.fields("Home_4th_Total_Over_Juice").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Home_4th_Total_Over_Juice").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, oRS.fields("Home_4th_Total").value, oRS.fields("Home_4th_Total_Over_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If End Select case "txtHomeTeamTotalPointsUnder" sBetType = "Team Total Points(Under)" sTeamName = oRS.fields("Home_Team_Name").value & " (" & oRS.fields("Home_Team_GameID").value & ")" Select Case oRSParams.fields("Length").value case "Game" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = replace(oRS.fields("Home_Final_Total").value & "",".5","½") & " " & oRS.fields("Home_Final_Total_Under_Juice").value sJuice = iif(sJuice = "", oRS.fields("Home_Final_Total_Under_Juice").value, sJuice & ";" & oRS.fields("Home_Final_Total_Under_Juice").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Home_Final_Total_Under_Juice").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, oRS.fields("Home_Final_Total").value, oRS.fields("Home_Final_Total_Under_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If case "1stHalf" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = replace(oRS.fields("Home_1stHalfTime_Total").value & "",".5","½") & " " & oRS.fields("Home_1stHalfTime_Total_Under_Juice").value sJuice = iif(sJuice = "", oRS.fields("Home_1stHalfTime_Total_Under_Juice").value, sJuice & ";" & oRS.fields("Home_1stHalfTime_Total_Under_Juice").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Home_1stHalfTime_Total_Under_Juice").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, oRS.fields("Home_1stHalfTime_Total").value, oRS.fields("Home_1stHalfTime_Total_Under_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If case "2ndHalf" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = replace(oRS.fields("Home_2ndHalfTime_Total").value & "",".5","½") & " " & oRS.fields("Home_2ndHalfTime_Total_Under_Juice").value sJuice = iif(sJuice = "", oRS.fields("Home_2ndHalfTime_Total_Under_Juice").value, sJuice & ";" & oRS.fields("Home_2ndHalfTime_Total_Under_Juice").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Home_2ndHalfTime_Total_Under_Juice").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, oRS.fields("Home_2ndHalfTime_Total").value, oRS.fields("Home_2ndHalfTime_Total_Under_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If case "1stQtr" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = replace(oRS.fields("Home_1st_Total").value & "",".5","½") & " " & oRS.fields("Home_1st_Total_Under_Juice").value sJuice = iif(sJuice = "", oRS.fields("Home_1st_Total_Under_Juice").value, sJuice & ";" & oRS.fields("Home_1st_Total_Under_Juice").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Home_1st_Total_Under_Juice").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, oRS.fields("Home_1st_Total").value, oRS.fields("Home_1st_Total_Under_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If case "2ndQtr" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = replace(oRS.fields("Home_2nd_Total").value & "",".5","½") & " " & oRS.fields("Home_2nd_Total_Under_Juice").value sJuice = iif(sJuice = "", oRS.fields("Home_2nd_Total_Under_Juice").value, sJuice & ";" & oRS.fields("Home_2nd_Total_Under_Juice").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Home_2nd_Total_Under_Juice").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, oRS.fields("Home_2nd_Total").value, oRS.fields("Home_2nd_Total_Under_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If case "3rdQtr" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = replace(oRS.fields("Home_3rd_Total").value & "",".5","½") & " " & oRS.fields("Home_3rd_Total_Under_Juice").value sJuice = iif(sJuice = "", oRS.fields("Home_3rd_Total_Under_Juice").value, sJuice & ";" & oRS.fields("Home_3rd_Total_Under_Juice").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Home_3rd_Total_Under_Juice").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, oRS.fields("Home_3rd_Total").value, oRS.fields("Home_3rd_Total_Under_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If case "4thQtr" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = replace(oRS.fields("Home_4th_Total").value & "",".5","½") & " " & oRS.fields("Home_4th_Total_Under_Juice").value sJuice = iif(sJuice = "", oRS.fields("Home_4th_Total_Under_Juice").value, sJuice & ";" & oRS.fields("Home_4th_Total_Under_Juice").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Home_4th_Total_Under_Juice").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, oRS.fields("Home_4th_Total").value, oRS.fields("Home_4th_Total_Under_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If End Select case "txtTotalPointOver" sBetType = "Game Total Points(Over)" sTeamName = oRS.fields("Visitor_Team_Name").value & " (" & oRS.fields("Visitor_Team_GameID").value & ")/" & _ oRS.fields("Home_Team_Name").value Select Case oRSParams.fields("Length").value case "Game" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = replace(oRS.fields("Final_Total").value & "",".5","½") & " " & oRS.fields("Final_Total_Over_Juice").value sJuice = iif(sJuice = "", oRS.fields("Final_Total_Over_Juice").value, sJuice & ";" & oRS.fields("Final_Total_Over_Juice").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Final_Total_Over_Juice").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, oRS.fields("Final_Total").value, oRS.fields("Final_Total_Over_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If case "1stHalf" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = replace(oRS.fields("1stHalfTime_Total").value & "",".5","½") & " " & oRS.fields("1stHalfTime_Total_Over_Juice").value sJuice = iif(sJuice = "", oRS.fields("1stHalfTime_Total_Over_Juice").value, sJuice & ";" & oRS.fields("1stHalfTime_Total_Over_Juice").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("1stHalfTime_Total_Over_Juice").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, oRS.fields("1stHalfTime_Total").value, oRS.fields("1stHalfTime_Total_Over_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If case "2ndHalf" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = replace(oRS.fields("2ndHalfTime_Total").value & "",".5","½") & " " & oRS.fields("2ndHalfTime_Total_Over_Juice").value sJuice = iif(sJuice = "", oRS.fields("2ndHalfTime_Total_Over_Juice").value, sJuice & ";" & oRS.fields("2ndHalfTime_Total_Over_Juice").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("2ndHalfTime_Total_Over_Juice").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, oRS.fields("2ndHalfTime_Total").value, oRS.fields("2ndHalfTime_Total_Over_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If case "1stQtr" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = replace(oRS.fields("1st_Total").value & "",".5","½") & " " & oRS.fields("1st_Total_Over_Juice").value sJuice = iif(sJuice = "", oRS.fields("1st_Total_Over_Juice").value, sJuice & ";" & oRS.fields("1st_Total_Over_Juice").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("1st_Total_Over_Juice").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, oRS.fields("1st_Total").value, oRS.fields("1st_Total_Over_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If case "2ndQtr" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = replace(oRS.fields("2nd_Total").value & "",".5","½") & " " & oRS.fields("2nd_Total_Over_Juice").value sJuice = iif(sJuice = "", oRS.fields("2nd_Total_Over_Juice").value, sJuice & ";" & oRS.fields("2nd_Total_Over_Juice").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("2nd_Total_Over_Juice").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, oRS.fields("2nd_Total").value, oRS.fields("2nd_Total_Over_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If case "3rdQtr" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = replace(oRS.fields("3rd_Total").value & "",".5","½") & " " & oRS.fields("3rd_Total_Over_Juice").value sJuice = iif(sJuice = "", oRS.fields("3rd_Total_Over_Juice").value, sJuice & ";" & oRS.fields("3rd_Total_Over_Juice").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("3rd_Total_Over_Juice").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, oRS.fields("3rd_Total").value, oRS.fields("3rd_Total_Over_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If case "4thQtr" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = replace(oRS.fields("4th_Total").value & "",".5","½") & " " & oRS.fields("4th_Total_Over_Juice").value sJuice = iif(sJuice = "", oRS.fields("4th_Total_Over_Juice").value, sJuice & ";" & oRS.fields("4th_Total_Over_Juice").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("4th_Total_Over_Juice").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, oRS.fields("4th_Total").value, oRS.fields("4th_Total_Over_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If End Select case "txtTotalPointsUnder" sBetType = "Game Total Points(Under)" sTeamName = oRS.fields("Visitor_Team_Name").value & "/" & _ oRS.fields("Home_Team_Name").value & " (" & oRS.fields("Home_Team_GameID").value & ")" Select Case oRSParams.fields("Length").value case "Game" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = replace(oRS.fields("Final_Total").value & "",".5","½") & " " & oRS.fields("Final_Total_Under_Juice").value sJuice = iif(sJuice = "", oRS.fields("Final_Total_Under_Juice").value, sJuice & ";" & oRS.fields("Final_Total_Under_Juice").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("Final_Total_Under_Juice").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, oRS.fields("Final_Total").value, oRS.fields("Final_Total_Under_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If case "1stHalf" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = replace(oRS.fields("1stHalfTime_Total").value & "",".5","½") & " " & oRS.fields("1stHalfTime_Total_Under_Juice").value sJuice = iif(sJuice = "", oRS.fields("1stHalfTime_Total_Under_Juice").value, sJuice & ";" & oRS.fields("1stHalfTime_Total_Under_Juice").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("1stHalfTime_Total_Under_Juice").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, oRS.fields("1stHalfTime_Total").value, oRS.fields("1stHalfTime_Total_Under_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If case "2ndHalf" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = replace(oRS.fields("2ndHalfTime_Total").value & "",".5","½") & " " & oRS.fields("2ndHalfTime_Total_Under_Juice").value sJuice = iif(sJuice = "", oRS.fields("2ndHalfTime_Total_Under_Juice").value, sJuice & ";" & oRS.fields("2ndHalfTime_Total_Under_Juice").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("2ndHalfTime_Total_Under_Juice").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, oRS.fields("2ndHalfTime_Total").value, oRS.fields("2ndHalfTime_Total_Under_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If case "1stQtr" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = replace(oRS.fields("1st_Total").value & "",".5","½") & " " & oRS.fields("1st_Total_Under_Juice").value sJuice = iif(sJuice = "", oRS.fields("1st_Total_Under_Juice").value, sJuice & ";" & oRS.fields("Home_1st_Total_Under_Juice").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("1st_Total_Under_Juice").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, oRS.fields("1st_Total").value, oRS.fields("1st_Total_Under_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID End If case "2ndQtr" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = replace(oRS.fields("2nd_Total").value & "",".5","½") & " " & oRS.fields("2nd_Total_Under_Juice").value sJuice = iif(sJuice = "", oRS.fields("2nd_Total_Under_Juice").value, sJuice & ";" & oRS.fields("2nd_Total_Under_Juice").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("2nd_Total_Under_Juice").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, oRS.fields("2nd_Total").value, oRS.fields("2nd_Total_Under_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If case "3rdQtr" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = replace(oRS.fields("3rd_Total").value & "",".5","½") & " " & oRS.fields("3rd_Total_Under_Juice").value sJuice = iif(sJuice = "", oRS.fields("3rd_Total_Under_Juice").value, sJuice & ";" & oRS.fields("3rd_Total_Under_Juice").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("3rd_Total_Under_Juice").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, oRS.fields("3rd_Total").value, oRS.fields("3rd_Total_Under_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If case "4thQtr" bLineChanged = DidGameLineChange(cint(oRSParams.fields("Game_ID").value),cint(oRSParams.fields("GameLine_ID").value)) sLength = oRSParams.fields("Length").value sLimits = replace(oRS.fields("4th_Total").value & "",".5","½") & " " & oRS.fields("4th_Total_Under_Juice").value sJuice = iif(sJuice = "", oRS.fields("4th_Total_Under_Juice").value, sJuice & ";" & oRS.fields("4th_Total_Under_Juice").value) GetBetFigures oRSParams.fields("InputValue").value, oRS.fields("4th_Total_Under_Juice").value, dRiskAmount, dWinAmount if bPasswordAccepted then InsertBet 50, "Straight Bet", dRiskAmount, dWinAmount, sSequenceID, sConfirmationNo InsertBetLine sSequenceID, cint(oRSParams.fields("GameLine_ID").value), oRSParams.fields("Length").value, _ sBetType, sTeamName, oRS.fields("4th_Total").value, oRS.fields("4th_Total_Under_Juice").value, oRS.fields("Type").value, oRS.fields("Team_League").value, cint(oRS.fields("Game_ID").value) sComments1 = "Wager Confirmation # " & sConfirmationNo sComments2 = "Bet ID # " & sSequenceID else sComments1 = "" sComments2 = "" End If End Select End Select 'response.write "GameTypeOrder" & oRSParams.fields("GameTypeOrder").value & "
" 'response.write "LeagueOrder" & oRSParams.fields("LeagueOrder").value & "
" 'response.write "Game_ID" & oRSParams.fields("Game_ID").value & "
" 'response.write "PeriodOrder" & oRSParams.fields("PeriodOrder").value & "
" 'response.write "BetParamOrder" & oRSParams.fields("BetParamOrder").value & "
" %> <% ' if sbgcolor = "#EBEBEB" then sbgcolor = "#CCCCCC" else sbgcolor = "#EBEBEB" end if iCount = iCount + 1 oRSParams.Movenext Loop %> <% If bConfirm1 Then Response.write("") elseif bConfirm2 Then Response.write("") Response.write("") end if %> <% If bConfirm2 Then End IF %> <% End If %> <% If bPasswordAccepteddd Then %>

Confirmation Number: <%= sConfirmationNumber %>   

Bet Type: Parle

Bet Amount: <%= FormatCurrency(Request.Form("txtWagerAmount"), 2) %>

Possible Win Amount: <%= FormatCurrency(Request.Form("Payout"), 2) %> US

<% End If %>

<% = sHeading %>

 

Lines effective:<%= Now()%> - (EST)
Please wait........the Game lines will appear below.
Wager Type: <% = sWagerType %>
Selection # <% = cstr(iCount) %> : <% = sTeamName %>   <% = " " & oRS.fields("GameDate").value & " " & oRS.fields("GameTime").value %> <% if bLineChanged Then response.write sLineChangedText %>
<% = oRS.Fields("Team_League").value & " " & oRS.Fields("Type").value %> <% = sBetType %> <% = sLimits %>   for  <% = sLength %> <%= sComments1 %>
  Risking  <%= FormatCurrency(dRiskAmount, 2) %>   to Win   <%= FormatCurrency(dWinAmount, 2) %> USD <%= sComments2 %>
 
 
 
 

 
<% If bConfirm1 Then %>

All Wagers are Final!

No Exceptions!

Please Review Wagers Carefully & Renter Password To Confirm Wagers!

 

<% If bWrongPassword then %>

You entered the wrong password! ReEnter it Now!

<% End If %>