Which Airline is your all time Favorite 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

Which Airline is your all time Favorite

<% ' 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 Favacar.Airline, Count(Favacar.Airline) AS Total FROM Favacar GROUP BY Favacar.Airline ORDER BY Count(Favacar.Airline) DESC" strCOUNT = "SELECT COUNT(*) AS Grand_Total FROM Favacar" fp_rs.Open strSQL fp_count.Open strCOUNT ' Response.Write "

Rank

Airline

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("Airline") ) Then Response.Write " " Else Response.Write fp_rs("Airline") 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 %>