Hidden Travel Deals, Secret Sales, and the Latest News
<% =Date %>
Package Specials
<%
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=" & request("category_key")
sql = sql & " ORDER by Links_name"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 0,1
if not rs.eof then
rs.movefirst
do while not rs.eof
response.write "" & rs("Links_name") & "
" & vbcrlf
rs.movenext
loop
else%>
There are no specials at this time
<%end if%>
