<% @language="vbscript" %> <% Dim LPage:LPage=True %> <% set con=server.createobject("ADODB.connection") 'con.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=G:\atetravel.com\FareQuery.mdb;Uid=;Pwd=;" con.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("_private\FareQuery.mdb") %> <% If Len(Session("uid")) = 0 Then ' Was this page posted to? If UCase(Request.ServerVariables("HTTP_METHOD")) = "POST" Then ' If so, check the username/password that was entered. If ComparePassword(Request("txtUser"),Request("txtPwd")) Then ' If comparison was good, store the user name... Session("uid") = Request("txtUser") if Request.Form("cbrem")="on" then 'Remember me flag is ON: storing UID and PWD in cookies Response.Cookies("jsfpl")("1") = Request("txtUser") Response.Cookies("jsfpl")("2") = Request("txtPwd") Response.Cookies("jsfpl").Expires = Now+30 ' Cookie keep time in days: here is 30 days from present else 'Erase Cookie if flag is not set Response.Cookies("jsfpl")("1") = "" Response.Cookies("jsfpl")("2") = "" Response.Cookies("jsfpl").Expires = Now-1 end if on error resume next ' ...and redirect back to the original page. 'Response.Redirect Session("REFERRER") if err then response.write "
Error is: " & Err.Description response.write "
Uid is: " & Session("UID") response.write "
Ref is: " & Session("REFERRER") respnse.end End if End If else End If 'If this page is not posted then run code below: Dim User,Pass,chb User="" & Request.Cookies("jsfpl")("1") Pass="" & Request.Cookies("jsfpl")("2") if Not( User="" and Pass="") then chb="checked" end if else end if %> Welcome to Airtravel Enterprises India Limited
 
" else response.write "Agent ID:*" end if %> <% if len(session("uid")) > 0 then response.write "" response.write "" else response.write "" response.write "" end if %> <% if len(session("uid")) > 0 then response.write "" response.write "" response.write "" else response.write "" response.write "" response.write "" end if %>
<% if len(session("uid")) > 0 then response.write "Welcome <% if len(session("uid")) > 0 then response.write "" & left(Session("uName"),12) & "" else response.write "" end if %>
  Password*
   
Bangalore | Calicut | Chennai | Cochin | Coimbatore | Hyderabad | Kannur | Kayamkulam | Mangalore | Mumbai |  Tirur | Tirupur | Trivandrum | Tuticorin |
Abudhabi
Origin*
Destination*
Airline
Fare Basis
Kerala 
Business or leisure 'God's Own Country' will make your stay a pleassure
 
India 
Visit the Taj Mahal. See the 'Dream in Marble' in the moonlight.
 
<% If Len(Session("uid")) <> 0 Then if len(session("enabled")) <> 0 then if request.form("txtOrigin")<>"" and request.form("txtDestin")<>"" then '----------read data from table and display --------------------------- dim rs_InfData , sqlString, sqlFilter sqlString = "select b.Al_Name, a.Origin, a.Destination, a.FareBasis, a.NetFare, a.ChildPer, " & _ "(Select c.Ag_Plb from AlAgnPlb as c where c.Al_Code = b.Al_Code and C.Ag_UserId ='" & session("uid") & "') as Ag_Plb, " & _ "a.Tax, a.Stax, a.Notes from FareMaster as a left join AirlineMaster as b on a.Al_Code = b.Al_Code " sqlFilter = "" 'if len(request.form("txtOrigin")) > 3 then ' sqlString = sqlString & " left join Airports as c on c.City_Code = a.Origin " ' sqlFilter = "where a.Origin = '" & request.form("txtOrigin") & "' and " 'else sqlFilter = "where a.Origin = '" & request.form("txtOrigin") & "' and " 'end if 'if len(request.form("txtDestin")) > 3 then ' sqlstring = sqlString & " left join Airports as d on d.City_Code = a.Destination " ' sqlFilter = sqlFilter & " d.City_Name like '%" & request.form("txtDestin") & "%' " 'else sqlFilter = sqlFilter & " a.Destination = '" & request.form("txtDestin") & "' " 'end if if len(request.form("txtAirline")) > 0 then sqlFilter = sqlFilter & " and A.Al_Code = '" & request.form("txtAirline") & "' " end if if len(request.form("txtBasis")) > 0 then if request.form("txtBasis") = "OW" then sqlFilter = sqlFilter & " and A.FareBasis = 'OW' " else sqlFilter = sqlFilter & " and A.FareBasis <> 'OW' " end if end if set rs_InfData= con.Execute(sqlString & sqlFilter & " order by NetFare ") if rs_InfData.bof<>true then response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" rs_InfData.movefirst while not rs_InfData.eof response.write "" response.write "" response.write "" response.write "" response.write "" else response.write round((1 - rs_InfData.fields(6)/100) * rs_InfData.fields(4) + rs_InfData.fields(7) + rs_InfData.fields(8)) & "" end if 'response.write "" response.write "" else response.write round((1 - rs_InfData.fields(6)/100) * rs_InfData.fields(4) * rs_InfData.fields(5) / 100 + rs_InfData.fields(7) + rs_InfData.fields(8)) & "" end if end if response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" rs_InfData.movenext wend response.write "" response.write "
AirlineSectorFare BasisNet FareChild Fare
" & rs_InfData.fields(0) & "" & rs_InfData.fields(1) & "/" & rs_InfData.fields(2) & ""& rs_InfData.fields(3) & "
" if isnull(rs_InfData.fields(6)) then response.write round(rs_InfData.fields(4) + rs_InfData.fields(7) + rs_InfData.fields(8)) & "
" if not isnull(rs_InfData.fields(5)) and rs_InfData.fields(5) <> 0 then if isnull(rs_InfData.fields(6)) then response.write round(rs_InfData.fields(4) * rs_InfData.fields(5) / 100 + rs_InfData.fields(7) + rs_InfData.fields(8)) & "
Validity" & rs_InfData.fields(9) & "
" set rs_InfData=nothing else response.write "
" response.write "

We are sorry


" response.write "
" response.write "     No Fares found matching the Origin and Destination entered
" response.write "     Please try other origin/ destination
" response.write "
" response.write "     Alternatively you can call our customer care line (91-471-2327627) to get an immediate quote
" response.write "     or send us an email and we will get back to you." end if end if else response.write "
" response.write "

Please contact the call center to have your account activated


" response.write "
" end if else response.write "
" response.write "

Please Login First


" response.write "
" end if %>
©2005 ATE Group. All rights reserved
<% con.close set con = nothing %>