This is the Case History Section of The Duchess Fund. We advise you that these are "medical" histories and some pictures are fairly graphic in nature.
<%
sub ShowSection(s)
dim conn, rs
set conn = server.createobject("adodb.connection")
set rs = server.createobject("adodb.recordset")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../fpdb/news.mdb")
rs.open "select * from news where section="& s &" and active=true order by newsdate desc", conn
do while not rs.eof
id=rs("id")
title=rs("title")&""
newsdate=rs("newsdate")&""
filename=rs("filename")&""
teaser=rs("teaser")
pic = rs("pic") &""
align = rs("align")
link = "article.asp?id=" & id
if not isnumeric(align) then
align=0
end if
select case align
case 0
%>