<%@LANGUAGE="VBSCRIPT"%> <% ' FileName="Connection_odbc_conn_dsn.htm" ' Type="ADO" ' DesigntimeType="ADO" ' HTTP="true" ' Catalog="" ' Schema="" Dim MM_SLProd_STRING MM_SLProd_STRING = "dsn=SLifeProds2;" %> <% Dim myID myID=Request.QueryString("ID") %> <% Dim rsMenu Dim rsMenu_cmd Dim rsMenu_numRows Set rsMenu_cmd = Server.CreateObject ("ADODB.Command") rsMenu_cmd.ActiveConnection = MM_SLProd_STRING rsMenu_cmd.CommandText = "SELECT * FROM Cat" rsMenu_cmd.Prepared = true Set rsMenu = rsMenu_cmd.Execute rsMenu_numRows = 0 %> <% Dim rsMenuTh Dim rsMenuTh_cmd Dim rsMenuTh_numRows Set rsMenuTh_cmd = Server.CreateObject ("ADODB.Command") rsMenuTh_cmd.ActiveConnection = MM_SLProd_STRING rsMenuTh_cmd.CommandText = "SELECT * FROM Cat" rsMenuTh_cmd.Prepared = true Set rsMenuTh = rsMenuTh_cmd.Execute rsMenuTh_numRows = 0 %> <% Dim rsText Dim rsText_cmd Dim rsText_numRows Set rsText_cmd = Server.CreateObject ("ADODB.Command") rsText_cmd.ActiveConnection = MM_SLProd_STRING rsText_cmd.CommandText = "SELECT * FROM StoreText" rsText_cmd.Prepared = true Set rsText = rsText_cmd.Execute rsText_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsMenu_numRows = rsMenu_numRows + Repeat1__numRows %> <% Dim HLooper1__numRows HLooper1__numRows = 4 Dim HLooper1__index HLooper1__index = 0 rsMenuTh_numRows = rsMenuTh_numRows + HLooper1__numRows %> Tuff Torq Corporation
home>online Store
Name:
Email:
  ONLINE STORE
  <% While ((Repeat1__numRows <> 0) AND (NOT rsMenu.EOF)) %> "><%=(rsMenu.Fields.Item("Cat").Value)%>       <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsMenu.MoveNext() Wend %>  
<%=(rsText.Fields.Item("Copy").Value)%> <% startrw = 0 endrw = HLooper1__index numberColumns = 4 numrows = 1 while((numrows <> 0) AND (Not rsMenuTh.EOF)) startrw = endrw + 1 endrw = endrw + numberColumns %> <% While ((startrw <= endrw) AND (Not rsMenuTh.EOF)) %> <% startrw = startrw + 1 rsMenuth.MoveNext() Wend %> <% numrows=numrows-1 Wend %>
">
<%=(rsMenuTh.Fields.Item("Cat").Value)%>
">" border="0" />
Frequently Asked Questions
© Tuff Torq Corporation <%response.write(Year(Date))%> All Rights Reserved
<% rsMenu.Close() Set rsMenu = Nothing %> <% rsMenuTh.Close() Set rsMenuTh = Nothing %> <% rsText.Close() Set rsText = Nothing %>