%@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 rsTerm__MMColParam
rsTerm__MMColParam = "1"
If (Request("MM_EmptyValue") <> "") Then
rsTerm__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rsTerm
Dim rsTerm_cmd
Dim rsTerm_numRows
Set rsTerm_cmd = Server.CreateObject ("ADODB.Command")
rsTerm_cmd.ActiveConnection = MM_Tuff_STRING
rsTerm_cmd.CommandText = "SELECT * FROM dbo.TermCond WHERE ID = ?"
rsTerm_cmd.Prepared = true
rsTerm_cmd.Parameters.Append rsTerm_cmd.CreateParameter("param1", 5, 1, -1, rsTerm__MMColParam) ' adDouble
Set rsTerm = rsTerm_cmd.Execute
rsTerm_numRows = 0
%>
Tuff Torq Corporation
<%=(rsTerm.Fields.Item("Copy").Value)%>
|
| © Tuff Torq Corporation
<%response.write(Year(Date))%>
All Rights Reserve |
<%
rsTerm.Close()
Set rsTerm = Nothing
%>