<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% on error resume next %> [an error occurred while processing this directive] [an error occurred while processing this directive] <% Dim MantleAdsRS Dim MantleAdsRS_numRows Set MantleAdsRS = Server.CreateObject("ADODB.Recordset") MantleAdsRS.ActiveConnection = MM_cessnaflyer_STRING MantleAdsRS.Source = "SELECT * FROM MantleAdsDB ORDER BY SortOrder ASC" MantleAdsRS.CursorType = 0 MantleAdsRS.CursorLocation = 2 MantleAdsRS.LockType = 1 MantleAdsRS.Open() MantleAdsRS_numRows = 0 %> <% Dim MemberInfo__MMColParam MemberInfo__MMColParam = "1" If (Session("MM_Username") <> "") Then MemberInfo__MMColParam = Session("MM_Username") End If %> <% Dim MemberInfo Dim MemberInfo_numRows Set MemberInfo = Server.CreateObject("ADODB.Recordset") MemberInfo.ActiveConnection = MM_cessnaflyer_STRING MemberInfo.Source = "SELECT * FROM MemberDB WHERE EmailAddress = '" + Replace(MemberInfo__MMColParam, "'", "''") + "'" MemberInfo.CursorType = 0 MemberInfo.CursorLocation = 2 MemberInfo.LockType = 1 MemberInfo.Open() MemberInfo_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 MantleAdsRS_numRows = MantleAdsRS_numRows + Repeat1__numRows %> Cessna Flyer Association - www.cessnaflyer.org
Welcome <% If MemberInfo.EOF And MemberInfo.BOF Then %> Guest <% End If ' end MemberInfo.EOF And MemberInfo.BOF %> <% If Not MemberInfo.EOF Or Not MemberInfo.BOF Then %> <%=(MemberInfo.Fields.Item("Fname").Value)%> <% End If ' end Not MemberInfo.EOF Or NOT MemberInfo.BOF %>!
<% If MemberInfo.EOF And MemberInfo.BOF Then %> Website Login  |  Login Help <% End If ' end MemberInfo.EOF And MemberInfo.BOF %> <% If Not MemberInfo.EOF Or Not MemberInfo.BOF Then %> (Member's Only Features)
CFA Clubhouse  |  Member Forums  |  Logout <% End If ' end Not MemberInfo.EOF Or NOT MemberInfo.BOF %>
<%=formatdatetime((now),1)%>  
 
Online Advertising

Increase sales by advertising 24/7 to thousands of Cessna owners and pilots worldwide.

Cessna owners and pilots are making the purchasing decisions. Reach them by advertising on our member web site.We can run your ad for one month and track the "click thru" response. We will work with you on the monthly commitment that best works for you.

Please contact us with any questions. No obligation.

Contact sales@cessnaflyer.org for more information.

Back to Advertising Info

Home  |  Join  |  Renew  |  Forums  |  Contact Us  |  Advertise
Copyright 2007 - Cessna Flyer Association
  
<% MantleAdsRS.Close() Set MantleAdsRS = Nothing %> <% MemberInfo.Close() Set MemberInfo = Nothing %> <% ' Report Error If Err.Number <> 0 Then SendErrorEmail "ASP Error", Err.Source, Err.Number, Err.Description End If %> <% ' Report Error If Err.Number <> 0 Then SendErrorEmail "ASP Error", Err.Source, Err.Number, Err.Description End If %> <% ' Report Error Messages to Admin If Err.Number <> 0 Then SendErrorEmail "ASP Error", Err.Source, Err.Number, Err.Description End If %> <% If Err.Number <> 0 Then SendErrorEmail "ASP Error", Err.Source, Err.Number, Err.Description End If %>