<%@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 = "3" 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 %> <% Dim Recordset4__MMColParam Recordset4__MMColParam = "y" If (Request("MM_EmptyValue") <> "") Then Recordset4__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Recordset4__MMColParam2 Recordset4__MMColParam2 = "pop" If (Request("MM_EmptyValue") <> "") Then Recordset4__MMColParam2 = Request("MM_EmptyValue") End If %> <% Dim Recordset4__MMColParam3 Recordset4__MMColParam3 = "n" If (Request("MM_EmptyValue") <> "") Then Recordset4__MMColParam3 = Request("MM_EmptyValue") End If %> <% Dim Recordset4__MMColParam4 Recordset4__MMColParam4 = "Rent" If (Request("MM_EmptyValue") <> "") Then Recordset4__MMColParam4 = Request("MM_EmptyValue") End If %> <% Dim Recordset4 Dim Recordset4_cmd Dim Recordset4_numRows Set Recordset4_cmd = Server.CreateObject ("ADODB.Command") Recordset4_cmd.ActiveConnection = MM_Davis_Campers_STRING Recordset4_cmd.CommandText = "SELECT * FROM awsmhost_davis_campers.rvs WHERE display LIKE ? AND style LIKE ? AND noru LIKE ? AND stat NOT LIKE ? ORDER BY make,model ASC" Recordset4_cmd.Prepared = true Recordset4_cmd.Parameters.Append Recordset4_cmd.CreateParameter("param1", 200, 1, 255, "%" + Recordset4__MMColParam + "%") ' adVarChar Recordset4_cmd.Parameters.Append Recordset4_cmd.CreateParameter("param2", 200, 1, 255, "%" + Recordset4__MMColParam2 + "%") ' adVarChar Recordset4_cmd.Parameters.Append Recordset4_cmd.CreateParameter("param3", 200, 1, 255, "%" + Recordset4__MMColParam3 + "%") ' adVarChar Recordset4_cmd.Parameters.Append Recordset4_cmd.CreateParameter("param4", 200, 1, 255, "%" + Recordset4__MMColParam4 + "%") ' adVarChar Set Recordset4 = Recordset4_cmd.Execute Recordset4_numRows = 0 %> <% Dim Recordset5__MMColParam Recordset5__MMColParam = "travel" If (Request("MM_EmptyValue") <> "") Then Recordset5__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Recordset5__MMColParam2 Recordset5__MMColParam2 = "Y" If (Request("MM_EmptyValue") <> "") Then Recordset5__MMColParam2 = Request("MM_EmptyValue") End If %> <% Dim Recordset5__MMColParam3 Recordset5__MMColParam3 = "n" If (Request("MM_EmptyValue") <> "") Then Recordset5__MMColParam3 = Request("MM_EmptyValue") End If %> <% Dim Recordset5__MMColParam4 Recordset5__MMColParam4 = "rent" If (Request("MM_EmptyValue") <> "") Then Recordset5__MMColParam4 = Request("MM_EmptyValue") End If %> <% Dim Recordset5 Dim Recordset5_cmd Dim Recordset5_numRows Set Recordset5_cmd = Server.CreateObject ("ADODB.Command") Recordset5_cmd.ActiveConnection = MM_Davis_Campers_STRING Recordset5_cmd.CommandText = "SELECT * FROM awsmhost_davis_campers.rvs WHERE style LIKE ? AND display LIKE ? AND noru LIKE ? AND stat NOT LIKE ? ORDER BY make,model ASC" Recordset5_cmd.Prepared = true Recordset5_cmd.Parameters.Append Recordset5_cmd.CreateParameter("param1", 200, 1, 255, Recordset5__MMColParam + "%") ' adVarChar Recordset5_cmd.Parameters.Append Recordset5_cmd.CreateParameter("param2", 200, 1, 255, "%" + Recordset5__MMColParam2 + "%") ' adVarChar Recordset5_cmd.Parameters.Append Recordset5_cmd.CreateParameter("param3", 200, 1, 255, "%" + Recordset5__MMColParam3 + "%") ' adVarChar Recordset5_cmd.Parameters.Append Recordset5_cmd.CreateParameter("param4", 200, 1, 255, "%" + Recordset5__MMColParam4 + "%") ' adVarChar Set Recordset5 = Recordset5_cmd.Execute Recordset5_numRows = 0 %> <% Dim Recordset6__MMColParam Recordset6__MMColParam = "fifth" If (Request("MM_EmptyValue") <> "") Then Recordset6__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Recordset6__MMColParam2 Recordset6__MMColParam2 = "Y" If (Request("MM_EmptyValue") <> "") Then Recordset6__MMColParam2 = Request("MM_EmptyValue") End If %> <% Dim Recordset6__MMColParam3 Recordset6__MMColParam3 = "n" If (Request("MM_EmptyValue") <> "") Then Recordset6__MMColParam3 = Request("MM_EmptyValue") End If %> <% Dim Recordset6__MMColParam4 Recordset6__MMColParam4 = "rent" If (Request("MM_EmptyValue") <> "") Then Recordset6__MMColParam4 = Request("MM_EmptyValue") End If %> <% Dim Recordset6 Dim Recordset6_cmd Dim Recordset6_numRows Set Recordset6_cmd = Server.CreateObject ("ADODB.Command") Recordset6_cmd.ActiveConnection = MM_Davis_Campers_STRING Recordset6_cmd.CommandText = "SELECT * FROM awsmhost_davis_campers.rvs WHERE style LIKE ? AND display LIKE ? AND noru LIKE ? AND stat NOT LIKE ? ORDER BY make,model ASC" Recordset6_cmd.Prepared = true Recordset6_cmd.Parameters.Append Recordset6_cmd.CreateParameter("param1", 200, 1, 255, "%" + Recordset6__MMColParam + "%") ' adVarChar Recordset6_cmd.Parameters.Append Recordset6_cmd.CreateParameter("param2", 200, 1, 255, "%" + Recordset6__MMColParam2 + "%") ' adVarChar Recordset6_cmd.Parameters.Append Recordset6_cmd.CreateParameter("param3", 200, 1, 255, "%" + Recordset6__MMColParam3 + "%") ' adVarChar Recordset6_cmd.Parameters.Append Recordset6_cmd.CreateParameter("param4", 200, 1, 255, "%" + Recordset6__MMColParam4 + "%") ' adVarChar Set Recordset6 = Recordset6_cmd.Execute Recordset6_numRows = 0 %> <% Dim Recordset7__MMColParam Recordset7__MMColParam = "hauler" If (Request("MM_EmptyValue") <> "") Then Recordset7__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Recordset7__MMColParam2 Recordset7__MMColParam2 = "Y" If (Request("MM_EmptyValue") <> "") Then Recordset7__MMColParam2 = Request("MM_EmptyValue") End If %> <% Dim Recordset7__MMColParam3 Recordset7__MMColParam3 = "n" If (Request("MM_EmptyValue") <> "") Then Recordset7__MMColParam3 = Request("MM_EmptyValue") End If %> <% Dim Recordset7__MMColParam4 Recordset7__MMColParam4 = "rent" If (Request("MM_EmptyValue") <> "") Then Recordset7__MMColParam4 = Request("MM_EmptyValue") End If %> <% Dim Recordset7 Dim Recordset7_cmd Dim Recordset7_numRows Set Recordset7_cmd = Server.CreateObject ("ADODB.Command") Recordset7_cmd.ActiveConnection = MM_Davis_Campers_STRING Recordset7_cmd.CommandText = "SELECT * FROM awsmhost_davis_campers.rvs WHERE style LIKE ? AND display LIKE ? AND noru LIKE ? AND stat NOT LIKE ? ORDER BY make,model ASC" Recordset7_cmd.Prepared = true Recordset7_cmd.Parameters.Append Recordset7_cmd.CreateParameter("param1", 200, 1, 255, "%" + Recordset7__MMColParam + "%") ' adVarChar Recordset7_cmd.Parameters.Append Recordset7_cmd.CreateParameter("param2", 200, 1, 255, "%" + Recordset7__MMColParam2 + "%") ' adVarChar Recordset7_cmd.Parameters.Append Recordset7_cmd.CreateParameter("param3", 200, 1, 255, "%" + Recordset7__MMColParam3 + "%") ' adVarChar Recordset7_cmd.Parameters.Append Recordset7_cmd.CreateParameter("param4", 200, 1, 255, "%" + Recordset7__MMColParam4 + "%") ' adVarChar Set Recordset7 = Recordset7_cmd.Execute Recordset7_numRows = 0 %> <% Dim Recordset8__MMColParam Recordset8__MMColParam = "class" If (Request("MM_EmptyValue") <> "") Then Recordset8__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Recordset8__MMColParam2 Recordset8__MMColParam2 = "Y" If (Request("MM_EmptyValue") <> "") Then Recordset8__MMColParam2 = Request("MM_EmptyValue") End If %> <% Dim Recordset8__MMColParam3 Recordset8__MMColParam3 = "n" If (Request("MM_EmptyValue") <> "") Then Recordset8__MMColParam3 = Request("MM_EmptyValue") End If %> <% Dim Recordset8__MMColParam4 Recordset8__MMColParam4 = "rent" If (Request("MM_EmptyValue") <> "") Then Recordset8__MMColParam4 = Request("MM_EmptyValue") End If %> <% Dim Recordset8 Dim Recordset8_cmd Dim Recordset8_numRows Set Recordset8_cmd = Server.CreateObject ("ADODB.Command") Recordset8_cmd.ActiveConnection = MM_Davis_Campers_STRING Recordset8_cmd.CommandText = "SELECT * FROM awsmhost_davis_campers.rvs WHERE style LIKE ? AND display LIKE ? AND noru LIKE ? AND stat NOT LIKE ? ORDER BY make,model ASC" Recordset8_cmd.Prepared = true Recordset8_cmd.Parameters.Append Recordset8_cmd.CreateParameter("param1", 200, 1, 255, "%" + Recordset8__MMColParam + "%") ' adVarChar Recordset8_cmd.Parameters.Append Recordset8_cmd.CreateParameter("param2", 200, 1, 255, "%" + Recordset8__MMColParam2 + "%") ' adVarChar Recordset8_cmd.Parameters.Append Recordset8_cmd.CreateParameter("param3", 200, 1, 255, "%" + Recordset8__MMColParam3 + "%") ' adVarChar Recordset8_cmd.Parameters.Append Recordset8_cmd.CreateParameter("param4", 200, 1, 255, "%" + Recordset8__MMColParam4 + "%") ' adVarChar Set Recordset8 = Recordset8_cmd.Execute Recordset8_numRows = 0 %> <% Dim Recordset9__MMColParam Recordset9__MMColParam = "Bunkhouse" If (Request("MM_EmptyValue") <> "") Then Recordset9__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Recordset9__MMColParam2 Recordset9__MMColParam2 = "Y" If (Request("MM_EmptyValue") <> "") Then Recordset9__MMColParam2 = Request("MM_EmptyValue") End If %> <% Dim Recordset9__MMColParam3 Recordset9__MMColParam3 = "n" If (Request("MM_EmptyValue") <> "") Then Recordset9__MMColParam3 = Request("MM_EmptyValue") End If %> <% Dim Recordset9__MMColParam4 Recordset9__MMColParam4 = "rent" If (Request("MM_EmptyValue") <> "") Then Recordset9__MMColParam4 = Request("MM_EmptyValue") End If %> <% Dim Recordset9 Dim Recordset9_cmd Dim Recordset9_numRows Set Recordset9_cmd = Server.CreateObject ("ADODB.Command") Recordset9_cmd.ActiveConnection = MM_Davis_Campers_STRING Recordset9_cmd.CommandText = "SELECT * FROM awsmhost_davis_campers.rvs WHERE style LIKE ? AND display LIKE ? AND noru LIKE ? AND stat NOT LIKE ? ORDER BY make,model ASC" Recordset9_cmd.Prepared = true Recordset9_cmd.Parameters.Append Recordset9_cmd.CreateParameter("param1", 200, 1, 255, Recordset9__MMColParam + "%") ' adVarChar Recordset9_cmd.Parameters.Append Recordset9_cmd.CreateParameter("param2", 200, 1, 255, "%" + Recordset9__MMColParam2 + "%") ' adVarChar Recordset9_cmd.Parameters.Append Recordset9_cmd.CreateParameter("param3", 200, 1, 255, "%" + Recordset9__MMColParam3 + "%") ' adVarChar Recordset9_cmd.Parameters.Append Recordset9_cmd.CreateParameter("param4", 200, 1, 255, "%" + Recordset9__MMColParam4 + "%") ' adVarChar Set Recordset9 = Recordset9_cmd.Execute Recordset9_numRows = 0 %> <% Dim Recordset10__MMColParam Recordset10__MMColParam = "model" If (Request("MM_EmptyValue") <> "") Then Recordset10__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Recordset10__MMColParam2 Recordset10__MMColParam2 = "y" If (Request("MM_EmptyValue") <> "") Then Recordset10__MMColParam2 = Request("MM_EmptyValue") End If %> <% Dim Recordset10__MMColParam3 Recordset10__MMColParam3 = "n" If (Request("MM_EmptyValue") <> "") Then Recordset10__MMColParam3 = Request("MM_EmptyValue") End If %> <% Dim Recordset10__MMColParam4 Recordset10__MMColParam4 = "rent" If (Request("MM_EmptyValue") <> "") Then Recordset10__MMColParam4 = Request("MM_EmptyValue") End If %> <% Dim Recordset10 Dim Recordset10_cmd Dim Recordset10_numRows Set Recordset10_cmd = Server.CreateObject ("ADODB.Command") Recordset10_cmd.ActiveConnection = MM_Davis_Campers_STRING Recordset10_cmd.CommandText = " SELECT * FROM awsmhost_davis_campers.rvs WHERE style LIKE ? AND display LIKE ? AND noru LIKE ? AND stat NOT LIKE ? ORDER BY make,model ASC" Recordset10_cmd.Prepared = true Recordset10_cmd.Parameters.Append Recordset10_cmd.CreateParameter("param1", 200, 1, 255, "%" + Recordset10__MMColParam) ' adVarChar Recordset10_cmd.Parameters.Append Recordset10_cmd.CreateParameter("param2", 200, 1, 255, "%" + Recordset10__MMColParam2 + "%") ' adVarChar Recordset10_cmd.Parameters.Append Recordset10_cmd.CreateParameter("param3", 200, 1, 255, "%" + Recordset10__MMColParam3 + "%") ' adVarChar Recordset10_cmd.Parameters.Append Recordset10_cmd.CreateParameter("param4", 200, 1, 255, "%" + Recordset10__MMColParam4 + "%") ' adVarChar Set Recordset10 = Recordset10_cmd.Execute Recordset10_numRows = 0 %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 Recordset4_numRows = Recordset4_numRows + Repeat2__numRows %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Recordset5_numRows = Recordset5_numRows + Repeat1__numRows %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = -1 Repeat3__index = 0 Recordset7_numRows = Recordset7_numRows + Repeat3__numRows %> <% Dim Repeat4__numRows Dim Repeat4__index Repeat4__numRows = -1 Repeat4__index = 0 Recordset8_numRows = Recordset8_numRows + Repeat4__numRows %> <% Dim Repeat7__numRows Dim Repeat7__index Repeat7__numRows = -1 Repeat7__index = 0 Recordset10_numRows = Recordset10_numRows + Repeat7__numRows %> <% Dim Repeat6__numRows Dim Repeat6__index Repeat6__numRows = -1 Repeat6__index = 0 Recordset9_numRows = Recordset9_numRows + Repeat6__numRows %> <% Dim Repeat5__numRows Dim Repeat5__index Repeat5__numRows = -1 Repeat5__index = 0 Recordset6_numRows = Recordset6_numRows + Repeat5__numRows %> New RVs for Sale | Travel Trailers, Fifth Wheels & Popups
<% If Not Recordset2.EOF Or Not Recordset2.BOF Then %> <%=(Recordset2.Fields.Item("banner").Value)%> <% End If ' end Not Recordset2.EOF Or NOT Recordset2.BOF %>
HomeAbout Davis Camper Sales
New Camper Inventory
Used Camper Inventory
Rental RVsRV Loan ApplicationRV Parts for Sale
Truck CapsLocate Davis Campers

