<%@LANGUAGE="VBSCRIPT"%> <%OutputMobiMenu%>

<% Call GetLinkedPages(RequestCC, "CategoryLinkedCats") While Not rsItems.EOF Response.Write "" & GetItemField("CategoryName") & " " & textToHTML(GetItemField("CategoryDescription")) & " " & vbCrLf rsItems.MoveNext() Wend %> <% Call GetLinkedPages(RequestCC, "CategoryLinkedCats2") While Not rsItems.EOF Response.Write " " & GetItemField("CategoryName") & " " & textToHTML(GetItemField("CategoryDescription")) & " " & vbCrLf rsItems.MoveNext() Wend %> Join Our Newsletter receive information about new products, events and more... name email

<% LoadItemsSQL(GetItemQuery()) If GetCategoryField("DisplayPicOnIndex") <> 0 And Session("AuthUser") <> True Then Response.Redirect("SiteLogin.asp?Article.asp?" & Request.QueryString) While Not rsItems.EOF Response.Write GetItemField("ItemText") rsItems.MoveNext() Wend While Not rsItems.EOF %> <%If GetItemField("ItemTHumbnail") <> "" Then%> <%If GetItemField("ItemTHumbnail") <> "" Then%> <%End If%> <%Else%> <%End If%> <%=GetItemField("ItemText")%> " /> <% rsItems.MoveNext() Wend %>

Copyright Mobideo 2004-2005 (c). Read our terms of use and privacy policy.