Papers

<% Dim rsPaper, strSubtitle Set rsPaper = Conn.Execute("select * from [paper]") If Not rsPaper.EOF Then do while not rsPaper.EOF strSubtitle="" if not isnull(rsPaper("Subtitle")) then strSubtitle = ": " & rsPaper("Subtitle") end if %> <% rsPaper.movenext loop End If rsPaper.close Set rsPaper = Nothing Call CloseConn %>
"><%=rsPaper("Title")%><%=strSubtitle%>
<%=rsPaper("Author1")%>