<% msg = "Select top 5 * from tbl_Newsletters Where bt_IsActive = 1 ORDER BY dt_Updated DESC" Set DataConn = CreateObject("ADODB.Connection") DataConn.ConnectionTimeout = ConnectionTimeout DataConn.CommandTimeout = CommandTimeout DataConn.Open ConnectionString, RuntimeUserName, RuntimePassword Set Cat = server.CreateObject("ADODB.Recordset") Cat.Open msg, DataConn Showstuff = false If ShowStuff = True Then For n = 0 To Cat.Fields.Count - 1 Response.Write "fld" & CleanUp(CAt(n).Name) & " = " & n & "
" & vbCrLf Next Response.End end if rs = Cat.GetRows Cat.Close Set Cat = Nothing DataConn.Close Set DataConn = Nothing fldnu_in_NewsLetterID = 0 fldvc_NewsletterDesc = 1 fldvc_NewsletterPath = 2 flddt_Updated = 3 fldbt_IsActive = 4 %> <% for n = 0 to ubound(rs,2)%> <%next%>

<%NL_HeaderText = "AAFW Newsletters"%>
	<%=rs(fldvc_NewsletterDesc,n)%>
... more