 |
<% if isNull(Request("id")) or Trim(Request("id")) = "" then Response.Redirect("newsletter.asp") function fixCRLF(aStr) aStr = aStr & vbCRLF fixCRLF=replace(aStr, vbCRLF, "
") end function query = "select issueid, topicid, headline, authors1, title1, showtitle1, source1, citing1, authors2, title2, showtitle2, source2, citing2, authors3, title3, showtitle3, source3, citing3, authors4, title4, showtitle4, source4, citing4, authors5, title5, showtitle5, source5, citing5, contentformat, content from articles" & dbenv & " where articleid = " & Request("id") ' showtitle, authors, title, source, Set dbRows=dbConn.Execute(query) if not dbRows.EOF then ' showtitle = dbRows("showtitle") ' authors = dbRows("authors") ' title = dbRows("title") ' source = dbRows("source") authors1 = dbRows("authors1") title1 = dbRows("title1") showtitle1 = dbRows("showtitle1") source1 = dbRows("source1") citing1 = dbRows("citing1") authors2 = dbRows("authors2") title2 = dbRows("title2") showtitle2 = dbRows("showtitle2") source2 = dbRows("source2") citing2 = dbRows("citing2") authors3 = dbRows("authors3") title3 = dbRows("title3") showtitle3 = dbRows("showtitle3") source3 = dbRows("source3") citing3 = dbRows("citing3") authors4 = dbRows("authors4") title4 = dbRows("title4") showtitle4 = dbRows("showtitle4") source4 = dbRows("source4") citing4 = dbRows("citing4") authors5 = dbRows("authors5") title5 = dbRows("title5") showtitle5 = dbRows("showtitle5") source5 = dbRows("source5") citing5 = dbRows("citing5") query2 = "select issuedate from newsletters" & dbenv & " where issueid = " & dbRows("issueid") Set dbRows2=dbConn.Execute(query2) if not dbRows2.EOF then issuedate = dbRows2("issuedate") dbRows2.close query2 = "select topicname, stopicid from topics" & dbenv & " where topicid = " & dbRows("topicid") Set dbRows2=dbConn.Execute(query2) if not dbRows2.EOF then topicname = dbRows2("topicname") if not isNull(dbRows2("stopicid")) then query3 = "select topicname from topics" & dbenv & " where topicid = " & dbRows2("stopicid") Set dbRows3=dbConn.Execute(query3) if not dbRows3.EOF then topicname = dbRows3("topicname") & ": " & topicname end if end if dbRows2.close if Request("l") <> "" then articlelist = Request("l") else articlelist = Session("articlelist") end if articles = split(articlelist,";") previd = Request("id") nextid = Request("id") for i = 0 to ubound(articles) if articles(i) = Request("id") then if i <> 0 then previd = articles(i-1) if i <> ubound(articles)-1 then nextid = articles(i+1) end if next Response.Write("
| " & topicname & " | ") Response.Write("" & monthname(month(issuedate)) & " " & year(issuedate) & " |
| " & dbRows("headline") & " | |
" & dbRows("content") & "
") else Response.Write("" & fixCRLF(dbRows("content")) & "
") end if Response.Write("")
' if Trim(authors) <> "" then Response.Write(authors & vbCRLF)
' if showtitle = "yes" and Trim(title) <> "" then Response.Write(" " & title & vbCRLF)
' if Trim(source) <> "" then Response.Write(" " & source & vbCRLF)
if Trim(authors1) <> "" or Trim(title1) <> "" or (not isNull(Source1)) or Trim(citing1) <> "" then
Response.Write(authors1 & " " & vbCRLF)
if showtitle1 = "yes" and Trim(title1) <> "" then Response.Write(title1 & " " & vbCRLF)
if not isNull(source1) then
query2 = "select abbrev from sources" & dbenv & " where sourceid = " & source1
Set dbRows2=dbConn.Execute(query2)
if not dbRows2.EOF then Response.Write("" & dbRows2("abbrev") & "")
dbRows2.close
end if
Response.Write(" " & citing1 & "
" & vbCRLF)
end if
if Trim(authors2) <> "" or Trim(title2) <> "" or (not isNull(Source2)) or Trim(citing2) <> "" then
Response.Write(authors2 & " " & vbCRLF)
if showtitle2 = "yes" and Trim(title2) <> "" then Response.Write(title2 & " " & vbCRLF)
if not isNull(source2) then
query2 = "select abbrev from sources" & dbenv & " where sourceid = " & source2
Set dbRows2=dbConn.Execute(query2)
if not dbRows2.EOF then Response.Write("" & dbRows2("abbrev") & "")
dbRows2.close
end if
Response.Write(" " & citing2 & "
" & vbCRLF)
end if
if Trim(authors3) <> "" or Trim(title3) <> "" or (not isNull(Source3)) or Trim(citing3) <> "" then
Response.Write(authors3 & " " & vbCRLF)
if showtitle3 = "yes" and Trim(title3) <> "" then Response.Write(title3 & " " & vbCRLF)
if not isNull(source3) then
query2 = "select abbrev from sources" & dbenv & " where sourceid = " & source3
Set dbRows2=dbConn.Execute(query2)
if not dbRows2.EOF then Response.Write("" & dbRows2("abbrev") & "")
dbRows2.close
end if
Response.Write(" " & citing3 & "
" & vbCRLF)
end if
if Trim(authors4) <> "" or Trim(title4) <> "" or (not isNull(Source4)) or Trim(citing4) <> "" then
Response.Write(authors4 & " " & vbCRLF)
if showtitle4 = "yes" and Trim(title4) <> "" then Response.Write(title4 & " " & vbCRLF)
if not isNull(source4) then
query2 = "select abbrev from sources" & dbenv & " where sourceid = " & source4
Set dbRows2=dbConn.Execute(query2)
if not dbRows2.EOF then Response.Write("" & dbRows2("abbrev") & "")
dbRows2.close
end if
Response.Write(" " & citing4 & "
" & vbCRLF)
end if
if Trim(authors5) <> "" or Trim(title5) <> "" or (not isNull(Source5)) or Trim(citing5) <> "" then
Response.Write(authors5 & " " & vbCRLF)
if showtitle5 = "yes" and Trim(title5) <> "" then Response.Write(title5 & " " & vbCRLF)
if not isNull(source5) then
query2 = "select abbrev from sources" & dbenv & " where sourceid = " & source5
Set dbRows2=dbConn.Execute(query2)
if not dbRows2.EOF then Response.Write("" & dbRows2("abbrev") & "")
dbRows2.close
end if
Response.Write(" " & citing5 & "
" & vbCRLF)
end if
Response.Write("