<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows
Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
Recordset1_cmd.ActiveConnection = MM_Davis_Campers_STRING
Recordset1_cmd.CommandText = "SELECT * FROM awsmhost_davis_campers.copyright"
Recordset1_cmd.Prepared = true
Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%>
<%
Dim Recordset2__MMColParam
Recordset2__MMColParam = "1"
If (Request("MM_EmptyValue") <> "") Then
Recordset2__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim Recordset2
Dim Recordset2_cmd
Dim Recordset2_numRows
Set Recordset2_cmd = Server.CreateObject ("ADODB.Command")
Recordset2_cmd.ActiveConnection = MM_Davis_Campers_STRING
Recordset2_cmd.CommandText = "SELECT * FROM awsmhost_davis_campers.banner WHERE display = ?"
Recordset2_cmd.Prepared = true
Recordset2_cmd.Parameters.Append Recordset2_cmd.CreateParameter("param1", 5, 1, -1, Recordset2__MMColParam) ' adDouble
Set Recordset2 = Recordset2_cmd.Execute
Recordset2_numRows = 0
%>
<%
Dim Recordset3__MMColParam
Recordset3__MMColParam = "2"
If (Request("MM_EmptyValue") <> "") Then
Recordset3__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim Recordset3
Dim Recordset3_cmd
Dim Recordset3_numRows
Set Recordset3_cmd = Server.CreateObject ("ADODB.Command")
Recordset3_cmd.ActiveConnection = MM_Davis_Campers_STRING
Recordset3_cmd.CommandText = "SELECT * FROM awsmhost_davis_campers.pgtext WHERE id = ?"
Recordset3_cmd.Prepared = true
Recordset3_cmd.Parameters.Append Recordset3_cmd.CreateParameter("param1", 5, 1, -1, Recordset3__MMColParam) ' adDouble
Set Recordset3 = Recordset3_cmd.Execute
Recordset3_numRows = 0
%>
More About Davis Camper Sales, Inc.
<% If Not Recordset2.EOF Or Not Recordset2.BOF Then %>
<% End If ' end Not Recordset2.EOF Or NOT Recordset2.BOF %>
<%=(Recordset3.Fields.Item("header").Value)%>
<%=(Recordset3.Fields.Item("para1").Value)%>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%
Recordset2.Close()
Set Recordset2 = Nothing
%>
<%
Recordset3.Close()
Set Recordset3 = Nothing
%>
