travel deals
by email-- free
|
|
Signup to receive travel deals by email-- free |
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%> Travel Features<% 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%> Online Travel AgenciesExpediaTravelocity Trip eGO.com Discount Travel SitesPriceline.comCheap Tickets BestFares.com Travel Zoo Last Minute SitesLast Minute TravelSite 59 B&B GuidesBBOnlineBedandBreakfast.com Hotel SitesHotels.comLodging.com Specialty SitesAdventure SportsAway.com Luxury Link Hotel ChainsBest WesternComfort Inn Embassy Suites Hampton Inn Hilton Holiday Inn Hyatt Marriott Ramada |
Airline 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= 6" 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 no specials at this time <%end if%> 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= 7" 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 no specials at this time <%end if%> Hotel 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= 5" 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 no specials at this time <%end if%> Travel GuidesAbout TravelFrommers Fodors Travel MagazinesConde Nast TravelerFrommers Budget Travel National Geographic Adventure Travel + Leisure National Geographic Traveler Travel Holiday Travel CommunitiesIgoUgoVirtual Tourist Travel AdvocatesChris ElliottJoe Sent Me (Biz Travel) |
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= 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 no specials at this time <%end if%> Cruise 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= 4" 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 cruise specials at this time <%end if%> Currency Converter Cruise LinesCarnivalCelebrity Holland America Royal Caribbean Princess Norwegian Cruise AdviceCruise AddictsCruise Critic Cruise Diva Cruise Mates Cruise Reviews |