<% ' ShopPageHeader ' Page header for shop CategoryHeader ' category header on this page Showcategories ' format categories on this page ShopPageTrailer ' shop page trailer ' ' Show Categories Sub ShowCategories() Dim rs dim lngcatid dim strcategory Dim dbc ShopOpenDatabase dbc Set rs = Server.CreateObject ("ADODB.Recordset") rs.Open "categories", dbc, adOpenForwardOnly,adLockReadOnly,adCmdTable While Not rs.EOF lngcatid=rs("categoryID") strcategory=rs("catdescription") strsubcategory=rs("HasSubcategory") if isNULL(strsubcategory) then strsubcategory="" end if FormatCategory lngcatid, strcategory rs.MoveNext Wend BottomLine response.write "" rs.Close set rs=nothing ShopCloseDatabase dbc end sub '************************************* Sub CategoryHeader ' displays header for categories %>

             

 
      Anabolic Extreme is committed to educating our readers on every facet of the fitness and bodybuilding industry.  This includes exposing unscrupulous supplement companies as well as supporting those which are innovative, honest and produce the highest quality products.  Anabolic Extreme is sponsored only by reputable companies and sells only those products which are ascertained to be the highest quality in the industry.  Please support this free website by purchasing all of your supplement needs from us.  You won’t find better quality or prices anywhere!

     <%=LangCat01%>  
<% end sub ' ***********Format Category Sub FormatCategory (id, name) %> " %> <% end sub ' Sub BottomLine %>

 

           Anabolic Extreme

<% response.write "" & name & "

 

 


    We love to hear from you!  Please CLICK HERE to send us your
questions and comments regarding training and supplementation.   
 Admin<% end sub %>