<% dim myconnection dim rs, rs2 dim strlanes dim strstates 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") set rs=Nothing If Request.Form.Count > 0 Then dim strName, strcity, stremail, strtelephone, strcomments, strother dim straddress, strcenter, strtournament, strstate, strzip if Request.Form("bowlingcenter")="" then strcenter="N/A" else strcenter=Request.Form("bowlingcenter") if Request.Form("tournament")="" then strtournament="N/A" else strtournament=Request.Form("tournament") if Request.Form("Name")="" then strName="N/A" else strName=Request.Form("Name") if Request.Form("address")="" then straddress="N/A" else straddress=Request.Form("address") if Request.Form("city")="" then strcity="N/A" else strcity=Request.Form("city") if Request.Form("state")="" then strstate="N/A" else strstate=Request.Form("state") if Request.Form("zip")="" then strzip="N/A" else strzip=Request.Form("zip") if Request.Form("Email")="" then stremail="N/A" else stremail=Request.Form("Email") if Request.Form("telephone")="" then strtelephone="N/A" else strtelephone=Request.Form("telephone") if Request.Form("comments")="" then strcomments="No comments submitted." else strcomments=Request.Form("comments") if Request.Form("other")<>"" then strother=" - " & Request.Form("other") '*** send notification email to Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.RemoteHost = "mail.keglerscash.com" if strName<>"N/A" then Mailer.FromName = Request.Form("Name") else Mailer.FromName = "Keglers Website" end if if stremail<>"N/A" then if instr(stremail, "@") then Mailer.FromAddress = Request.Form("Email") else Mailer.FromAddress = "keglerscash@keglerscash.com" end if else Mailer.FromAddress = "keglerscash@keglerscash.com" end if Mailer.AddRecipient "Mark", "kram@stormtour.com" Mailer.AddRecipient "Jim", "fubar@stormtour.com" Mailer.AddRecipient "Keglers Email", "keglerscash@keglerscash.com" Mailer.Subject = "Tournament Request by " & UCASE(strcenter) Mailer.BodyText = "This email was submitted from the Kegler Website Tournament page." & VBCRLF & VBCRLF & _ "Tournament Name: " & strtournament & VBCRLF & _ "Bowling Center: " & strcenter & VBCRLF & _ "Position: " & Request.Form("position") & VBCRLF & _ "Name Submitted: " & strName & VBCRLF & _ "Address: " & straddress & VBCRLF & _ "City, State, Zip: " & strcity & ", " & strstate & " " & strzip & VBCRLF & _ "Email: " & stremail & VBCRLF & _ "Telephone: " & strtelephone & VBCRLF & VBCRLF & _ "Comments: " & strcomments & VBCRLF & VBCRLF & _ "Contact Information: " & Request.Form("contact") & VBCRLF & _ "Made aware of this site: " & Request.Form("foundsite") & strother & VBCRLF If Mailer.Sendmail Then Response.Redirect "thankyou.html" Else Response.Redirect "error.html" End If End If%> Tournament

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
  We have worked with several men's and women's local, state, regional and national tournaments to offer our promotion during their tournament competition and it did not affect their brackets or 50/50 promotions.  Our promotion works as well in scratch tournaments as it does in handicap tournaments.  The majority of our entries came from low average bowlers that usually do not enter brackets.

We can even provide some statistics from the W. I. B. C. National Championship.

If you are interested in finding out more about how our unique promotion can help add excitement and revenue to your event, please complete the form below and we will rush you the information as soon as possible.

Let us show you how unique our program is, what do you have to lose?
NO RISK-NO COMMITMENT
GUARANTEED PROFIT!

 
 
Select One: Proprietor Tournament Director
Tournament Name:
Bowling Center(s):
Your Name:
Address:
City:
State/Zip:
Your Email:
Telephone:
Comments:
Please contact me via:
 Email Telephone Mail
I found out about Kegler's™:
    Other:

 
 
 

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