travel deals
by email-- free
|
|
Signup to receive travel deals by email-- free |
Travel 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 flag=0 x=0 do while not rs.eof x=x+1 if x=>5 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 current articles at this time<% sql = "SELECT count(*) FROM links,category Where links.category_key=category.category_key and (exp_date <= '" & now() & "')" sql = sql & " and category.category_key=2" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 0,1 if rs(0) > 0 then response.write " Read archived articles" & vbcrlf end if 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 flag=0 do while not rs.eof x=x+1 if x=>5 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 current articles at this time<% sql = "SELECT count(*) FROM links,category Where links.category_key=category.category_key and (exp_date <= '" & now() & "')" sql = sql & " and category.category_key=3" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 0,1 if rs(0) > 0 then response.write " Read archived articles" & vbcrlf end if end if%> Online Travel AgenciesExpediaTravelocity Trip eGO.com Discount Travel SitesPriceline.comCheap Tickets BestFares.com Travel Zoo Air-fare.com 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 flag=0 x=0 do while not rs.eof x=x+1 if x=>5 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 flag=0 x=0 do while not rs.eof x=x+1 if x=>5 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 flag=0 x=0 do while not rs.eof x=x+1 if x=>5 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 Flyertalk.com 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 flag=0 x=0 do while not rs.eof x=x+1 if x=>5 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 flag=0 x=0 do while not rs.eof x=x+1 if x=>5 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 Cruise AgenciesCruise BrothersCruise 411 Cruise.com |