<%
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 file_title, pdf
dim output
on error resume next
sql = "SELECT file_title, pdf "
sql = sql & "FROM new_legis ORDER BY file_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)
file_title = aRs(0,rr)
pdf = aRs(1,rr)
output = output & "
