%
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
%>
Online Sports Betting provided by Crystal Sands Sports Book also 2006 Super
Bowl Gambling
Football Betting Line,
Pro Football Gambling, NFL Odds and Lines, Horse racing, 12 Online Casino
Games
Join hundreds of other members
and become a VIP player of Crystal Sands Sportsbook today
and let us show you how much we appreciate your loyalty.
VIP Member Qualifications
If you've deposited at least
an initial $500,$1000 in
the last 3 months or $2500
in last 6 months - You Are a V.I.P. Player!
VIP Las Vegas
Your own personal customer service representative. A "one
on one" priority support with the SAME rep. 7 days
a week.
Generous CASH bonus incentives
Activate your
VIP Status
If you meet the V.I.P. member qualifications,
simply send an e-mail to
vip@online-gaming-network.com to activate your V.I.P.
status.
VIP Host
Don't hesitate to contact 24/7 if you have any questions
regarding the V.I.P. Program or any other services.
Terms & Conditions
VIP program are intended for recreational bettors only.
Professional players or players considered to be abusing
the bonus system by any means may have bonuses revoked and
be subject to further sanctions, at the discretion of Crystal Sands Sportsbook .