%
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
<%Response.Write strcenters%>
285 centers
in
<%Response.Write strstates%>29
states
|
BOWLERS HAVE WON OVER $15,000,000
<%Response.write str1990%>
since promotion started in 1990
|
|
Copyrighted
Unique Concept |
|
|
 |
|
|
 |