<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rsLinks Set rsLinks = dbCon.Execute("SELECT * FROM Links WHERE LinkCurrent = True") %>

<% While NOT rsLinks.EOF %> <% rsLinks.MoveNext() Wend %> "><%=rsLinks("LinkName")%> <%=rsLinks("LinkDescription")%>

<% 'Close all connections rsLinks.Close dbCon.Close Set dbCon = Nothing %>