Most Beautiful Airliner Results

	Ladies and Gentlemen, Welcome aboard. Our cruisin' altitude for this flight will be 37,000'. If there is anything that the crew can do to make this trip more enjoyable, please do not hesitate to ask. For now, please sit back, relax and enjoy the ride.
Home \| Trip Log \| Photo Gallery \| Travel \| Seat Maps \| Shopping \| Surveys \| Classifieds \| What's New \| Search \| About Cruisinaltitude.com

Survey Results

Of the airliners listed, which is the most beautiful?

<% ' My count variable Dim i i = 1 '============================================== ' Database Connection String '============================================== Set fp_conn = Server.CreateObject("ADODB.Connection") Set fp_rs = Server.CreateObject("ADODB.Recordset") Set fp_count = Server.CreateObject("ADODB.Recordset") fp_conn.Open Application("info_ConnectionString") ' fp_conn.Open "info_ConnectionString" (info_ConnectionString-> name of my ODBC) ' fp_rs.Open "Beaut_AC", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable 'associates the recordset with the ADO connection fp_rs.ActiveConnection = fp_conn fp_count.ActiveConnection = fp_conn '============================================== ' End Database Connection String '============================================== ' SELECT Beaut_AC1_Sel.Aircraft_Type, [Total]/[Grand_Total] AS Percentage ' FROM Beaut_AC_Total_Sel, Beaut_AC1_Sel ' ORDER BY [Total]/[Grand_Total] DESC; strSQL = "SELECT Beaut_AC.Aircraft_Type, Count(Beaut_AC.Aircraft_Type) AS Total FROM Beaut_AC GROUP BY Beaut_AC.Aircraft_Type ORDER BY Count(Beaut_AC.Aircraft_Type) DESC" strCOUNT = "SELECT COUNT(*) AS Grand_Total FROM Beaut_AC" fp_rs.Open strSQL fp_count.Open strCOUNT ' Response.Write "

Rank

Aircraft Type

Percentage

" ' Response.Write "" While NOT fp_rs.EOF ' Create the table Row Response.Write " 0 ) Then Response.Write( " bgcolor=#CCCCCC" ) End If Response.Write ">" ' Row Number Response.Write "" ' Aircraft Type Response.Write "" Response.Write "" Response.Write "" fp_rs.MoveNext Wend ' Response.Write "

" Response.Write "" Response.Write i Response.Write "" i = i + 1 Response.Write "

" If isNull( fp_rs("Aircraft_Type") ) Then Response.Write " " Else Response.Write fp_rs("Aircraft_Type") End If Response.Write "

" Response.Write FormatPercent( fp_rs("Total")/fp_count("Grand_Total") ) Response.Write "

" Response.Write "" Response.Write "" Response.Write "Total Votes" Response.Write "" Response.Write "" Response.Write fp_count("Grand_Total") Response.Write "" Response.Write "" fp_rs.Close fp_conn.Close %>