<%=(Recordset3.Fields.Item("header").Value)%>

<%=(Recordset3.Fields.Item("para1").Value)%>

<% If Not Recordset4.EOF Or Not Recordset4.BOF Then %> <% While ((Repeat2__numRows <> 0) AND (NOT Recordset4.EOF)) %> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 Recordset4.MoveNext() Wend %>
Pop Ups
">" alt="" width="75" height="55" class="img" />"> Stock #: "><%=(Recordset4.Fields.Item("stocknos").Value)%> Length: <%=(Recordset4.Fields.Item("rvlength").Value)%>  .jpg" alt="rv status" />
YearMake:: <%=(Recordset4.Fields.Item("manuyr").Value)%> <%=(Recordset4.Fields.Item("make").Value)%> Price: $<%=(Recordset4.Fields.Item("price").Value)%>
Model: <%=(Recordset4.Fields.Item("model").Value)%> <%=(Recordset4.Fields.Item("modelnos").Value)%>    
<% End If ' end Not Recordset4.EOF Or NOT Recordset4.BOF %> <% If Not Recordset9.EOF Or Not Recordset9.BOF Then %> <% While ((Repeat6__numRows <> 0) AND (NOT Recordset9.EOF)) %> <% Repeat6__index=Repeat6__index+1 Repeat6__numRows=Repeat6__numRows-1 Recordset9.MoveNext() Wend %>
Bunkhouse Travel Trailers
">" width="75" height="55" class="img" />"> Stock #: "><%=(Recordset9.Fields.Item("stocknos").Value)%> Length: <%=(Recordset9.Fields.Item("rvlength").Value)%>  .jpg" alt="rv status" />
YearMake:: <%=(Recordset9.Fields.Item("manuyr").Value)%> <%=(Recordset9.Fields.Item("make").Value)%> Price: $<%=(Recordset9.Fields.Item("price").Value)%>
Model: <%=(Recordset9.Fields.Item("model").Value)%> <%=(Recordset9.Fields.Item("modelnos").Value)%>    
<% End If ' end Not Recordset9.EOF Or NOT Recordset9.BOF %> <% If Not Recordset5.EOF Or Not Recordset5.BOF Then %> <% While ((Repeat1__numRows <> 0) AND (NOT Recordset5.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Recordset5.MoveNext() Wend %>
Non-Bunkhouse Travel Trailers
">" width="75" height="55" class="img" />"> Stock #: "><%=(Recordset5.Fields.Item("stocknos").Value)%> Length: <%=(Recordset5.Fields.Item("rvlength").Value)%>  .jpg" alt="rv status" />
YearMake:: <%=(Recordset5.Fields.Item("manuyr").Value)%> <%=(Recordset5.Fields.Item("make").Value)%> Price: $<%=(Recordset5.Fields.Item("price").Value)%>
Model: <%=(Recordset5.Fields.Item("model").Value)%> <%=(Recordset5.Fields.Item("modelnos").Value)%>    
<% End If ' end Not Recordset5.EOF Or NOT Recordset5.BOF %> <% If Not Recordset6.EOF Or Not Recordset6.BOF Then %> <% While ((Repeat5__numRows <> 0) AND (NOT Recordset6.EOF)) %> <% Repeat5__index=Repeat5__index+1 Repeat5__numRows=Repeat5__numRows-1 Recordset6.MoveNext() Wend %>
Fifth Wheels
">" alt="" width="75" height="55" class="img" />"> Stock #: "><%=(Recordset6.Fields.Item("stocknos").Value)%> Length: <%=(Recordset6.Fields.Item("rvlength").Value)%>  .jpg" alt="rv status" />
YearMake:: <%=(Recordset6.Fields.Item("manuyr").Value)%> <%=(Recordset6.Fields.Item("make").Value)%> Price: $<%=(Recordset6.Fields.Item("price").Value)%>
Model: <%=(Recordset6.Fields.Item("model").Value)%> <%=(Recordset6.Fields.Item("modelnos").Value)%>    
<% End If ' end Not Recordset6.EOF Or NOT Recordset6.BOF %> <% If Not Recordset7.EOF Or Not Recordset7.BOF Then %> <% While ((Repeat3__numRows <> 0) AND (NOT Recordset7.EOF)) %> <% Repeat3__index=Repeat3__index+1 Repeat3__numRows=Repeat3__numRows-1 Recordset7.MoveNext() Wend %>
Toy Haulers
">" alt="" width="75" height="55" class="img" />"> Stock #: "><%=(Recordset7.Fields.Item("stocknos").Value)%> Length: <%=(Recordset7.Fields.Item("rvlength").Value)%>  .jpg" alt="rv status" />
YearMake:: <%=(Recordset7.Fields.Item("manuyr").Value)%> <%=(Recordset7.Fields.Item("make").Value)%> Price: $<%=(Recordset7.Fields.Item("price").Value)%>
Model: <%=(Recordset7.Fields.Item("model").Value)%> <%=(Recordset7.Fields.Item("modelnos").Value)%>    
<% End If ' end Not Recordset7.EOF Or NOT Recordset7.BOF %> <% If Not Recordset8.EOF Or Not Recordset8.BOF Then %> <% While ((Repeat4__numRows <> 0) AND (NOT Recordset8.EOF)) %> <% Repeat4__index=Repeat4__index+1 Repeat4__numRows=Repeat4__numRows-1 Recordset8.MoveNext() Wend %>
Motor Homes
">" alt="" width="75" height="55" class="img" />"> Stock #: "><%=(Recordset8.Fields.Item("stocknos").Value)%> Length: <%=(Recordset8.Fields.Item("rvlength").Value)%>  .jpg" alt="rv status" />
YearMake:: <%=(Recordset8.Fields.Item("manuyr").Value)%> <%=(Recordset8.Fields.Item("make").Value)%> Price: $<%=(Recordset8.Fields.Item("price").Value)%>
Model: <%=(Recordset8.Fields.Item("model").Value)%> <%=(Recordset8.Fields.Item("modelnos").Value)%>    
<% End If ' end Not Recordset8.EOF Or NOT Recordset8.BOF %> <% If Not Recordset10.EOF Or Not Recordset10.BOF Then %> <% While ((Repeat7__numRows <> 0) AND (NOT Recordset10.EOF)) %> <% Repeat7__index=Repeat7__index+1 Repeat7__numRows=Repeat7__numRows-1 Recordset10.MoveNext() Wend %>
 
