<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% 'Grab Product Lines pl = 0 Dim plArray(50,3) sql = "Select plID, plName from ProductLine where plActive = 1 and plSite = 1 order by PlName asc" 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 order by ptName ASC" 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 %> Contact or Get Directions to Nature & Me RV of Traverse City
Product Lines
<% for x = 0 to pl %> <% Next %>
RV Types
<% for x = 0 to RV %> <% Next %>


Contact Us

Have questions or comments about our products or this website? We'd love to hear from you! Use the form below, or call us at 231.943.5858

Name
Phone
Email

Comments or Suggestions or Questions:


<% if BS <> 0 then %>
Best Sellers

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