<%@LANGUAGE="VBSCRIPT"%> <% Dim AboutUsRS Dim AboutUsRS_cmd Dim AboutUsRS_numRows Set AboutUsRS_cmd = Server.CreateObject ("ADODB.Command") AboutUsRS_cmd.ActiveConnection = MM_ImportProducts_STRING AboutUsRS_cmd.CommandText = "SELECT * FROM downloads ORDER BY Title" AboutUsRS_cmd.Prepared = true Set AboutUsRS = AboutUsRS_cmd.Execute AboutUsRS_numRows = 0 %> <% Dim HowtoBuyBlurbRS Dim HowtoBuyBlurbRS_cmd Dim HowtoBuyBlurbRS_numRows Set HowtoBuyBlurbRS_cmd = Server.CreateObject ("ADODB.Command") HowtoBuyBlurbRS_cmd.ActiveConnection = MM_ImportProducts_STRING HowtoBuyBlurbRS_cmd.CommandText = "SELECT * FROM Content WHERE ContentID=8" HowtoBuyBlurbRS_cmd.Prepared = true Set HowtoBuyBlurbRS = HowtoBuyBlurbRS_cmd.Execute HowtoBuyBlurbRS_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 AboutUsRS_numRows = AboutUsRS_numRows + Repeat1__numRows %> <% Dim SpecialsRS Dim SpecialsRS_cmd Dim SpecialsRS_numRows %> <% Set SpecialsRS_cmd = Server.CreateObject ("ADODB.Command") SpecialsRS_cmd.ActiveConnection = MM_ImportProducts_STRING SpecialsRS_cmd.CommandText = "SELECT * FROM Products WHERE Special=true" SpecialsRS_cmd.Prepared = true Set SpecialsRS = SpecialsRS_cmd.Execute SpecialsRS_numRows = 0 %> Import Products - How to Buy

Home Page

About Us

Shop/Catalogue

How to Buy

<%=(HowtoBuyBlurbRS.Fields.Item("Content").Value)%>

<% While ((Repeat1__numRows <> 0) AND (NOT AboutUsRS.EOF)) %>

<%=(AboutUsRS.Fields.Item("Title").Value)%>
<%=(AboutUsRS.Fields.Item("Description").Value)%>
" target="_blank"><%=(AboutUsRS.Fields.Item("link").Value)%>

<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 AboutUsRS.MoveNext() Wend %>

<% AboutUsRS.Close() Set AboutUsRS = Nothing %> <% HowtoBuyBlurbRS.Close() Set HowtoBuyBlurbRS = Nothing %>