<% Set conn = Server.CreateObject("ADODB.Connection") conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\\file-cyber.law.harvard.edu\inetpub\dbs\ICANN-realtime.mdb","","" sql = "SELECT email From tRSVPs where inteventid=30 AND booParticipateRemotely=Yes UNION Select [e-mail] from tSignups where inteventid IN (32,33,34,35,36) ORDER BY email" response.write "

All preregistered remote participants plus all actual remote participants

" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3, 3 do while not rs.eof response.write rs("email") & ", " rs.movenext loop response.write "

(" & rs.recordcount & " records)

" rs.close set rs = nothing sql = "SELECT email From tRSVPs where inteventid=30 UNION Select [e-mail] from tSignups where inteventid IN (32,33,34,35,36) ORDER BY email" response.write "

All preregistered people total plus all actual remote participants

" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3, 3 do while not rs.eof response.write rs("email") & ", " rs.movenext loop response.write "

(" & rs.recordcount & " records)

" rs.close set rs = nothing conn.close set conn = nothing %>