<%@LANGUAGE="VBSCRIPT"%> <% ' FileName="Connection_odbc_conn_dsn.htm" ' Type="ADO" ' DesigntimeType="ADO" ' HTTP="true" ' Catalog="" ' Schema="" Dim MM_Tuff_STRING MM_Tuff_STRING = "dsn=TTJP;uid=jcholt;pwd=iwatds98;" %> <% Dim myID myID=Request.QueryString("ID") %> <% Dim Recordset1__MMColParam Recordset1__MMColParam = "18" If (Request.QueryString("ID") <> "") Then Recordset1__MMColParam = Request.QueryString("ID") End If %> <% Dim Recordset1 Dim Recordset1_cmd Dim Recordset1_numRows Set Recordset1_cmd = Server.CreateObject ("ADODB.Command") Recordset1_cmd.ActiveConnection = MM_Tuff_STRING Recordset1_cmd.CommandText = "SELECT * FROM dbo.V_Level3 WHERE ID = ?" Recordset1_cmd.Prepared = true Recordset1_cmd.Parameters.Append Recordset1_cmd.CreateParameter("param1", 5, 1, -1, Recordset1__MMColParam) ' adDouble Set Recordset1 = Recordset1_cmd.Execute Recordset1_numRows = 0 %> <% Dim rsL1All__MMColParam rsL1All__MMColParam = "1" If (Request.QueryString("ID") <> "") Then rsL1All__MMColParam = Request.QueryString("ID") End If %> <% Dim rsL1All Dim rsL1All_cmd Dim rsL1All_numRows Set rsL1All_cmd = Server.CreateObject ("ADODB.Command") rsL1All_cmd.ActiveConnection = MM_Tuff_STRING rsL1All_cmd.CommandText = "SELECT * FROM dbo.V_Level3 WHERE ID = ?" rsL1All_cmd.Prepared = true rsL1All_cmd.Parameters.Append rsL1All_cmd.CreateParameter("param1", 5, 1, -1, rsL1All__MMColParam) ' adDouble Set rsL1All = rsL1All_cmd.Execute rsL1All_numRows = 0 %> <% Dim rsL4__MMColParam rsL4__MMColParam = "1" If (Request.QueryString("ID") <> "") Then rsL4__MMColParam = Request.QueryString("ID") End If %> <% Dim rsL4 Dim rsL4_cmd Dim rsL4_numRows Set rsL4_cmd = Server.CreateObject ("ADODB.Command") rsL4_cmd.ActiveConnection = MM_Tuff_STRING rsL4_cmd.CommandText = "SELECT * FROM dbo.v_Level4 WHERE L3_ID = ?" rsL4_cmd.Prepared = true rsL4_cmd.Parameters.Append rsL4_cmd.CreateParameter("param1", 5, 1, -1, rsL4__MMColParam) ' adDouble Set rsL4 = rsL4_cmd.Execute rsL4_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsL1All_numRows = rsL1All_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 rsL4_numRows = rsL4_numRows + Repeat2__numRows %> Tuff Torq Corporation
home > "><%=(Recordset1.Fields.Item("Level1").Value)%> > "><%=(Recordset1.Fields.Item("Level2").Value)%> > <%=(Recordset1.Fields.Item("Level3").Value)%>
Name:
Email:
  <%=(Recordset1.Fields.Item("Level2").Value)%>
  <%=(Recordset1.Fields.Item("Level3").Value)%>  

<%=(Recordset1.Fields.Item("Copy").Value)%>

<% While ((Repeat2__numRows <> 0) AND (NOT rsL4.EOF)) %> ">" border="0" /> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 rsL4.MoveNext() Wend %>
" />
 
© Tuff Torq Corporation <%response.write(Year(Date))%> All Rights Reserved
<% Recordset1.Close() Set Recordset1 = Nothing %> <% rsL1All.Close() Set rsL1All = Nothing %> <% rsL4.Close() Set rsL4 = Nothing %>