<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim rs_new_helis__MMColParam rs_new_helis__MMColParam = "1" If (Request("MM_EmptyValue") <> "") Then rs_new_helis__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs_new_helis Dim rs_new_helis_cmd Dim rs_new_helis_numRows Set rs_new_helis_cmd = Server.CreateObject ("ADODB.Command") rs_new_helis_cmd.ActiveConnection = MM_executive_STRING rs_new_helis_cmd.CommandText = "SELECT * FROM executive.helis WHERE heli_new = ?" rs_new_helis_cmd.Prepared = true rs_new_helis_cmd.Parameters.Append rs_new_helis_cmd.CreateParameter("param1", 5, 1, -1, rs_new_helis__MMColParam) ' adDouble Set rs_new_helis = rs_new_helis_cmd.Execute rs_new_helis_numRows = 0 %> <% Dim rs_used_helis__MMColParam rs_used_helis__MMColParam = "2" If (Request("MM_EmptyValue") <> "") Then rs_used_helis__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs_used_helis Dim rs_used_helis_cmd Dim rs_used_helis_numRows Set rs_used_helis_cmd = Server.CreateObject ("ADODB.Command") rs_used_helis_cmd.ActiveConnection = MM_executive_STRING rs_used_helis_cmd.CommandText = "SELECT * FROM executive.helis WHERE heli_new = ? ORDER BY heli_name ASC" rs_used_helis_cmd.Prepared = true rs_used_helis_cmd.Parameters.Append rs_used_helis_cmd.CreateParameter("param1", 200, 1, 255, rs_used_helis__MMColParam) ' adVarChar Set rs_used_helis = rs_used_helis_cmd.Execute rs_used_helis_numRows = 0 %> <% Dim rs_turbine_helis__MMColParam rs_turbine_helis__MMColParam = "3" If (Request("MM_EmptyValue") <> "") Then rs_turbine_helis__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs_turbine_helis Dim rs_turbine_helis_cmd Dim rs_turbine_helis_numRows Set rs_turbine_helis_cmd = Server.CreateObject ("ADODB.Command") rs_turbine_helis_cmd.ActiveConnection = MM_executive_STRING rs_turbine_helis_cmd.CommandText = "SELECT * FROM executive.helis WHERE heli_new = ?" rs_turbine_helis_cmd.Prepared = true rs_turbine_helis_cmd.Parameters.Append rs_turbine_helis_cmd.CreateParameter("param1", 5, 1, -1, rs_turbine_helis__MMColParam) ' adDouble Set rs_turbine_helis = rs_turbine_helis_cmd.Execute rs_turbine_helis_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rs_new_helis_numRows = rs_new_helis_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 rs_used_helis_numRows = rs_used_helis_numRows + Repeat2__numRows %> Executive Helicopters - About Us

Sales

Below are links to helicopters currently on sale through Executive Helicopters:

New Helicopters

<% set rs_heli_image = Server.CreateObject("ADODB.Recordset") %> <% While ((Repeat1__numRows <> 0) AND (NOT rs_new_helis.EOF)) %> <% heli_image_sql = "SELECT * FROM heli_images WHERE heli_images.image_heli_id = " & (rs_new_helis.Fields.Item("heli_id").Value) rs_heli_image.open heli_image_sql,MM_executive_STRING %>
">" class="padded_bordered_1px" />

<%=(rs_new_helis.Fields.Item("heli_name").Value)%>

<% rs_heli_image.Close() %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rs_new_helis.MoveNext() Wend %>

Robinson Helicopters

<% While ((Repeat2__numRows <> 0) AND (NOT rs_used_helis.EOF)) %> <% heli_image_sql = "SELECT * FROM heli_images WHERE heli_images.image_heli_id = " & (rs_used_helis.Fields.Item("heli_id").Value) rs_heli_image.open heli_image_sql,MM_executive_STRING %>
">" class="padded_bordered_1px" />

<%=(rs_used_helis.Fields.Item("heli_name").Value)%>

<% rs_heli_image.Close() %> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 rs_used_helis.MoveNext() Wend %>

Turbine Helicopters

">">.jpg" alt="" class="padded_bordered_1px" />

"><%=(rs_turbine_helis.Fields.Item("heli_name").Value)%>

 


<% rs_new_helis.Close() Set rs_new_helis = Nothing %> <% rs_used_helis.Close() Set rs_used_helis = Nothing %> <% rs_turbine_helis.Close() Set rs_turbine_helis = Nothing %>