<%
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 link_name, url
dim output
on error resume next
sql = "SELECT link_name, url "
sql = sql & "FROM links ORDER BY link_name "
set oRs = oConn.execute(sql)
output = ""
if not oRs.eof then
aRs = oRs.getrows()
set oRs = nothing
for rr = 0 to ubound(aRs,2)
link_name = aRs(0,rr)
url = aRs(1,rr)
output = output & "
