%
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
%>
Don't get caught up in the gambling addiction
Football Betting Line,
Pro Football Gambling, NFL Odds and Lines, Horse racing, 12 Online Casino
Games
Do not increase your bets or bet on more games in order to
make up losses. You will lose bets. You will experience losing
streaks as well as winning streaks. You must stay disciplined.
By chasing losses all you do is put your bankroll at risk.
If you experience a losing streak, reassess your research
and handicapping efforts. If in hindsight you would still
make the same bets, then relax and stay consistent. If you
see gaps in your skills, then spend some time learning. Frankly,
the learning experience never ends.
Winning Exuberance
Do not increase your bets or bet on more games because you
are on a winning streak and can't lose. You can and will lose.
The natural temptation when you have a great week, is to
start doubling your bet amounts and the number of games you
are betting on. Do not do it. You must stay disciplined.