<%@ Language=VBScript %> <% call ModifyInfo 'call CalTotal call DisplayInfo %> <% Sub ModifyInfo Dim SQLString, DatabaseConnection, UserRecordSet,a ,b Set DatabaseConnection=Server.CreateObject("ADODB.Connection") DatabaseConnection.Open "DSN=wedding" Set UserRecordSet=Server.CreateObject("ADODB.Recordset") 'UserRecordSet.CursorType=1 'UserRecordSet.CursorLocation=2 'UserRecordSet.LockType=3 'UserRecordSet.ActiveConnection=DatabaseConnection 'UserRecordSet.Source="PollWed" 'UserRecordSet.Filter="ID = " & Request.Form.Item("reply") 'UserRecordSet.Open 'If UserRecordSet.EOF Then ' Response.Write("Record Not Found") 'Else 'set a=UserRecordSet("Voting") ' b=a+1 'UserRecordSet("Voting")=b 'End If 'UserRecordSet.Update 'Response.Write b 'UserRecordSet.Close 'DatabaseConnection.Close End Sub '####Begin Subroutine ##### Sub DisplayInfo Dim SQLString,tot1, Newtotal Set DatabaseConnection=Server.CreateObject("ADODB.Connection") DatabaseConnection.Open "wedding" Set UserRecordSet=Server.CreateObject("ADODB.Recordset") SQLString = "SELECT * FROM PollWed ORDER BY ID" UserRecordSet.Open SQLString, DatabaseConnection Set id=UserRecordSet("ID") Set textmessage=UserRecordSet("Message") Set vote=UserRecordSet("Voting") Set novoters=UserRecordSet("Round") Set tot=UserRecordSet("Total") Set perct=UserRecordSet("Percent") Response.write tot1 %>

<%Do Until UserRecordSet.EOF tot1=0 %> <%'tot1 = tot1 + tot%> <%response.write textmessage%> <%for i=1 to novoters %><%Next%><%Response.Write formatpercent(perct)%> <%Response.Write vote & " Surfer(s) voted"%> <% UserRecordSet.MoveNext Loop%>     <% SQLString="SELECT Total FROM PollWed" Set DatabaseConnection=Server.CreateObject("ADODB.Connection") DatabaseConnection.Open "wedding" Set UserRecordSet=Server.CreateObject("ADODB.Recordset") UserRecordSet.CursorType=1 UserRecordSet.CursorLocation=2 UserRecordSet.LockType=3 UserRecordSet.ActiveConnection=DatabaseConnection UserRecordSet.Open SQLString, DatabaseConnection total2= UserRecordSet("Total") UserRecordSet.Close %> <% Response.Write "Total number of votes : " & total2%> <% DatabaseConnection.Close End Sub '######subroutine##### Sub CalTotal Dim SQLString, DatabaseConnection, UserRecordSet,vote,dec SQLString="SELECT Voting,Total,Percent,Round FROM PollWed" Set DatabaseConnection=Server.CreateObject("ADODB.Connection") DatabaseConnection.Open "wedding" Set UserRecordSet=Server.CreateObject("ADODB.Recordset") UserRecordSet.CursorType=1 UserRecordSet.CursorLocation=2 UserRecordSet.LockType=3 UserRecordSet.ActiveConnection=DatabaseConnection UserRecordSet.Open SQLString, DatabaseConnection total=0 Do Until UserRecordSet.EOF vote= UserRecordSet("Voting") total= UserRecordSet("Total") UserRecordSet("Total")= total + 1 UserRecordSet("Percent")= (vote / (total + 1)) dec = (UserRecordSet("Percent")* 10000)\100 UserRecordSet("Round")= dec 'UserRecordSet.Update UserRecordSet.MoveNext Loop UserRecordSet.Close DatabaseConnection.Close end sub %>