<%@LANGUAGE="VBSCRIPT"%> <% Dim rslinks Dim rslinks_numRows Set rslinks = Server.CreateObject("ADODB.Recordset") rslinks.ActiveConnection = MM_htc_STRING rslinks.Source = "SELECT * FROM dbhtc.links" rslinks.CursorType = 0 rslinks.CursorLocation = 2 rslinks.LockType = 1 rslinks.Open() rslinks_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rslinks_numRows = rslinks_numRows + Repeat1__numRows %> Untitled Document

Links

<% While ((Repeat1__numRows <> 0) AND (NOT rslinks.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rslinks.MoveNext() Wend %>
">

top

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