<%@LANGUAGE="VBSCRIPT"%> <% Dim rsArticles Dim rsArticles_numRows Set rsArticles = Server.CreateObject("ADODB.Recordset") rsArticles.ActiveConnection = MM_ADMSubs_STRING rsArticles.Source = "SELECT * FROM FreeArticles ORDER BY Title" rsArticles.CursorType = 0 rsArticles.CursorLocation = 2 rsArticles.LockType = 1 rsArticles.Open() rsArticles_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsArticles_numRows = rsArticles_numRows + Repeat1__numRows %> Free ADM Articles
 Free Articles

Free Articles

<% While ((Repeat1__numRows <> 0) AND (NOT rsArticles.EOF)) %>
           
" width="83" height="106"> <%=(rsArticles.Fields.Item("Title").Value)%> by: <%=(rsArticles.Fields.Item("Author").Value)%>      
<%=(rsArticles.Fields.Item("Description").Value)%>      
    ">      
           
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsArticles.MoveNext() Wend %>
ADs Here
 
Design by ADM Online and Styx Media
Home | Members| ADM Shop | Forum | Photo | Expeditions
Hosting provided by Styx Media and Hades Byte Delivery
<% rsArticles.Close() Set rsArticles = Nothing %>