<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rsQuote Dim rsQuote_cmd Dim rsQuote_numRows Set rsQuote_cmd = Server.CreateObject ("ADODB.Command") rsQuote_cmd.ActiveConnection = MM_connKarate_STRING rsQuote_cmd.CommandText = "SELECT * FROM quotes" rsQuote_cmd.Prepared = true Set rsQuote = rsQuote_cmd.Execute rsQuote_numRows = 0 %> <% Dim rsTip Dim rsTip_cmd Dim rsTip_numRows Set rsTip_cmd = Server.CreateObject ("ADODB.Command") rsTip_cmd.ActiveConnection = MM_connKarate_STRING rsTip_cmd.CommandText = "SELECT * FROM tips" rsTip_cmd.Prepared = true Set rsTip = rsTip_cmd.Execute rsTip_numRows = 0 %> <% Dim rsNews Dim rsNews_cmd Dim rsNews_numRows Set rsNews_cmd = Server.CreateObject ("ADODB.Command") rsNews_cmd.ActiveConnection = MM_connKarate_STRING rsNews_cmd.CommandText = "SELECT * FROM news ORDER BY newsNum DESC" rsNews_cmd.Prepared = true Set rsNews = rsNews_cmd.Execute rsNews_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 3 Repeat1__index = 0 rsNews_numRows = rsNews_numRows + Repeat1__numRows %> Trad Am Karate <% ' Moving to random record - Steven Jones' Extension If Not(rsTip.bof and rsTip.eof) Then ' reset the cursor to the beginning If (rsTip.CursorType > 0) Then rsTip.MoveFirst Else rsTip.Requery End If rsTip_totalrn = -1 rsTip_totalrn = rsTip.RecordCount ' ony works on some recordsets, but much faster If (rsTip_totalrn = -1) Then ' and if it didn't work, we still have to count the records. ' count the total records by iterating through the recordset rsTip_totalrn=0 While (Not rsTip.EOF) rsTip_totalrn = rsTip_totalrn + 1 rsTip.MoveNext Wend ' reset the cursor to the beginning If (rsTip.CursorType > 0) Then rsTip.MoveFirst Else rsTip.Requery End If End If ' now do final adjustments, and move to the random record rsTip_totalrn = rsTip_totalrn - 1 If rsTip_totalrn > 0 Then Randomize rsTip.Move Int((rsTip_totalrn + 1) * Rnd) End If End If ' all done; you should always check for an empty recordset before displaying data %> <% ' Moving to random record - Steven Jones' Extension If Not(rsQuote.bof and rsQuote.eof) Then ' reset the cursor to the beginning If (rsQuote.CursorType > 0) Then rsQuote.MoveFirst Else rsQuote.Requery End If rsQuote_totalrn = -1 rsQuote_totalrn = rsQuote.RecordCount ' ony works on some recordsets, but much faster If (rsQuote_totalrn = -1) Then ' and if it didn't work, we still have to count the records. ' count the total records by iterating through the recordset rsQuote_totalrn=0 While (Not rsQuote.EOF) rsQuote_totalrn = rsQuote_totalrn + 1 rsQuote.MoveNext Wend ' reset the cursor to the beginning If (rsQuote.CursorType > 0) Then rsQuote.MoveFirst Else rsQuote.Requery End If End If ' now do final adjustments, and move to the random record rsQuote_totalrn = rsQuote_totalrn - 1 If rsQuote_totalrn > 0 Then Randomize rsQuote.Move Int((rsQuote_totalrn + 1) * Rnd) End If End If ' all done; you should always check for an empty recordset before displaying data %>
 
Trad Am Karate:  Santee and Alpine, CA

 

-

Welcome

  About TAK
  Classes
  Fees
  News & Events
  Training Tips
  Links

 

 

 

 

Welcome!

Welcome to Trad Am Karate in Santee and Alpine, California. We offer great youth and adult karate training at these two locations and participants can train individually, or as a parent and child duo or trio. In fact, an entire family can block, punch and kick their way to better physical and mental fitness, heightened focus and concentration and improved confidence and self-esteem. A favorite motto here at Trad Am is, "the family that punches and kicks together, sticks together."

Trad Am Karate teaches Traditional American Karate (TAK), an eclectic martial arts system that began in Southern California in 1982. TAK is based on shorin-ryu, shotokan and kung fu and incorporates techniques from judo, jujutsu, aikido, American Karate, kenpo and kickboxing. To learn more, click "About TAK" on the tool bar, and then come on over to the dojo and get started. Remember, a thousand mile journey begins with the first step, and if you've gotten to this web-site, you are already moving forward. Thanks for visiting our web site and we appreciate your interest in Trad Am Karate.

Dojo News

    <% While ((Repeat1__numRows <> 0) AND (NOT rsNews.EOF)) %>
  • <%=(rsNews.Fields.Item("title").Value)%> <%=(rsNews.Fields.Item("announcement").Value)%>  <%=(rsNews.Fields.Item("date").Value)%>
  • <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsNews.MoveNext() Wend %>

 

more news

 

 

 

Random Quote

<%=(rsQuote.Fields.Item("quote").Value)%>
- <%=(rsQuote.Fields.Item("author").Value)%>

Today's Tip

<%=(rsTip.Fields.Item("tip1").Value)%> <%=(rsTip.Fields.Item("tip2").Value)%>

 

 

TAK Logo

Santee Dojo

Trad Am Karate
8955 Carlton Hills Blvd.
Santee, CA 92071
In the GTM Shopping Center
(619) 596-7838
map

Alpine Dojo

Alpine Karate Academy
1730 Alpine Blvd. #109
Alpine, CA 91901
In the Country Side Center
(619) 659-9876
map

 
<% rsQuote.Close() Set rsQuote = Nothing %> <% rsTip.Close() Set rsTip = Nothing %> <% rsNews.Close() Set rsNews = Nothing %>