<% If Left(Request.ServerVariables("REMOTE_ADDR"),9)<>"207.46.98" Then mode=Request("m") If mode="" Then mode="display" End If If LCase(Request("pat"))="panzera" Then mode="edit" End If Set dbEXAV= Server.CreateObject("ADODB.Connection") dbEXAV.Open "DSN=EXAV" ' ;userid=;password=;" Set rsProjects = Server.CreateObject("ADODB.RecordSet") rsProjects.CursorType=3 rsProjects.ActiveConnection= dbEXAV %> Experimental Aviation Directory of Projects
CorvAIRCRAFT
Builders Directory
Experimental Aviation offers this directory as a service to experimental aircraft bulders interested in Corvair engines. We appreciate and encourage all legitimate interest in and use of this service. Use of this service is free, but as a condition of use, we require that all informaton be truthful and non-deceptive. We reserve the right to refuse service to any person or group, at our sole discretion. Intentional alteration of another person's entry may be a violation of the US federal code and many state and provisional statutes. We cannot and do not certify that any information on this directory is correct, or legitimate, or that any stated usage for aircraft purposes is prudent.
<%if mode="search" Then rsProjects.Open "SELECT * FROM ProjectDirectory ;" strWord=Request("W") strWHERE= " WHERE " For i=1 to 17 strWhere=strWHERE & "[" & rsProjects.Fields(i).Name & "] LIKE '%" & strWord &"%' OR " Next strWhere=strWHERE & "[" & rsProjects.Fields(i).Name & "] LIKE '%" & strWord &"%' " mode="display" rsProjects.Close End If If mode<>"new" and mode<>"INSERT" And mode<>"detail" Then If Request("ID")<>"" Then strWhere=" WHERE SecurityID=" & Request("ID") End If If Request("SortBy")<>"" Then strSort= " ORDER BY [" & Request("SortBy") & "]" Else strSort= " ORDER BY [Date of Entry] DESC" End If If mode="EditSelect" Then strSort=" ORDER BY [Last Name]" End If strSQL="SELECT * FROM ProjectDirectory" & strWhere & strSort & ";" 'response.write "
" & strSQL rsProjects.Open strSQL If rsProjects.RecordCount>0 Then rsProjects.MoveFirst End IF End If If mode="detail" Then If Request("SortBy")="" Then strSort="Last Name" Else strSort= Request("SortBy") End If strSQL="SELECT * FROM ProjectDirectory ORDER BY [" & strSort & "];" rsProjects.Open strSQL If rsProjects.RecordCount=0 Then%> That listing appears to have been deleted. <%Else rsProjects.MoveFirst Do Until rsProjects("SecurityID")=Clng(Request("ID")) or rsProjects.EOF rsProjects.MoveNext Loop End If End IF If mode="display" Then%>
List YOUR Project
Edit YOUR Listing

<%If rsProjects.RecordCount=0 Then%>

There are no listings matching those specific criteria.
<%rsProjects.Close rsProjects.Open "SELECT * FROM ProjectDirectory ;" rsProjects.MoveFirst End If%>
To SORT the listings click on the column header
To SEARCH the listings, enter a keyword or phrase
There are <%=rsProjects.RecordCount%> entries <%If Request("W")<>"" Then%> containing "<%=Request("W")%>"<%End If%>. Listings are sorted by <%If Request("SortBy")<>"" Then%><%=Request("SortBy")%><%Else%>Date of Entry, most recent first<%End If%>. <%If Request("w")<>"" Then%> Show ALL Records
<%End If%>
<%i=0 Do While NOT rsProjects.EOF If i/10=int(i/10) Then%> <%End If%> <%rsProjects.MoveNext%> <%i=i+1 Loop%>
Date
First Name
Last Name
State
Airplane
Engine
Prop
Carb
<%=rsProjects("Date of Entry")%>
"> <%=rsProjects("First Name") &" "& rsProjects("Last Name")%>
<%=rsProjects("City") & " " & rsProjects("State")%> <%=rsProjects("Airplane Design") & " " & rsProjects("Airplane Model") & " " & rsProjects("Airplane Type")%> <%=rsProjects("Engine Make") & " " & rsProjects("Engine Model")%> <%if rsProjects("Prop")="" or Lcase(rsProjects("Prop"))="none" Then %><%="(not listed)"%><%Else%><%=rsProjects("Prop")%><%End If%> <%if rsProjects("Carb")="" Or LCase(rsProjects("Prop"))="none" Then %><%="(not listed)"%><%Else%><%=rsProjects("Carb")%><%End If%>
<%End If%> <%if mode="new" Then%> Entry Form
This directory is for builders/owners who are interested in Corvair engines for experimental aircraft use.
First and Last name are required. An e-mail address is required but will not be shown on the list unless you want it to be. All other information is optional.
As a condition of use, we require that all information be non-deceptive.
 <%boolShowEMail=False Else If rsProjects.State=True Then boolShowEmail=rsProjects("SHowEMail") End If End If If mode="edit" And (Request("SecurityID")<>"" or LCase(Request("pat"))="panzera") Then %>

