<% strSqlCC="select count(*) as cc from masterCategory where masterCategoryID<>32 and masterCategoryID<>31 and masterCategoryID<>34" set rsCC=cn.execute(strSqlCC) max=rsCC("cc") min=1 Randomize() RandomNumber1 = Int((max-min+1)*Rnd+min) Randomize() RandomNumber2 = Int((max-min+1)*Rnd+min) do while RandomNumber2=RandomNumber1 Randomize() RandomNumber2 = Int((max-min+1)*Rnd+min) loop Randomize() RandomNumber3 = Int((max-min+1)*Rnd+min) do while RandomNumber3=RandomNumber1 or RandomNumber3=RandomNumber2 Randomize() RandomNumber3 = Int((max-min+1)*Rnd+min) loop Randomize() RandomNumber4 = Int((max-min+1)*Rnd+min) do while RandomNumber4=RandomNumber1 or RandomNumber4=RandomNumber2 or RandomNumber4=RandomNumber3 Randomize() RandomNumber4 = Int((max-min+1)*Rnd+min) loop Randomize() RandomNumber5 = Int((max-min+1)*Rnd+min) do while RandomNumber5=RandomNumber1 or RandomNumber5=RandomNumber2 or RandomNumber5=RandomNumber3 or RandomNumber5=RandomNumber4 Randomize() RandomNumber5 = Int((max-min+1)*Rnd+min) loop Randomize() RandomNumber6 = Int((max-min+1)*Rnd+min) do while RandomNumber6=RandomNumber1 or RandomNumber6=RandomNumber2 or RandomNumber6=RandomNumber3 or RandomNumber6=RandomNumber4 or RandomNumber6=RandomNumber5 Randomize() RandomNumber6 = Int((max-min+1)*Rnd+min) loop strSqlMasterCategory="select masterCategoryID, masterCategoryName from masterCategory where masterCategoryID<>32 and masterCategoryID<>31 and masterCategoryID<>34 order by masterCategoryName asc" set rsMasterCategory=cn.execute(strSqlMasterCategory) %> <% i=1 do while not rsMasterCategory.eof and not rsMasterCategory.bof if i=RandomNumber1 or i=RandomNumber2 or i=RandomNumber3 or i=RandomNumber4 or i=RandomNumber5 or i=RandomNumber6 then %>
• "><%=rsMasterCategory("masterCategoryName")%>
<% end if i=i+1 rsMasterCategory.movenext loop %><% %>

• Help
• About Us
• Contact Us
•  
•  

<% strSqlTitle="select name from category where categoryID="&request("cID") set rsTitle=cn.execute(strSqlTitle) %>

<%=rsTitle("name")%>

<% strSqlProduct="select name,productID,priceSuggestedRetail,price,product_size from product where active=1 and categoryID="&request("cID") set rsProduct=cn.execute(strSqlProduct) do while not rsProduct.eof and not rsProduct.bof %> <% rsProduct.movenext else %>

.htm">" alt="<%=rsProduct("name")%>" style="border: none;" height="100"> More Info .htm"><%=rsProduct("name")%> " name="productid"> ">Qty. US<%=formatcurrency(rsProduct("Price"))%> <% p = FormatNumber(((rsProduct("priceSuggestedRetail")-rsProduct("price"))/rsProduct("priceSuggestedRetail"))*100,2) if (p > 5.00) then Response.write(p) %>% off <% end if %> <%Response.write(rsProduct("Product_Size"))%>

<%rsProduct.movenext n=n+1 if not rsProduct.EOF then%> .htm">" alt="<%=rsProduct("name")%>" style="border: none;" height="100"> More Info .htm"><%=rsProduct("name")%> " name="productid"> ">Qty. US<%=formatcurrency(rsProduct("Price"))%> <% p = FormatNumber(((rsProduct("priceSuggestedRetail")-rsProduct("price"))/rsProduct("priceSuggestedRetail"))*100,2) if (p > 5.00) then Response.write(p) %>% off <% end if %> <%Response.write(rsProduct("Product_Size"))%>

<% end if %> <% loop set rsProduct=nothing %>

Enter your email address to receive the ByThePlanet newsletter.

» Leonard Smith, MD
» Books
» Health News

» Links of Interest
» Wholesale Info

<% strSql="select count(productID) as numberProd from product where '"&DateAdd("m","-1",date)&"'<=dateAdded and active = 1 and masterCategoryID<>25 " set rsNewProduct=cn.execute(strSql) %> New Product:
<% 'response.write(rsNewProduct("numberProd")) Randomize i=0 'i=cint(rsNewProduct("numberProd")) x=cint(round(rnd()*rsNewProduct("numberProd"))) 'response.write(x) 'response.write(round(rnd()*i)) strSql="select productID,name from product where '"&DateAdd("m","-1",date)&"'<=dateAdded and active = 1 and masterCategoryID<>25 " set rsNewProductID=cn.execute(strSql) do while NOT rsNewProductID.BOF AND NOT rsNewProductID.EOF and i<=x+1 if i=x then %> .htm">" alt="<%=rsNewProductID("name")%>" style="float: center; padding: 0px 0px 0px 0px; border: none;" height="100"> <% end if i=i+1 rsNewProductID.movenext loop 'response.write(rsNewProductID("productID")) set rsNewProduct=Nothing set rsNewProductID=Nothing %>

         

About Us | Contact Us | Help | Sitemap | By The Planet Beta | Jobs
Wholesale Info | Link Exchanges |  Marketing | Product Submission
Disclaimer | Privacy Policy | Safe & Secure Ordering | Terms of Use

Orders and Info, Call 1-888-543-9294 Toll Free;

Monday - Friday 10AM - 6PM EST

Over 14,000 products and growing!

      

	Shipping Rates $1 to $49.98....$6.95 $49.99 and up...FREE	<%if request.servervariables("https")="off" then %> <%end if%>

Website Copyright © 2003-2005, By The Planet, Inc. and its affiliates. Please Note: The information on this website has not been reviewed by the FDA. These products are not intended to diagnose, treat, cure, or prevent any disease. The material presented here is informational, and is not intended as simply a solicitation to sell products. Website powered by: