% 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 %>
| Football Betting Line, Pro Football Gambling, NFL Odds and Lines, Horse racing, 12 Online Casino Games |
![]() |
![]() |
|
|||||||||||||||
![]() |
|||||||||||||||||
Sports Informations:
|
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
||||||