<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rslinks Set rslinks = Server.CreateObject("ADODB.Recordset") rslinks.ActiveConnection = MM_connproducts_STRING rslinks.Source = "SELECT * FROM tblLinks WHERE status = 'live' ORDER BY ordering" rslinks.CursorType = 0 rslinks.CursorLocation = 3 rslinks.LockType = 1 rslinks.Open() %> A M A Z E D Rug and Wall hangings

LINKS

LINKS

    <% while not rslinks.eof %>
  1. " target="_blank"><%=(rslinks.Fields.Item("name").Value)%>
    2. <% rslinks.movenext() wend %>

<% rslinks.Close() Set rslinks = Nothing %>