News
<% 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= 2" 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%> No news available at this time <%end if%>

Discount Sites
Priceline.com
Cheap Tickets
BestFares.com
Travel Zoo

Last Minute Sites
Last Minute Travel
Site 59

B&B Guides
BBOnline
BedandBreakfast.com

Hotel Sites
Hotels.com
Lodging.com

Specialty Sites
Adventure Sports
Away.com
Luxury Link

Hotel Chains
Best Western
Comfort Inn
Embassy Suites
Hampton Inn
Hilton
Holiday Inn
Hyatt
Marriott
Ramada

Cruise Lines
Carnival
Celebrity
Holland America
Royal Caribbean
Princess
Norwegian

Cruise Advice
Cruise Mates

Articles
<% 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= 3" 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 currently no articles at this time <%end if%>

Travel Guides
About Travel
Frommers
Fodors

Travel Magazines
Conde Nast Traveler
Frommers Budget Travel
National Geographic Adventure
Travel + Leisure
National Geographic Traveler
Travel Holiday

Travel Communities
IgoUgo
Virtual Tourist

Travel Advocates
Chris Elliott
Joe Sent Me (Biz Travel)

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= 1" 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 x=x+1 if x=>10 then flag=1 else response.write "" & rs("Links_name") & "

" & vbcrlf end if rs.movenext loop if flag=1 then response.write "More ..." & vbcrlf else%> There are currently no specials at this time <%end if response.write x%>