%
dim myconnection
dim rs, rs2
dim strlanes, stryearsexist, strsmalllanes, strsmallcenter, strlargelanes, strlargecenter
dim strstates, strconswon, strconsmoney, strconsyear, strlowwon, strlowmoney, strlowyear, strmostmoney
dim strmostwon, strmostwonyear, strmostentry, strmostyear, strmostmoneytourney, strmostmoneyyear
dim SQLQuery
set myconnection = Server.CreateObject("ADODB.Connection")
myconnection.open ("Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("\db\kegler.mdb"))
SQLQuery = "Select * from keglerstats;"
set rs = Server.CreateObject("ADODB.Recordset")
set rs = myconnection.Execute(SQLQuery)
rs.movefirst
str1990 = rs("Since1990")
strlanes = rs("TotalLanes")
strstates = rs("TotalStates")
strcenters = rs("Centers")
stryearsexist = rs("YearsExist")
strsmalllanes = rs("SmallLanes")
strsmallcenter = rs("SmallCenter")
strlargelanes = rs("LargeLanes")
strlargecenter = rs("LargeCenter")
strconswon = rs("ConsGamesWon")
strconsmoney = rs("ConsMoney")
strconsyear = rs("ConsStateYear")
strlowwon = rs("LowGameWon")
strlowmoney = rs("LowMoney")
strlowyear = rs("LowStateYear")
strmostmoney = rs("MostMoneyMonth")
strmostmoneyyr = rs("MostMoneyYear")
strmostwon = rs("MostWonCenterMonth")
strmostwonyear = rs("MostWonCenterStateYear")
strmostentry = rs("MostEntryTournament")
strmostyear = rs("MostEntryStateYear")
strmostmoneytourney = rs("MostMoneyTournament")
strmostmoneyyear = rs("MostMoneyStateYear")
set rs=Nothing
%>
Testimonials
|
Supporting Youth Bowlers Since
1990 |
Currently
offered nightly in
285 centers
in
29
states
BOWLERS HAVE WON OVER $15,000,000
since promotion started in 1990
|
|
Copyrighted
Unique Concept |
|
|
|
|
|