Hidden Travel Deals, Secret Sales, and the Latest News
<% =Date %>
<% category_key = request("category_key")
if category_key = 1 then response.write "Package Specials"
if category_key = 2 then response.write "News"
if category_key = 3 then response.write "Travel Features"
if category_key = 4 then response.write "Cruise Specials"
if category_key = 5 then response.write "Hotel Specials"
if category_key = 6 then response.write "Airline Specials"
if category_key = 7 then response.write "Resort 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=" & 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%>