Park Models
">">" alt="" width="75" height="55" class="img" />"> Stock #: "><%=(Recordset10.Fields.Item("stocknos").Value)%> Length: <%=(Recordset10.Fields.Item("rvlength").Value)%>  .jpg" alt="rv status" />
YearMake:: <%=(Recordset10.Fields.Item("manuyr").Value)%> <%=(Recordset10.Fields.Item("make").Value)%> Price: $<%=(Recordset10.Fields.Item("price").Value)%>
Model: <%=(Recordset10.Fields.Item("model").Value)%> <%=(Recordset10.Fields.Item("modelnos").Value)%>    
<% End If ' end Not Recordset10.EOF Or NOT Recordset10.BOF %>
<% Recordset1.Close() Set Recordset1 = Nothing %> <% Recordset2.Close() Set Recordset2 = Nothing %> <% Recordset3.Close() Set Recordset3 = Nothing %> <% Recordset4.Close() Set Recordset4 = Nothing %> <% Recordset5.Close() Set Recordset5 = Nothing %> <% Recordset6.Close() Set Recordset6 = Nothing %> <% Recordset7.Close() Set Recordset7 = Nothing %> <% Recordset8.Close() Set Recordset8 = Nothing %> <% Recordset9.Close() Set Recordset9 = Nothing %> <% Recordset10.Close() Set Recordset10 = Nothing %>