<%category_key=3%>
<%
sql = "SELECT category_name,url,Links_name,link_key,exp_date FROM links,category Where links.category_key=category.category_key and (exp_date >= '" & now() & "' or exp_date is NULL)"
sql = sql & " and category.category_key=" & category_key
sql = sql & " ORDER by Link_key DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 0,1
if not rs.eof then
rs.movefirst
do while not rs.eof
url = rs("url")
if lcase(left(rs("url"),4)) <> "http" then url="http://" & rs("url")
response.write "" & rs("Links_name") & "
" & vbcrlf
rs.movenext
loop
else%>
There are no current articles at this time
<%end if%>
<%
sql = "SELECT count(*) FROM links,category Where links.category_key=category.category_key and (exp_date <= '" & now() & "')"
sql = sql & " and category.category_key=" & category_key
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 0,1
if rs(0) > 0 then
response.write "Read archived articles" & vbcrlf
end if%>