<% EventTitle = trim(application("RemoteParticipationEventTitle")) EventID = 60 ' 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 [tSignups]" sql = sql & " WHERE Duplicate=No AND Hide=No AND booRemote=Yes AND ((Firstname <> '') OR (Lastname <> '')) " If cstr(Param) <> "" And cstr(Data) <> "" Then sql = sql & " AND [" & cstr(Param) & "] = " & cstr(Data) End If if request.querystring("day")<>"" then sql = sql & " AND time > #" & request.querystring("day") & "# AND time < #" & dateadd("d",1,request.querystring("day")) & "#" end if if Not IsNull(EventID) AND EventID <> "" AND EventID > 0 Then sql = sql & " AND intEventID=" & EventID & " " end if sql= sql & " ORDER BY Lastname, Firstname" 'response.write sql Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3, 1 rs.movelast rs.movefirst %>

<% =EventTitle %> Remote Participants (<% = rs.recordcount %> signups)

<% On Error Resume Next rs.MoveFirst do while Not rs.eof %> <% ' %> <% if request.querystring("j")="j" then %> <% rs.MoveNext loop%>

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("E-mail").Value) >	"> "> <% end if%>

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

---

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