<%
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 sid, job_title, summary, pdf
dim output
on error resume next
sql = "SELECT id, job_title, pdf "
sql = sql & "FROM careers ORDER BY job_title "
set oRs = oConn.execute(sql)
output = ""
if not oRs.eof then
aRs = oRs.getrows()
set oRs = nothing
for rr = 0 to ubound(aRs,2)
sid = aRs(0,rr)
job_title = aRs(1,rr)
pdf = trim(aRs(2,rr))
output = output & "
" & chr(10)
output = output & "
" & job_title & " " & chr(10)
output = output & "View detail " & chr(10)
if pdf <> "" then
output = output & "File: " & pdf & "
" & chr(10)
end if
output = output & "
" & chr(10)
next
else
set oRs = nothing
end if
%>
Kansas City Regional Home Care Association