To change or update the displayed entry, make changes and click SUBMIT below
To delete the displayed entry, click here.

">DELETE THIS ENTRY
<%End If%>
<%if mode="detail" Then If Not rsProjects.BOF then rsProjects.MovePrevious If Not rsProjects.BOF then strPrevName=rsProjects("First Name") &" "& rsProjects("Last Name") idPrev=rsProjects("SecurityID") End If rsProjects.MoveNext End If If Not rsProjects.EOF Then rsProjects.MoveNext If Not rsProjects.EOF Then strNextName=rsProjects("First Name") &" "& rsProjects("Last Name") idNext=rsProjects("SecurityID") End If rsProjects.MovePrevious End if%>

<%If strPrevName<>"" Then%>
<%=strPrevName%>
<%Else%> Beginning of List <%End If%>
<%If strNextName<>"" Then%>
<%=strNextName%>
<%Else%> End of list <%End If%>
Builder: <%=rsProjects("First Name") & " " & rsProjects("Last Name")%>
Location: <%=rsProjects("Address")%> <%If rsProjects("Address")<>"" Then%>
<%End If%> <%=rsProjects("City") &" "& rsProjects("State") &" "& rsProjects("Zip")%>
e-mail: <%If rsProjects("ShowEMail")=True and Instr(rsProjects("email"),"@") Then%>
"><%=rsProjects("Email")%>
<%Else%> (n/a) <%End If%>
Website: <%strURL=rsProjects("Website") if strURL="" Then%> (not listed) <%Else If LCase(Left(strURL,7))<>"http://" and strURL<>"" and LCase(strURL)<>"none" and LCase(strURL)<>"n/a" Then strURL="http://" & strURL End If%> <%If left(strURL,7)="http://" Then%>
><%=strURL%>
<%End If End If%>
Airframe: <%=rsProjects("Airplane Design") & " " & rsProjects("Airplane Model") & " " & rsProjects("Airplane Type")%> Engine: <%=rsProjects("Engine Make") & " " & rsProjects("Engine Model") & " " & rsProjects("Engine HP")%>
Propeller: <%if rsProjects("Prop")="" or Lcase(rsProjects("Prop"))="none" Then %><%="(not listed)"%><%Else%><%=rsProjects("Prop")%><%End If%> Carburetor: <%if rsProjects("Carb")="" or Lcase(rsProjects("Carb"))="none" Then %><%="(not listed)"%><%Else%><%=rsProjects("Carb")%><%End If%>
PRSU <%if rsProjects("PRSU")="" or Lcase(rsProjects("PRSU"))="none" Then %><%="(not listed)"%><%Else%><%=rsProjects("PRSU")%><%End If%> Completed: <%if rsProjects("Completion Status")="" or Lcase(rsProjects("Completion Status"))="none" Then %> <%="(not listed)"%> <%Else%> <%=rsProjects("Completion Status") & "%"%> <%End If%>
Comments: <%=rsProjects("Comments")%>
<%=rsPRojects("Last Update") & " " & rsProjects("UpdateISP")%>
<%End If%> <%if mode="new" Or mode="edit" Then%> <% If request("SecurityID")<>"" Then strFilter = "SecurityID=" & Request("SecurityID") rsProjects.Filter=strFilter End If%> <%if mode<>"detail" Then%> <%If mode="edit" AND (Request("ID")<>"" OR Request("SecurityID")<>"") Then%> "" Then%> <%=Request("ID")%> <%End IF IF Request("SecurityID")<>"" Then%> <%=Request("SecurityID")%> <%End If%> > <%else%> <%End If%> <%End If%>
First Name value="<%=rsProjects("First Name")%>" <%End If%>> Last Name value="<%=rsProjects("Last Name")%>" <%End If%>>
Street Address value="<%=rsProjects("Address")%>" SIZE="45" <%End If%>>
City value="<%=rsProjects("City")%>" <%End If%>> State value="<%=rsProjects("State")%>" <%End If%>> Zip value="<%=rsProjects("Zip")%>" <%End If%>>
e-mail address <%If mode="detail" Then If rsProjects("ShowEMail")=True Then%>
"><%=rsProjects("Email")%>
<%Else%> <%End If%> <%End IF%> <%If mode="new" Then%> <%End If%> <%If mode="edit" Then%> " size="45"> <%End IF%> 		<%If mode="edit" or Mode="new" Then%> <%If mode="edit" Then If rsProjects("ShowEMail")=True Then%> CHECKED <%End If%> <%End If%> <%If mode="edit" or mode="new" Then%> >OK to Display? Check for YES <%End If%>
Website: <%If mode="detail" Then%> <%strURL=rsProjects("Website") If LCase(Left(strURL,7))<>"http://" and strURL<>"" Then strURL="http://" & strURL Else%> none listed <%End If%>
><%=strURL%>
<%Else%> value="<%=rsProjects("Website")%>" size=80 <%End If%>> <%End If%>
Airframe value="<%=rsProjects("Airplane Design") & " " & rsProjects("Airplane Model") & " " & rsProjects("Airplane Type")%>" <%End If%>>
Engine <%If mode="edit" Then%> <%End If If mode="new" Then%> <%End If%> <%If mode="display" Then%> <%End If%> <%If mode="detail" Then%> <%=rsProjects("Engine Make") & " " & rsProjects("Engine Model") & " " & rsProjects("Engine HP")%> <%End If%> Propeller value="<%=rsProjects("Prop")%>" <%End If%>>
Carburetor value="<%=rsProjects("Carb")%>" <%End If%>>
PRSU value="<%=rsProjects("PRSU")%>" <%End If%>>
Completion % value="<%=rsProjects("Completion Status")%>" <%End If%>>
Comments:

