<% EventTitle = application("RemoteParticipationEventTitle") & " " EventID = application("RemoteParticipationEventID") if request.querystring("EventID")<>"" then EventID=request.querystring("EventID") %> <% Param = Request.QueryString("Param") Data = Request.QueryString("Data") %> <% 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 * FROM [tRSVPs]" sql = sql & " WHERE ((Firstname <> '') OR (Lastname <> '')) AND (intEventID in (39, 55)) And (booAttendInPerson=Yes) AND booListPublic=True " sql= sql & " ORDER BY Lastname, Firstname" 'response.write sql Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3, 3 %> <% On Error Resume Next rs.MoveFirst do while Not rs.eof %> <% ' %> <% rs.MoveNext loop%>

<% =EventTitle %>Physical Attendees (as of <% =Now() %>)

First	Last	Company
<%=Server.HTMLEncode(rs.Fields("Firstname").Value)%>	<%=Server.HTMLEncode(rs.Fields("Lastname").Value)%>	<%=Server.HTMLEncode(rs.Fields("Company").Value)%>	< =Server.HTMLEncode(rs.Fields("Email").Value) >

<% response.write "(" & rs.recordcount & " signups)
" %>

---

This file is automatically generated.
<% rs.close set rs=nothing db.close set db=nothing %>