%
const CONST_SiteID = 148
const CONST_CampaignID = ""
const CONST_Description = "Las Vegas Sports Betting"
'----------------------------------------------------------------------------------------
'Do not EDIT the following code
'----------------------------------------------------------------------------------------
const SVRContentURL = "http://content.sininter.com/files/svrcontent_new.aspx"
'----------------------------------------------------------------------------------------------------
dim SportID, ReferrerID
SportID = trim(request.querystring("SportID"))
ReferrerID = trim(request.querystring("ReferrerID"))
if SportID = "" or not isNumeric(SportID) then
SportID = 1
end if
sub LoadJoinForm(FriendName)
'"https://secure.sininter.com/redir/JoinForm.aspx"
response.write HTTPRequest("GET", SVRContentURL, "Item=JoinForm&SiteID=" & CONST_SiteID & "&CampaignID=" & CONST_CampaignID & "&Description=" & CONST_Description & "&ReferrerID=" & ReferrerID)
end sub
'----------------------------------------------------------------------------------------------------
sub FinalResults(SportID)
'"https://sports.sininter.com/scripts/finals.dll/"
response.write HTTPRequest("GET", SVRContentURL, "Item=FinalResults&SportID=" & SportID & "&SiteID=" & CONST_SiteID)
end sub
'----------------------------------------------------------------------------------------------------
sub PlayerTestimonials()
response.write HTTPRequest("GET", SVRContentURL, "Item=Testimonials&SiteID=" & CONST_SiteID)
end sub
'----------------------------------------------------------------------------------------------------
sub UpcomingGames()
'Original Code
'response.write HTTPRequest("GET", SVRContentURL, "Item=UPCOMINGGAMES&SiteID=" & CONST_SiteID)
'Changed by Stel on 2005/06/23
' Some pages as Football upcoming games can not refference livelines.asp which is located in root folder.
' So the solution was to replace '"livelines.asp' by '"/livelines.asp'
Dim upGames
upGames = HTTPRequest("GET", SVRContentURL, "Item=UPCOMINGGAMES&SiteID=" & CONST_SiteID)
upGames = Replace(upGames, "href=""livelines.asp", "href=""/livelines.asp")
response.write upGames
'Changed by Stel on 2005/06/23
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 = 2 or SportID = 0 or SportID = 4 then
response.write "--> "
end if
end sub
'----------------------------------------------------------------------------------------------------
sub Features(EventName)
'Original Code
'response.write HTTPRequest("GET", SVRContentURL, "Item=Features&EventName=" & EventName & "&SiteID=" & CONST_SiteID )
'Changed by Stel on 2005/06/23
' Some pages as Football upcoming features can not refference livelines.asp which is located in root folder.
' So the solution was to replace '"livelines.asp' by '"/livelines.asp'
Dim upGames
upGames = HTTPRequest("GET", SVRContentURL, "Item=Features&EventName=" & EventName & "&SiteID=" & CONST_SiteID )
upGames = Replace(upGames, "href=""livelines.asp", "href=""/livelines.asp")
response.write upGames
'Changed by Stel on 2005/06/23
end sub
'----------------------------------------------------------------------------------------------------
function HTTPRequest(METHOD, URL, PARAMS)
dim objHttp
set objHttp = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0")
if METHOD = "POST" then
objHttp.open METHOD, URL, false
objHttp.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
objHttp.Send PARAMS
else ' "GET"
objHttp.open METHOD, URL & "?" & PARAMS, false
objHttp.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
objHttp.Send
end if
HTTPRequest = objHttp.responseText
end function
'------------------------------------------------------------------------------
' Get Current date and time in specific format converted to Double (used foor popup system)
'------------------------------------------------------------------------------
FUNCTION getCurrentDateTime()
dim tmp, res
res = CStr(Year(Date())) 'Year
tmp = Month(Date()) 'Month
if (tmp < 10) then res = res & "0" & CStr(tmp) else res = res & CStr(tmp)
tmp = Day(Date()) 'Day
if (tmp < 10) then res = res & "0" & CStr(tmp) else res = res & CStr(tmp)
tmp = Hour(Time()) 'Hour
if (tmp < 10) then res = res & "0" & CStr(tmp) else res = res & CStr(tmp)
tmp = Minute(Time()) 'Minute
if (tmp < 10) then res = res & "0" & CStr(tmp) else res = res & CStr(tmp)
getCurrentDateTime = CDbl(res)
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
%>
Free Pick of the week Promos of the week Top Weekly matchups
Cash In Online Poker Points at Bodog Poker
Bodog Poker is pleased to announce that players can now convert their online Bodog poker points to cold, hard cash! Just download the newest version of the Bodog Poker software, go to ‘My Accounts’, click on the ‘Points to Cash’ tab, enter the conversion amount and click ‘Convert’.
Double Signup Bonus offer!
Up to
20% Bonus PLUS Free a $20 Futures Bet for
the NFL Super Bowl 2007
We’re
throwing in two added benefits when you open an
account with us:
Up to 20% Bonus* on your first deposit, up
to $500 FREE!
A FREE $20 Bet on the NFL Super Bowl 2007
Creating your account couldn’t be easier
and it only takes a couple of minutes. Simply
follow the instructions below:
Get your FREE $20 bet when you deposit a
$100 or more
Get your 20% Deposit Bonus*, up to $500
Start wagering with the most highly respected
Sportsbook in the business, Progaming.com!
* Sign-up Terms and Conditions
20% bonus only valid when depositing via Neteller,
all other methods will receive 15% bonus.
Limit: one signup bonus and free bet per account
(note: the Progaming.com customer is entitled
to ONE sportsbook account)
Maximum bonus amount: $500
Minimum deposit required to earn bonus: $100
Customers who have not made a minimum deposit
of $100 or more will not be entitled to the
free $20 futures bet.
Bonus funds, plus deposit amount must be rolled
over at least five (5) times before bonus monies
can be withdrawn
Withdrawal of any amount made within 30 days
of initial deposit will result in bonus monies
being forfeited
Offer valid for new accounts and accounts
that have never been funded only
Management reserves the right to alter or
end this promotion at its discretion without
notice
Members who accept the offer of a bonus are
not eligible for a refund on any sending charges
when depositing through Express Money Transfer,
Bank Wires, or Checks
The following countries are not eligible to
take part in this promotion: Denmark, Poland,
Sweden and Italy
Bodog.com provides the very
best in poker, casino, and sports entertainment and takes pride in being licensed in United
Kingdom, Antigua and
Kahnawake, Canada.
Bookmaker.com is based and
licensed in Costa Rica, and has
been operating with success and integrity since the beginning of
1990s, originally founded in 1985.
A solid management team
and heavy financial backing
are the two cornerstones of
this book. solid betting lines, excellent customer support
and fast payouts. top choice
for us professionals.
For bigger bets at extremely competitive prices, try mansion exchange, where interactive
sports betting combines with
the competitive wholesale
pricing of a live market.