<%category_key=4%>
<%
sql = "SELECT category_name,url,Links_name,link_key FROM links,category Where links.category_key=category.category_key"
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 specials at this time
<%end if%>