<%@ Language=VBScript %>
<%
Response.Expires=-1
'Response.write Session("ValidUser")
If Session("ValidUser") <> 1 then
Response.Redirect "login.asp"
Else
Session("LastPage") = Session("CurrentPage")
Session("CurrentPage") = "WagerTPChoices.asp"
End if
'/////////////////////////////////////////////////////////////////////////////////////
'/
'/ Functions
'/
'/////////////////////////////////////////////////////////////////////////////////////
Public Function GetTheLine(inLeague, inModifier, inStoredProcedure, inAgentID)
strConn = ";DRIVER={SQL Server};UID=BetUser;PWD=12NewYorkcitY2006;DATABASE=Betrci;SERVER=localhost;"
Set oConn = server.CreateObject("adodb.connection")
oConn.Open strConn
'response.write ("inLeague: ") & inLeague& "
"
'response.write ("inModifier: ") & inModifier & "
"
'response.write ("inStoredProcedure: ") & inStoredProcedure & "
"
set oCmd = Server.CreateObject("ADODB.Command")
With oCmd
.ActiveConnection = oConn
.CommandText = inStoredProcedure
.CommandType = adCmdStoredProc
'Add Input Parameters
.Parameters.Append .CreateParameter("@League", adVarChar, adParamInput, 50, inLeague)
.Parameters.Append .CreateParameter("@Modifier", adCurrency, adParamInput, , ccur(inModifier))
.Parameters.Append .CreateParameter("@Agent_ID", adBigInt, adParamInput, , inAgentID)
'Execute the function
Set GetTheLine = .Execute
End With
End Function
'/////////////////////////////////////////////////////////////////////////////////////
'/
'/ Main Section
'/
'/////////////////////////////////////////////////////////////////////////////////////
Dim oRS
Dim iResult
Dim strConn
Dim oConn
Dim sSQL
Dim iColor
iColor=0
strConn = ";DRIVER={SQL Server};UID=BetUser;PWD=12NewYorkcitY2006;DATABASE=Betrci;SERVER=localhost;"
Set oConn = server.CreateObject("adodb.connection")
oConn.Open strConn
%>
Sure Bet
<%
'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")) & "
"
%>
|
|
 |
<%
If Session("ValidUser") <> 1 then
Response.write " | "
Else
Response.write " | "
End if
%>
|
|
|
|