Please remember to update your info every now and then.
Would you like to receive an e-mail reminder every three months ?

 (uncheck to NOT get the reminder)



<%End If%> <%If mode="INSERT" Then If Request("First Name")="" Or request("Last Name")="" or Request("e-mail")="" Then%>
The first or last name or the e-mail address was blank. These are required fields. Use your "BACK" button to go back and fill it in.
<%Else If Lcase(Request("reminder"))="on" Then boolReminder=True Else boolReminder=False End If If Lcase(Request("ShowEmail"))="on" Then boolShowEmail=True Else boolShowEmail=False End If Randomize longSecure=CLng(899999999*rnd+100000000) strSQL="INSERT INTO [ProjectDirectory] (SecurityID, [First Name], [Last Name], Address, City, State, Zip, email, [Airplane Design], " strSQL=strSQL & "[Airplane Model], [Airplane Type], [Engine Make], [Engine Model], [Engine HP], Prop, Carb, Website, PRSU, " strSQL=strSQL & "[Completion Status], Comments, [Date Of Entry], reminder, ShowEMail, UpdateISP) VALUES (" strSQL=strSQL & longSecure strSQL=strSQL & ", '" & Replace(Request("First Name"),"'","''") & "' " strSQL=strSQL & ", '" & Replace(Request("Last Name"),"'","''") & "' " strSQL=strSQL & ", '" & Replace(Request("Address"),"'","''") & "' " strSQL=strSQL & ", '" & Replace(Request("City"),"'","''") & "' " strSQL=strSQL & ", '" & Replace(Request("State"),"'","''") & "' " strSQL=strSQL & ", '" & Replace(Request("Zip"),"'","''") & "' " strSQL=strSQL & ", '" & Replace(Request("e-mail"),"'","''") & "' " strSQL=strSQL & ", '" & Replace(Request("Airplane Design"),"'","''") & "' " strSQL=strSQL & ", '" & Replace(Request("Airplane Model"),"'","''") & "' " strSQL=strSQL & ", '" & Replace(Request("Airplane Type"),"'","''") & "' " strSQL=strSQL & ", '" & Replace(Request("Engine Make"),"'","''") & "' " strSQL=strSQL & ", '" & Replace(Request("Engine Model"),"'","''") & "' " strSQL=strSQL & ", '" & Replace(Request("Engine HP"),"'","''") & "' " strSQL=strSQL & ", '" & Replace(Request("Prop"),"'","''") & "' " strSQL=strSQL & ", '" & Replace(Request("Carb"),"'","''") & "' " strSQL=strSQL & ", '" & Replace(Request("Website"),"'","''") & "' " strSQL=strSQL & ", '" & Replace(Request("PRSU"),"'","''") & "' " strSQL=strSQL & ", '" & Replace(Request("Completion Status"),"'","''") & "' " strSQL=strSQL & ", '" & Replace(Request("Comments"),"'","''") & "' " strSQL=strSQL & ", #" & Request("Date Of Entry") & "# " strSQL=strSQL & ", " & boolReminder strSQL=strSQL & ", " & boolShowEMail strSQL=strSQL & ", '" & Request.ServerVariables("REMOTE_ADDR") & "'); " 'response.write strSQL dbEXAV.Execute strSQL%>



