<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% set conmssql = Server.CreateObject("ADODB.Connection") mssqlConnString = "Provider=SQLOLEDB.1;User ID=airfares;password=airtkts4;Initial Catalog=fares;Data Source=67.96.171.110;" conmssql.Open mssqlConnString %> <% Dim kw If (Request.querystring("term")<>"") then kw = Request.querystring("term") else kw = "Last Minute Travel" end if %> <% Dim code code = Request.querystring("airline_code") %> <% set rs = server.CreateObject("Adodb.recordset") str = "select airline_ticketing_code,airline_3digit_code,airline_name,airline_code,airline_logo,airline_info,airline_misspelling_words,airline_url,airline_address,regions_served,fleet,airline_major_hub,cities_served from airline where airline_code = '" & code & "'" rs.open str,con,0,1 If Err.number <> 0 then TrapError Err.description End If if not rs.eof then ticcode = rs("airline_ticketing_code") digit = rs("airline_3digit_code") name = rs("airline_name") code = rs("airline_code") logo = rs("airline_logo") info = rs("airline_info") words = rs("airline_misspelling_words") url = rs("airline_url") address = rs("airline_address") served = rs("regions_served") fleet = rs("fleet") hub = rs("airline_major_hub") cities = rs("cities_served") code = rs("airline_code") end if rs.close set rs = nothing %> <% sql = "SELECT airline_name,airline_code,airline_url FROM airline ORDER BY airline_rank" set rs1 = con.execute(sql) aname1=rs1("airline_name") acode1=rs1("airline_code") aurl1=rs1("airline_url") rs1.movenext aname2=rs1("airline_name") acode2=rs1("airline_code") aurl2=rs1("airline_url") rs1.movenext aname3=rs1("airline_name") acode3=rs1("airline_code") aurl3=rs1("airline_url") rs1.movenext aname4=rs1("airline_name") acode4=rs1("airline_code") aurl4=rs1("airline_url") rs1.movenext aname5=rs1("airline_name") acode5=rs1("airline_code") aurl5=rs1("airline_url") rs1.movenext aname6=rs1("airline_name") acode6=rs1("airline_code") aurl6=rs1("airline_url") rs1.movenext aname7=rs1("airline_name") acode7=rs1("airline_code") aurl7=rs1("airline_url") rs1.movenext aname8=rs1("airline_name") acode8=rs1("airline_code") aurl8=rs1("airline_url") rs1.movenext aname9=rs1("airline_name") acode9=rs1("airline_code") aurl9=rs1("airline_url") rs1.movenext aname10=rs1("airline_name") acode10=rs1("airline_code") aurl0=rs1("airline_url") rs1.close set rs1 = nothing %> <%=kw%>, Great Deals on <%=name%>, <%=code%> Flights <%=kw%>, Great Deals on <%=name%>, <%=code%> Flights
   
 


Home About Contact
 
Round Trip One Way
 
 
 
    
 
All Flight Deals
<% set rs = server.CreateObject("Adodb.recordset") str = "select airline_name,airline_code from airline order by airline_rank LIMIT 0,229" rs.open str,con,0,1 do while not rs.eof airline_name = rs("airline_name") airline_name = replace(airline_name, " ", " ") airline_code = rs("airline_code") term = "Last Minute Travel" Response.write "" + airline_name + ", " + airline_code + "" + "
" rs.movenext loop rs.close set rs = nothing %> 		<% set rs = server.CreateObject("Adodb.recordset") str = "select airline_name,airline_code from airline order by airline_rank LIMIT 229,500" rs.open str,con,0,1 do while not rs.eof airline_name = rs("airline_name") airline_name = replace(airline_name, " ", " ") airline_code = rs("airline_code") term = "Last Minute Travel" Response.write "" + airline_name + ", " + airline_code + "" + "
" rs.movenext loop rs.close set rs = nothing %>
Copyright © By Airtkt.com. All Rights Reserved
;