<%
dim conn 'database connection object
dim rs 'recordset
dim strSQL 'sql query
dim endline
'set endline
endline = chr(10)
'create the connection object
set conn = Server.CreateObject("ADODB.Connection")
'open the connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\home\hnt7c211\legacy\f7e8af3jk23sd3.mdb;"
'create a recordset
set rs = Server.CreateObject("ADODB.Recordset")
dim hawaiiVotes
dim alaskaVotes
hawaiiVotes = 0
alaskaVotes = 0
'set the sql statement for hawaii
strSQL = "SELECT Party_Size FROM Users WHERE Cruise_Destination='Hawaii'"
'run the query and save to rs
rs.Open strSQL, conn
do while not rs.EOF
hawaiiVotes = hawaiiVotes + CInt(rs.Fields("Party_Size"))
rs.MoveNext
loop
rs.Close
'set the sql statement for alaska
strSQL = "SELECT Party_Size FROM Users WHERE Cruise_Destination='Alaska'"
'run the query and save to rs
rs.Open strSQL, conn
do while not rs.EOF
alaskaVotes = alaskaVotes + CInt(rs.Fields("Party_Size"))
rs.MoveNext
loop
rs.Close
dim hawaiiSize
dim alaskaSize
hawaiiSize = ( 240 / ( hawaiiVotes + alaskaVotes ) ) * hawaiiVotes
alaskaSize = ( 240 / ( hawaiiVotes + alaskaVotes ) ) * alaskaVotes
response.write( "