Your project was entered in the directory.
<% Set cdoMail= Server.CreateObject("CDONTS.NewMail") cdoMail.To = "panzera@Experimental-aviation.com" cdoMail.From = "panzera@Experimental-aviation.com" cdoMail.Subject = "New CorvAIRCRAFT entry" strBody= Request("First Name") & " " & Request("Last Name") & " has made a new entry in the CorvAIRCRAFT Builders Directory. " & vbCrLF strBody=strBody & vbCrLf strBody=strBody & " http://www.experimental-aviation.com/Directory.asp?m=edit&pat=panzera&SecurityID=" & longsecure cdoMail.Body= strBody 'response.write rsProjects("email") & "
" & strBody cdoMail.Send Set cdoMail=Nothing End If End If%> <% If mode="UPDATE" AND Request("ID")<>"" Then If Request("First Name")="" Or request("Last Name")="" Then%>
The first or last name was blank. This is a required field. Use your "BACK" button to go back and fill it in.
<%Else If Lcase(Request("reminder"))="on" Then boolReminder=True Else boolReminder=False End If If Lcase(Request("ShowEmail"))="on" Then boolShowEmail=True Else boolShowEmail=False End If strSQL= "UPDATE [ProjectDirectory] SET " strSQL=strSQL & "[First Name]='" & Replace(Request("First Name"),"'","''") & "' " strSQL=strSQL & ", [Last Name]='" & Replace(Request("Last Name"),"'","''") & "' " strSQL=strSQL & ", Address='" & Replace(Request("Address"),"'","''") & "' " strSQL=strSQL & ", City='" & Replace(Request("City"),"'","''") & "' " strSQL=strSQL & ", State='" & Replace(Request("State"),"'","''") & "' " strSQL=strSQL & ", Zip='" & Replace(Request("Zip"),"'","''") & "' " strSQL=strSQL & ", email='" & Replace(Request("e-mail"),"'","''") & "' " strSQL=strSQL & ", [Airplane Design]='" & Replace(Request("Airplane Design"),"'","''") & "' " strSQL=strSQL & ", [Airplane Model]='" & Replace(Request("Airplane Model"),"'","''") & "' " strSQL=strSQL & ", [Airplane Type]='" & Replace(Request("Airplane Type"),"'","''") & "' " strSQL=strSQL & ", [Engine Make]='" & Replace(Request("Engine Make"),"'","''") & "' " strSQL=strSQL & ", [Engine Model]='" & Replace(Request("Engine Model"),"'","''") & "' " strSQL=strSQL & ", [Engine HP]='" & Replace(Request("Engine HP"),"'","''") & "' " strSQL=strSQL & ", Prop='" & Replace(Request("Prop"),"'","''") & "' " strSQL=strSQL & ", Carb='" & Replace(Request("Carb"),"'","''") & "' " strSQL=strSQL & ", Website='" & Replace(Request("Website"),"'","''") & "' " strSQL=strSQL & ", PRSU='" & Replace(Request("PRSU"),"'","''") & "' " strSQL=strSQL & ", [Completion Status]='" & Replace(Request("Completion Status"),"'","''") & "' " strSQL=strSQL & ", Comments='" & Replace(Request("Comments"),"'","''") & "' " strSQL=strSQL & ", [Date Of Entry]=#" & Request("Date Of Entry") & "# " strSQL=strSQL & ", Reminder=" & boolReminder strSQL=strSQL & ", ShowEMail=" & boolShowEMail strSQL=strSQL & ", [Last Update]=#" & Now & "# " strSQL=strSQL & ", UpdateISP='" & Request.ServerVariables("REMOTE_ADDR") & "'" strSQL=strSQL & " WHERE SecurityID=" & Request("ID") & "; " 'response.write strSQL dbEXAV.Execute strSQL%>



