<% on error resume next 'Connect to database dbPath = server.MapPath("db/astrojet.mdb") strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbPath & ";User Id=admin;Password=;" set objconn = server.createobject("ADODB.Connection") objconn.CommandTimeout = 0 objconn.open strConn If Err.Number = 0 Then 'Select all live testimonials Query = "SELECT * FROM qryTestimonials" Set rs = objconn.Execute(Query) if rs.eof = false then while rs.eof = false txtTestimonial = rs("txtTestimonial") txtQuoteBy = rs("txtQuoteBy") if txtQuoteBy <> "" then txtQuoteBy = "" & txtQuoteBy & "" end if response.write "

"" & txtTestimonial & txtQuoteBy & ""

" rs.movenext wend 'Dispose of database objects set objconn = nothing set rs = nothing end if else response.write "

Loading testimonials

" end if %>

Company Philosophy

We have a 'can do' attitude that we nurture in all our employees. We understand our client's needs and will try to service these needs without compromising safety or standards. We can achieve this by surrounding ourselves with the very best in the private jet industry.

Our Values

In the private jet industry, client digression and integrity are highly valued. What understand what needs to be done without shouting about it. AstroJet aircraft management will not compromise our clients or their safety.

Call +44 (0) 7905 952578 Email info@astrojet.co.uk