<%@ Language=VBScript %> <% dim myconnection dim rs, rs2 dim strlanes dim strstates dim SQLQuery dim theusername dim thepassword dim strtemppassword dim strtempuser dim strdenied strdenied = "N/A" 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") strtemppassword = rs("po_password") strtempuser = rs("po_username") set rs=Nothing If Request.Form.Count > 0 Then if Request.Form("po_username")="" then theusername="N/A" else theusername=Request.Form("po_username") if Request.Form("po_password")="" then thepassword="N/A" else thepassword=Request.Form("po_password") if theusername <> "N/A" then if UCase(theusername) = UCase(strtempuser) then if thepassword = strtemppassword then Session("loginokay") = True Response.Redirect "po_index.asp" else strdenied = "The password you entered did not match the username entered. Please try again." end if else strdenied = "The username entered is incorrect. Please try again." end if end if End If %> Sign Up

Supporting
Youth Bowlers
Since 1990

Currently offered nightly in
<%Response.Write strcenters%>429 centers with <%Response.Write strlanes%>15,212 lanes in <%Response.Write strstates%>42 states & Canada

  BOWLERS HAVE WON $12,775,004.56 <%Response.write str1990%>
since promotion started in 1990

Copyrighted
Unique
Concept
comments.htm
  Please enter the username and password to view the Proprietor's information.

Need a password, click HERE.
 
 
Username:
Password:
 
 

The ONLY promotion offered at the
2004, 2005 W. I. B. C. National Championship
 
 

HOME  |  REORDER SUPPLIES  |  SIGN UP  |  TOURNAMENTS  |  STATISTICS  |  COMMENTS
REPORT UNAUTHORIZED KEGLERS  |  CENTER LOCATIONS MAP  |  TESTIMONIALS
PROPRIETORS ONLY
AMF CENTERS SIGNUP  |  AMF FORMS REORDER
BPAA MEMBER
 

Copyrighted & operated by Kegler's Cash, LLC under the trademarks
 "Kegler's Cash", "Bubba Bucks" and "Easy Money" and private label.
   
 

Kegler's Cash™ LLC
Mailing Address: PO Box 4683 Wichita Falls, TX 76308
Street Address: 4018 Kemp Suite F Wichita Falls, TX 76308
(940) 723-7012
FAX: (940) 723-9710
EMAIL:  keglerscash@keglerscash.com