Rate your most recent flight? Here are the results of what you told us

<% ' 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 "Results", 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 * FROM Results ORDER BY Results.Timestamp DESC" strCOUNT = "SELECT COUNT(*) AS Grand_Total FROM Results" 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 "" ' Date Submitted Response.Write "" ' Flight Date Response.Write "" ' Airline Response.Write "" ' Flight Number Response.Write "" ' Class of Service Response.Write "" ' Origin Response.Write "" ' Destination Response.Write "" ' Rating Response.Write "" Response.Write "" ' Comments Header Response.Write "" Response.Write "" ' Comments Response.Write "" Response.Write "" ' Move to next Recordset fp_rs.MoveNext Wend Response.Write "" Response.Write "" Response.Write "" Response.Write "" fp_rs.Close fp_conn.Close %>

Date Submitted	Date of Flight	Airline	Flight Number	Class of Service	Origin	Destination	Rating
" ' Response.Write "" ' Response.Write i ' Response.Write "" i = i + 1 ' Response.Write "	" Response.Write fp_rs("Timestamp") Response.Write "	" Response.Write fp_rs("Flight_Date") Response.Write "	" If isNull( fp_rs("Airline_Flown") ) Then Response.Write " " Else Response.Write fp_rs("Airline_Flown") End If Response.Write "	" If isNull( fp_rs("Flight_Number") ) Then Response.Write " " Else Response.Write fp_rs("Flight_Number") End If Response.Write "	" If isNull( fp_rs("Class_of_Service") ) Then Response.Write " " Else Response.Write fp_rs("Class_of_Service") End If Response.Write "	" If isNull( fp_rs("Origin") ) Then Response.Write " " Else Response.Write fp_rs("Origin") End If Response.Write "	" If isNull( fp_rs("Destination") ) Then Response.Write " " Else Response.Write fp_rs("Destination") End If Response.Write "	" If isNull( fp_rs("Rating") ) Then Response.Write " " Else Response.Write fp_rs("Rating") End If Response.Write "
" Response.Write " Comments: " Response.Write "	" ' If isNull( fp_rs("Thoughts") ) Then ' Response.Write " " ' Else Response.Write fp_rs("Thoughts") ' End If Response.Write "
" Response.Write "Total Responses" Response.Write "		" Response.Write fp_count("Grand_Total") Response.Write "