%
'
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 wont find better quality or prices anywhere!
|
<%=LangCat01%>
|
|
Anabolic Extreme
|
<%
end sub
' ***********Format Category
Sub FormatCategory (id, name)
%>
|

|
<%
response.write "" & name & " | "
%>

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