Your project entry was updated in the directory.
<% Set cdoMail= Server.CreateObject("CDONTS.NewMail") cdoMail.To = "panzera@Experimental-aviation.com" cdoMail.From = "panzera@Experimental-aviation.com" cdoMail.Subject = "Changed CorvAIRCRAFT entry" strBody= Request("First Name") & " " & Request("Last Name") & " has made a change to an old entry in the CorvAIRCRAFT Builders Directory. " & vbCrLF strBody=strBody & " http://www.experimental-aviation.com/Directory.asp?m=edit&pat=panzera&Securityid=" & Request("ID") cdoMail.Body= strBody 'response.write rsProjects("email") & "
" & strBody cdoMail.Send Set cdoMail=Nothing End If End If%> <%If mode="DELETECONFIRM" Then rsProjects.Close strSQL="SELECT * FROM [ProjectDirectory] WHERE SecurityID=" & Request("ID") & ";" rsProjects.Open strSQL rsProjects.MoveFirst strOldRec= rsProjects("First Name") & " " & rsProjects("Last Name") & "'s " & rsProjects("Airplane Model") rsProjects.Close %>



Are you sure you want to delete the entry for <%=strOldRec%> ?



">YES



">NO

<%End If%> <%If mode="DELETE" and Request("ID")<>"" Then rsProjects.Close strSQL="SELECT * FROM [ProjectDirectory] WHERE SecurityID=" & Request("ID") & ";" rsProjects.Open strSQL rsProjects.MoveFirst strOldRec= rsProjects("First Name") & " " & rsProjects("Last Name") & "'s " & rsProjects("Airplane Model") rsProjects.Close strSQL="DELETE * FROM [ProjectDirectory] WHERE SecurityID=" & Request("ID") & ";" dbEXAV.Execute strSQL%>



The entry for <%=strOldRec%> was DELETED
<%End If%> <%If mode="EditSelect" Then%>

Select your name.
The website will send you an e-mail with the link to the editing page for your entry.

<%End If%> <%If mode="sConfirm" Then%>

The website is about to generate and send an e-mail to the listed e-mail address of <%=rsProjects("first name") &" "& rsProjects("Last Name")%>.
Click YES to confirm that. Click NO if you did not intend to do that.

">YES

Use this page ONLY to e-mail yourself.

Please do not use this as a means to e-mail another builder.
You will not be able to send your message that way, and will just generate some useless spam to the builder.
To send an e-mail to another builder, click NO, and go back to his entry, then click on his e-mail address, if he has chosen to display it.

