<%@LANGUAGE="VBSCRIPT"%> <% set rsLinks = Server.CreateObject("ADODB.Recordset") rsLinks.ActiveConnection = MM_Earthshiplinks_STRING rsLinks.Source = "SELECT * FROM tblLinks ORDER BY intCatID ASC" rsLinks.CursorType = 0 rsLinks.CursorLocation = 2 rsLinks.LockType = 3 rsLinks.Open() rsLinks_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 rsLinks_numRows = rsLinks_numRows + Repeat1__numRows %> Untitled Document

Earthship Links

You can add your link by clicking here

<% While ((Repeat1__numRows <> 0) AND (NOT rsLinks.EOF)) %>
"><%=(rsLinks.Fields.Item("txtTitle").Value)%>
<%=(rsLinks.Fields.Item("txtDescription").Value)%>
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsLinks.MoveNext() Wend %>

Add your link by clicking here