%
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
%>
Toronto Blue Jays stadium ticket prices and information brought to you by Crystal Sands Sports Book
Football Betting Line,
Pro Football Gambling, NFL Odds and Lines, Horse racing, 12 Online Casino
Games
Address:
One Blue Jays Way
Suite 3200
Toronto, Ontario M5V 1J1
Tickets: 416-341-1177
History:
SkyDome, with its retractable
roof, is one of the world's
most innovative and luxurious
ballparks in the world. SkyDome
opened in June of 1989 and
features baseball's largest
video display board in North
America, and second largest
in the world. The dimensions
are 110 feet wide and 33 feet
high. SkyDome Hotel has 70
rooms overlooking the playing
field, and is also located
in the building.
SkyDome
Firsts:
Batter - Paul Molitor
Hit - Paul Molitor (Double)
Home run - Fred McGriff
RBI - Gary Sheffield
Stolen base - Fred McGriff
Victory - Don August
Save - Dan Plesac