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 and (exp_date >= '" & now() & "' or exp_date is NULL)" sql = sql & " and category.category_key= 2" 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 x=0 do while not rs.eof x=x+1 if x=>10 then flag=1 else url = rs("url") if lcase(left(rs("url"),4)) <> "http" then url="http://" & rs("url") response.write "" & rs("Links_name") & "" & vbcrlf end if rs.movenext loop if flag=1 then response.write "More ..." & vbcrlf 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 and (exp_date >= '" & now() & "' or exp_date is NULL)" sql = sql & " and category.category_key= 3" 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 x=0 do while not rs.eof x=x+1 if x=>10 then flag=1 else url = rs("url") if lcase(left(rs("url"),4)) <> "http" then url="http://" & rs("url") response.write "" & rs("Links_name") & "" & vbcrlf end if rs.movenext loop if flag=1 then response.write "More ..." & vbcrlf 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 and (exp_date >= '" & now() & "' or exp_date is NULL)" sql = sql & " and category.category_key= 6" 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 x=0 do while not rs.eof x=x+1 if x=>10 then flag=1 else url = rs("url") if lcase(left(rs("url"),4)) <> "http" then url="http://" & rs("url") 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 and (exp_date >= '" & now() & "' or exp_date is NULL)" sql = sql & " and category.category_key= 7" 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 x=0 do while not rs.eof x=x+1 if x=>10 then flag=1 else url = rs("url") if lcase(left(rs("url"),4)) <> "http" then url="http://" & rs("url") 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 and (exp_date >= '" & now() & "' or exp_date is NULL)" sql = sql & " and category.category_key= 5" 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 x=0 do while not rs.eof x=x+1 if x=>10 then flag=1 else url = rs("url") if lcase(left(rs("url"),4)) <> "http" then url="http://" & rs("url") 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 and (exp_date >= '" & now() & "' or exp_date is NULL)" sql = sql & " and category.category_key= 1" 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 x=0 do while not rs.eof x=x+1 if x=>10 then flag=1 else url = rs("url") if lcase(left(rs("url"),4)) <> "http" then url="http://" & rs("url") 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 and (exp_date >= '" & now() & "' or exp_date is NULL)" sql = sql & " and category.category_key= 4" 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 x=0 do while not rs.eof x=x+1 if x=>10 then flag=1 else url = rs("url") if lcase(left(rs("url"),4)) <> "http" then url="http://" & rs("url") response.write "" & rs("Links_name") & "" & vbcrlf end if rs.movenext loop if flag=1 then response.write "More ..." & vbcrlf 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 |