By Airlines

By Airports

By Country

By Miles Flown

Longest Segment

Shortest Segment

All Travelers

Wackiest Trip  City Codes

Trip Log Hall of Fame By Airlines Flown

<% ' 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 '============================================== strSQL = "SELECT TriplogBasic.last_name + ', ' + TriplogBasic.Firstname as Name, TriplogBasic.City + ', ' + TriplogBasic.State + ' ' + TriplogBasic.Country as Location, TriplogBasic.Miles, TriplogBasic.Airports, TriplogBasic.Countries, TriplogBasic.Airlines, TriplogBasic.F_Airline, TriplogBasic.F_airplane, TriplogBasic.F_Country FROM TriplogBasic ORDER BY TriplogBasic.Airlines DESC" strCOUNT = "SELECT COUNT(*) AS Grand_Total FROM TriplogBasic" fp_rs.Open strSQL fp_count.Open strCOUNT While NOT fp_rs.EOF ' Create the table Row Response.Write " 0 ) Then Response.Write( " bgcolor=#CCCCCC" ) End If Response.Write ">" ' Response.Write "" ' Row Number Response.Write "" ' User's Name Response.Write "" ' User's Location Response.Write "" ' User's Flyer Miles Response.Write "" ' User's Airport Visited Response.Write "" ' User's Countries Visited Response.Write "" ' User's Number Airlines Flown Response.Write "" ' User's Favorite Airlines Response.Write "" ' User's Favorite Airplane Response.Write "" ' User's Favorite Country Response.Write "" ' Response.Write "" Response.Write "" ' Move to next Recordset fp_rs.MoveNext Wend ' Response.Write "

Number	Name	Location	Miles Flown	Airports Visited	Countries Visited	Airlines Flown	Favorite Airline	Favorite Aircraft	Favorite Country
" Response.Write "" Response.Write i Response.Write "" i = i + 1 Response.Write "	" Response.Write fp_rs("Name") Response.Write "	" If isNull( fp_rs("Location") ) Then Response.Write " " Else Response.Write fp_rs("Location") End If Response.Write "	" 'If isNull( fp_rs("Miles") ) Then If ( isNumeric( fp_rs("Miles") ) AND ( fp_rs("Miles") > 0 ) ) Then Response.Write "" Response.Write FormatNumber( fp_rs("Miles"), 0, 0, 0, -1 ) Response.Write "" Else Response.Write " " End If Response.Write "	" 'If isNull( fp_rs("Airports") ) Then If ( isNumeric( fp_rs("Airports") ) AND ( fp_rs("Airports") > 0 ) ) Then Response.Write "" Response.Write FormatNumber( fp_rs("Airports"), 0, 0, 0, -1 ) Response.Write "" Else Response.Write " " End If Response.Write "	" 'If isNull( fp_rs("Countries") ) Then If ( isNumeric( fp_rs("Countries") ) AND ( fp_rs("Countries") > 0 ) ) Then Response.Write "" Response.Write FormatNumber( fp_rs("Countries"), 0, 0, 0, -1 ) Response.Write "" Else Response.Write " " End If Response.Write "	" 'If isNull( fp_rs("Airlines") ) Then If ( isNumeric( fp_rs("Airlines") ) AND ( fp_rs("Airlines") > 0 ) ) Then Response.Write "" Response.Write FormatNumber( fp_rs("Airlines"), 0, 0, 0, -1 ) Response.Write "" Else Response.Write " " End If Response.Write "	" If isNull( fp_rs("F_Airline") ) Then Response.Write " " Else Response.Write fp_rs("F_Airline") End If Response.Write "	" If isNull( fp_rs("F_Airplane") ) Then Response.Write " " Else Response.Write fp_rs("F_Airplane") End If Response.Write "	" If isNull( fp_rs("F_Country") ) Then Response.Write " " Else Response.Write fp_rs("F_Country") End If Response.Write "

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