<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% sql = "Select PageDesc from TextArea where PageID = 1" set objrs = objconn.execute(sql) if objrs.eof and objrs.bof then indexPageText = "" else indexPageText = objrs("PageDesc") end if 'Grab Product Lines pl = 0 Dim plArray(50,3) sql = "Select plID, plName from ProductLine where plActive = 1 and plSite = 1" set objrs = objconn.execute(sql) if objrs.eof and objrs.bof then 'No Product Lines assigned. PL = 0 Else objrs.movefirst while not objrs.eof plArray(pl,0) = objrs("plID") plArray(pl,1) = objrs("plName") objrs.movenext pl = pl + 1 wend End if 'Grab Product Types RV = 0 Dim RVArray(50,3) sql = "Select ptID, ptName from ProductType where ptActive = 1 and ptSite = 1" set objrs = objconn.execute(sql) if objrs.eof and objrs.bof then 'No Product Lines assigned. RV = 0 Else objrs.movefirst while not objrs.eof RVArray(RV,0) = objrs("ptID") RVArray(RV,1) = objrs("ptName") objrs.movenext RV = RV + 1 wend End if PL = PL - 1 RV = RV - 1 'Grab Best Seller - Random sql = "Select * from Products2 where P_BestSeller = 1 Order by NewID()" set objrs = objconn.execute(sql) if objrs.eof and objrs.bof then 'No Best Seller Sec BS = 0 Else BS = 1 BSName = objrs("P_Name") BSThumb = objrs("P_Thumb") BSShort = objrs("P_ShortDesc") BSID = objrs("P_ID") End if %> Nature & Me RV - Northern Michigan Camper Sales and Service for Airstream, Fleetwood and Puma Campers!
Product Lines
<% for x = 0 to pl %> <% Next %>
RV Types
<% for x = 0 to RV %> <% Next %>
Our goal at Nature and Me RV is to make "happy campers"out of every customer we meet. We stock Airstream and multiple other product lines from luxury 5th wheels to folding trailers.

Not only do we sell but we have factory trained and state licensed RV technicians with 6 service bays to service any needs that arise. Our parts department service manager with 10 years experience will assist you with your needs. Just give us a call!
View Availble Airstream Trailors
<%=indexPageText%>
<% if BS <> 0 then %>
Best Sellers

<%=BSName%>
<%=BSShort%>
<% End if %>