<%
const CONST_SiteID = 128
const CONST_CampaignID = ""
const CONST_Description = "Crystal Sands Sportsbook"
'----------------------------------------------------------------------------------------
'Do not EDIT the following code
'----------------------------------------------------------------------------------------
const SVRContentURL = "http://content.sininter.com/files/svrcontent.aspx"
'----------------------------------------------------------------------------------------------------
dim SportID
SportID = trim(request.querystring("SportID"))
if SportID = "" or not isNumeric(SportID) then
SportID = 1
end if
sub LoadJoinForm
'"https://secure.sininter.com/redir/JoinForm.aspx"
response.write HTTPRequest("GET", SVRContentURL, "Item=JoinForm&SiteID=" & CONST_SiteID & "&CampaignID=" & CONST_CampaignID & "&Description=" & CONST_Description)
end sub
'----------------------------------------------------------------------------------------------------
sub FinalResults(SportID)
'"https://sports.sininter.com/scripts/finals.dll/"
response.write HTTPRequest("GET", SVRContentURL, "Item=FinalResults&LeagueID=" & SportID & "&SiteID=" & CONST_SiteID)
end sub
'----------------------------------------------------------------------------------------------------
sub PlayerTestimonials()
response.write HTTPRequest("GET", SVRContentURL, "Item=Testimonials&SiteID=" & CONST_SiteID)
end sub
'----------------------------------------------------------------------------------------------------
sub UpcomingGames()
response.write HTTPRequest("GET", SVRContentURL, "Item=UPCOMINGGAMES&SiteID=" & CONST_SiteID)
end sub
'----------------------------------------------------------------------------------------------------
sub WinnerList(ListID, XSL)
response.write HTTPRequest("GET", SVRContentURL, "Item=WinnerList&ListID=" & ListID & "&SiteID=" & CONST_SiteID & "&XSL=" & XSL)
end sub
'----------------------------------------------------------------------------------------------------
sub LiveLines(SportID)
'"https://sports.sininter.com/scripts/lines.dll?s=" & SportID
response.write HTTPRequest("GET", SVRContentURL,"Item=LiveLines&SportID=" & SportID & "&LeagueID=" & LeagueID & "&SiteID=" & CONST_SiteID)
if SportID = 4 then
response.write "--> "
end if
end sub
'----------------------------------------------------------------------------------------------------
function HTTPRequest(METHOD, URL, PARAMS)
dim objHttp
set objHttp = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0")
if METHOD = "POST" then
objHttp.open METHOD, SVRContentURL, false
objHttp.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
objHttp.Send PARAMS
else ' "GET"
objHttp.open METHOD, SVRContentURL & "?" & PARAMS, false
objHttp.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
objHttp.Send
end if
HTTPRequest = objHttp.responseText
end function
'SportID List
'------------
'0. Baseball
'1. Pro Football
'2. Pro Basketball
'3. Hockey
'4. College Football
'5. College Basketball
'6. Soccer
'7. Matchups
'9. Propositions
'12. Other sports
%>
MLB Baseball teams page index provided by Crystal Sands Sports Book
Football Betting Line,
Pro Football Gambling, NFL Odds and Lines, Horse racing, 12 Online Casino
Games
