%
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
%>
Seatle Mariners 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
Edison International Field of
Safeco Field Information
Address:
First & Atlantic
Seattle, WA 98104
Tickets: (206) 622-HITS
Size: Just under 20 acres
Height: 250 feet
Deepst power alley: 409 feet
Distance to hit home run completely
out of ballpark: 470 feet
Elevators: 9
Escalators: 2
Restrooms: 76
Luxury suites: 61 private,
holding 16-18 people; 8 group
suites that hold 40 each
Cost: Just under $500 million
Opening: July 15, 1999