<%
option explicit
%>
<%
dim oConn
set oConn = server.createobject("adodb.connection")
oConn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("/db/kcrhca.mdb") & ";"
%>
<%
dim oRs
dim aRs
dim rr
dim sql
dim headline
dim caption
dim body
dim photo
dim phototag
on error resume next
sql = "SELECT headline, caption, body, photo FROM about_us WHERE id = 1 "
set oRs = oConn.execute(sql)
if not oRs.eof then
headline = oRs("headline")
caption = oRs("caption")
body = oRs("body")
photo = trim(oRs("photo"))
if len(photo) > 0 then
phototag = ""
else
phototag = ""
end if
end if
set oRs = nothing
%>
Kansas City Regional Home Care Association
![](./uploads/" & photo & ")
"
else
phototag = ""
end if
end if
set oRs = nothing
%>
