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
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
"" & txtTestimonial & txtQuoteBy & ""
'Dispose of database objects
set objconn = nothing
set rs = nothing
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.
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.