%@ Language=VBScript %> <% 'dim RS 'dim SQL_Query 'dim MyConn 'dim totalDealVotes 'dim totalNoDealVotes 'dim totalVotes 'dim dealPercent 'dim nodealPercent Set MyConn = Server.CreateObject("ADODB.Connection") MyConn.Open "DSN=hoopsp" SQL_query = "SELECT * FROM messages ORDER BY sequence DESC" Set RS = MyConn.Execute(SQL_query) 'totalDealVotes = 0 'totalNoDealVotes = 0 'totalVotes = 0 'WHILE NOT RS.EOF ' totalDealVotes = RS("lakers") ' totalNoDealVotes = RS("pistons") ' totalVotes = RS("lakers")+RS("pistons") ' ' dealPercent = RS("lakers") / totalVotes ' nodealPercent = RS("pistons") / totalVotes ' ' RS.movenext 'WEND %>