<% order = "CommentTime" timeoffset = 13 'add thirteen hours from eastern time to get Yokohama if UCase(Request.querystring("sort"))="DESC" then order = order & " DESC" EventTitle = application("RemoteParticipationEventTitle") & " " EventID = application("RemoteParticipationEventID") if request.querystring("EventID")<>"" then EventID=request.querystring("EventID") select case UCASE(request.querystring("mode")) case "SUB" t = EventTitle & "Substantive Real-Time Comments as of " & Dateadd("h", timeoffset, Now()) thtml = EventTitle & "Substantive Real-Time Comments as of " & Dateadd("h", timeoffset, Now()) crit = "Substantive=Yes AND Show=Yes AND boolPublic=Yes" case "NEWSUB" t = EventTitle & "Unread Real-Time Comments as of " & Dateadd("h", timeoffset, Now()) thtml = EventTitle & "Unread Substantive Real-Time Comments as of " & Dateadd("h", timeoffset, Now()) crit = "Substantive=Yes AND Show=Yes AND boolPublic=Yes AND boolRead=No" case "NONSUB" t = "Additional " & EventTitle & "Real-Time Comments as of " & Dateadd("h", timeoffset, Now()) thtml = "Additional " & EventTitle & "Real-Time Comments as of " & Dateadd("h", timeoffset, Now()) crit = "Substantive=No AND Show=yes AND boolPublic=Yes" case "INT" t = "Internal" & EventTitle & "Real-Time Comments as of " & Dateadd("h", timeoffset, Now()) thtml = "Internal " & EventTitle & "Real-Time Comments as of " & Dateadd("h", timeoffset, Now()) crit = "boolPublic=No AND Show=yes AND boolRead=No" case "" t = EventTitle & "Real-Time Comments" thtml = EventTitle & "Real-Time Comments" crit = "TRUE" end select if request.querystring("Classification") <> "" then crit = crit & " AND Classification='" & request.querystring("Classification") & "'" if request.querystring("commentid") <> "" then commentidlist = request.querystring("commentid") if UCase(request.querystring("selectedcomments"))="YES" then commentidlist = application("selectedcommentids") 'response.write "---->" & commentidlist & "<---" if commentidlist <> "" then crit = crit & " AND (" for each cid in split(commentidlist,",") crit = crit & " CommentID=" & cid & " OR " next crit = crit & "FALSE)" t = EventTitle & "Real-Time Comments" thtml = t ' if request.querystring("c") <> "" then t = t & " of " & request.querystring("c") 'company name ' thtml = "Real-Time Comment from " & request.querystring("f") & "
" & request.querystring("c") end if select case UCASE(request.querystring("location")) case "REMOTE" crit = crit & " AND boolRemote=yes" case "INROOM" crit = crit & " AND boolRemote=no" case else end select if request.querystring("day")<>"" then crit = crit & " AND commenttime > #" & request.querystring("day") & "# AND commenttime < #" & dateadd("d",1,request.querystring("day")) & "#" end if if Not IsNull(EventID) AND EventID <> "" AND EventID > 0 Then crit = crit & " AND EventID=" & EventID & " " end if %> <% = t %> <% 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 [tComments]" sql = sql & " WHERE TRUE " If cstr(Param) <> "" And cstr(Data) <> "" Then sql = sql & " AND [" & cstr(Param) & "] = " & cstr(Data) End If sql= sql & " AND " & crit & " ORDER BY " & order 'response.write sql Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3, 3 %>
<% =thtml %>

<% if UCase(request.querystring("i"))<>"I" then %>

Messages marked with have been read to the assembled group.

<% end if %> <% On Error Resume Next rs.MoveFirst do while Not rs.eof response.write "" & vbcrlf rs.MoveNext loop%>
" response.write "" response.write if UCase(request.querystring("i"))="I" then response.write "*" response.write "" & "" end if ' if request.querystring("commentid") = "" then response.write vbcrlf & rs("Firstname") & " " & rs("Lastname") if rs("Company") <> "" and not isnull(rs("Company")) then response.write " (" & rs("Company") & ")" ' end if response.write "
" & RS("Subject") & " (" if rs("Classification") <> "" then response.write rs("Classification") & ", " if UCase(request.querystring("i"))="I" then response.write FormatDateTime(Dateadd("h", timeoffset, RS("CommentTime")), 3) & ", " else response.write Dateadd("h", timeoffset, RS("CommentTime")) & ", " end if if (rs("boolRemote")=False) then response.write "in-room, " response.write "#" & RS("CommentID") & ")" if rs("BoolRead")=True then response.write "" if request.querystring("j")="j" then %>
">
">
">
<% end if response.write "

" response.write replace(rs("Message"),chr(13),"
") if UCase(request.querystring("i"))="I" then response.write "" response.write "

<% response.write "(" & rs.recordcount & " messages total)
" %>
Other ICANN-Related Content from The Berkman Center for Internet & Society
Translate with Altavista Babelfish: Deutsch, Espanol, Francais, Italiano, Portugues

All times are Yokohama (GMT +9)

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