<%@ LANGUAGE="VBSCRIPT" %> <% ' ******************************************************************* ' Name: KATA_LIST.ASP ' This page gets and dynamically displays the Karate Katas from the ' tblProducts Table in the KATAS database. ' ******************************************************************* ' DECLARE VARIABLES Dim CATString Dim StartAtString Dim myQuery Dim Counter Dim theCount Dim strUA ' OPEN DATA CONNECTION TO THE ACCESS DATABASE Set cnxObject = Server.CreateObject("ADODB.Connection") cnxString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("/kwdb/katas.mdb") + ";Persist Security Info=False" cnxObject.Open cnxString Set cmdObject = Server.CreateObject("ADODB.Command") cmdObject.ActiveConnection = cnxObject ' DO A QUERY TO GET THE TOTAL NUMBER OF RECORDS myQuery = "SELECT COUNT(*) as Answer FROM tblProducts" cmdObject.CommandText = myQuery cmdObject.CommandType = 1 Set rsObject = cmdObject.Execute theCount = rsObject("Answer") ' IF STARTAT INPUT IS GREATER THAN NUMBER OF RECORDS AUTOSET TO MAX If Cint(StartAtString) >= theCount Then StartAtString = theCount ' DO A QUERY WITH THE INPUT VALUE TO GET DESIRED RECORD myQuery = "SELECT * FROM tblProducts" cmdObject.CommandText = myQuery cmdObject.CommandType = 1 Set rsObject = cmdObject.Execute strUA = Request.ServerVariables("HTTP_USER_AGENT") %> Karate West - Family Karate and Fitness in Sammamish, Washington - Online Katas

Karate West Online Katas

Thank you for purchasing kata downloads. Proceeds from kata sales are donated to the Shudokan College Scholarship fund.

After you add a video to your shopping cart, you will be taken to Paypal. To add additional videos, return to our site and add your next purchase. You will need to go back and forth until your purchase is complete.

Note: If you pay by credit card, your kata download email will be sent immediately. Payment by eCheck takes 4-6 days.

Please contact us at info@karatewest.com if you encounter any problems.

<% Counter = 0 %> <% Do While rsObject.EOF <> TRUE %> <% Counter = Counter + 1 %> <% Loop %>

<% IF rsObject("New") = 1 Then Response.Write("New!") %>

<% = rsObject("Item_Name") %>

$<% = rsObject("Retail_Price") %> <% rsObject.MoveNext %>

All Katas are compressed Quicktime files. Please see the downloads page for information on software requirements. After your purchase you will immediately receive an email with information on how to download. These email links expire after 2 days, so please download your Katas at your earliest convenience.

PLEASE: Make sure that your email does not block mail sent from Karate West.