<%@ Language=VBScript %> <% SQLStr="SELECT Top 1 * FROM ORMag ORDER BY Date DESC" Set RS2=Server.CreateObject("ADODB.Recordset") RS2.Open SQLStr,Application("DBConn"),adOpenKeyset,adLockPessimistic,adCmdText SQLStr="SELECT ArticleID,MagID,Title,Byline FROM ORArticles WHERE MagID=" & RS2("MagID") & "ORDER BY ArticleID ASC" Set RS=Server.CreateObject("ADODB.Recordset") RS.Open SQLStr,Application("DBConn"),adOpenKeyset,adLockPessimistic,adCmdText %>
<%on error resume next%>

<%=RS2("Topic")%> (<%=RS2("IssueNumber")%>)   Articles found in this issue: <%For x=1 to RS.RecordCount%> &MagID=<%=RS2("MagID")%>"><%=RS("Title")%><%if len(RS("Byline")) > 0 then%> - <%=RS("Byline")%><%end if%> <%RS.Movenext Next%> <%if RS.RecordCount = 0 then%> There are currently 0 articles posted for this issue. <%end if%>

">

<% RS.Close Set RS=Nothing RS2.Close Set RS2=Nothing %>