NO
<%End If%> <%If mode="s" Then Set cdoMail= Server.CreateObject("CDONTS.NewMail") cdoMail.To = rsProjects("email") cdoMail.From = "panzera@Experimental-aviation.com" cdoMail.Subject = "CorvAIRCRAFT" strBody=strBody & "Click this link to go to the editing page for CorvAIRCRAFT.com, and update or delete your listing in the builder's directory." strBody=strBody & " http://www.experimental-aviation.com/Directory.asp?m=edit&ID=" & rsProjects("SecurityID") & vbCrLf strBody=strBody & " Thanks for maintaining your information. - Pat P." cdoMail.Body= strBody cdoMail.Send Set cdoMail=Nothing Set cdoMail= Server.CreateObject("CDONTS.NewMail") cdoMail.To = "panzera@Experimental-aviation.com" cdoMail.From = "panzera@Experimental-aviation.com" cdoMail.Subject = "CorvAIRCRAFT spam????" strBody= "Somebody sent an editing page e-mail to:" & rsProjects("email") strBody=strBody & " http://www.experimental-aviation.com/Directory.asp?m=edit&ID=" & rsProjects("SecurityID") & vbCrLf strBody=strBody & " The person requesting the send was at " & Request.ServerVariables("REMOTE_ADDR") cdoMail.Body= strBody cdoMail.Send Set cdoMail=Nothing strSQL="INSERT INTO [Reminders] (Name, ReminderTime, RequestingISP) VALUES (" strSQL=strSQL & "'" & rsProjects("First Name") & " " & rsProjects("Last Name") & "', #" & Now & "#, '" & Request.ServerVariables("REMOTE_ADDR") & "');" 'response.write strSQL dbEXAV.Execute strSQL %>

We have sent you an e-mail with a link to the editing page, pre-set to your entry.
Thank you for updating your information. - Pat P. <%End If%> <%'response.write rsProjects.State If rsProjects.State<>0 Then '(mode<>"new" and mode<>"INSERT" And Mode<>"UPDATE") OR rsProjects.Close End If rsProjects.Open "SELECT * FROM [ProjectDirectory] WHERE [Date of Entry]<#" & DateAdd("m",-3,Date) & "#;" If rsProjects.RecordCount >0 Then rsProjects.MoveFirst Set cdoMail= Server.CreateObject("CDONTS.NewMail") Do Until rsProjects.EOF Set cdoMail= Server.CreateObject("CDONTS.NewMail") cdoMail.To = rsProjects("email") cdoMail.From = "panzera@Experimental-aviation.com" cdoMail.Subject = "CorvAIRCRAFT" strBody= rsProjects("First Name") & vbCrLf & vbCrLf strBody=strBody & "Just is a reminder that it has been three months since you last updated your" strBody=strBody & " listing in the builder's directory at CorvAIRCRAFT.com. " strBody=strBody & " Click this link to go to the editing page and update or delete your listing." & vbCrLf & CrLf strBody=strBody & " http://www.experimental-aviation.com/Directory.asp?m=edit&ID=" & rsProjects("SecurityID") & " " & vbCrLf & CrLf strBody=strBody & " If no update is needed, do nothing. You will get another reminder in 3 months." strBody=strBody & vbCrLf & CrLf strBody=strBody & " Thanks for maintaining your information. - Pat P." & vbCrLf & vbCrLf strBody=strBody & " (If you would rather not receive these notices, just uncheck the reminder option in your listing.)" cdoMail.Body= strBody 'response.write rsProjects("email") & "
" & strBody cdoMail.Send dbEXAV.Execute "UPDATE [ProjectDirectory] SET [Date Of Entry]=#" & Date & "# WHERE SecurityID=" & rsProjects("SecurityID") & ";" rsProjects.MoveNext Loop Set cdoMail=Nothing End If%>

<%If mode<>"display" Then%>
<%End If%>

RETURN TO CorvAIRCRAFT HOME PAGE

<%Else%> <%End If%>