About us
Aircraft fleet
Services
Hot offers
Quotation request
Contact us
Aircraft gallery

What's happening?

What's happening?

 
<% SqlString = "Select * From Events Order By ID Desc" Set Recs = ExecuteSQL(SqlString) While Not Recs.EOF%> <%Recs.MoveNext Wend %>

Our latest events
" WIDTH="120" HEIGHT="80" VSPACE="2" HSPACE="2" BORDER="1" ALT=""> <%=Replace(Recs("Message"), "`","'")%>
 
Passenger
aircraft
fleet
Hot
offers
<% Function ExecuteSQL(SqlString) Set Session("cmdTemp") = Server.CreateObject("ADODB.Command") Set Main = Server.CreateObject("ADODB.Recordset") Set Session("cmdTemp").ActiveConnection = Application("Conn") Session("cmdTemp").CommandText = SqlString Session("cmdTemp").CommandType = 1 If Main.State = 1 Then Main.Close Main.Open Session("cmdTemp"), , 3, 1 Set ExecuteSQL = Main End Function %>