<%@LANGUAGE="VBSCRIPT"%> <% set Exhibitors = Server.CreateObject("ADODB.Recordset") Exhibitors.ActiveConnection = MM_IYJS_STRING Exhibitors.Source = "SELECT * FROM IYJSExhibitors WHERE ExType = 'A' ORDER BY EXSlip" Exhibitors.CursorType = 0 Exhibitors.CursorLocation = 2 Exhibitors.LockType = 3 Exhibitors.Open() Exhibitors_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 Exhibitors_numRows = Exhibitors_numRows + Repeat1__numRows %> International Yacht and Jet Show

AIRCRAFT EXHIBITORS
<% While ((Repeat1__numRows <> 0) AND (NOT Exhibitors.EOF)) %> <% If Exhibitors.Fields.Item("EXCompany").Value <> "TBA" THEN %> <% If Not Exhibitors.EOF Or Not Exhibitors.BOF Then %> <% End If ' end Not Exhibitors.EOF Or NOT Exhibitors.BOF %> <% End if %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Exhibitors.MoveNext() Wend %>
Company
Craft
<% if Exhibitors.Fields.Item("ExURL").Value <> "" THEN %> " target="_blank"> <% End if %> <%=(Exhibitors.Fields.Item("EXCompany").Value)%> <% if Exhibitors.Fields.Item("ExURL").Value <> "" THEN %> <% End if %> <%=(Exhibitors.Fields.Item("EXCraft").Value)%>

<% If Exhibitors.EOF And Exhibitors.BOF Then %>
 
No Exhibitors Currently Entered.

Contact Peter Bryant if you would like to exhibit with us.
 
<% End If ' end Exhibitors.EOF And Exhibitors.BOF %>

For information on the show, contact: Peter Bryant
INTERNATIONAL YACHT & JET SHOW
Site Maintained by
Art and Soul Graphics

<% Exhibitors.Close() %>