<% order = "CommentTime" timeoffset = 16 'add 16 hours from eastern time to get melbourne if UCase(Request.querystring("sort"))="DESC" then order = order & " DESC" EventTitle = Trim(application("RemoteParticipationEventTitle")) EventID = application("RemoteParticipationEventID") if request.querystring("EventID")<>"" then EventID=request.querystring("EventID") showendorsementbutton = true if request.querystring("hideendorsementlink")<>"" or request.form("hideendorsementlink")<>"" then showendorsementbutton = false select case UCASE(request.querystring("mode")) case "SUB" t = EventTitle & " 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 = "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=\\192.168.20.9\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 "" n = rs("intEndorsements") if n=1 then ne = "endorsement" else ne = "endorsements" if n>0 then response.write "(" & rs("intEndorsements") & " " & ne & " from " & rs("EndorsedBy") & ")" if request.querystring("j")="j" then %>
">
">
">
<% end if ' if showendorsementbutton and (rs("BoolRead") = false) then ' if Trim(rs("IneligibleBecause")) <> "" then ' response.write "[Ineligible for endorsement because " & rs("IneligibleBecause") & "]" ' else 'show endorsement button %>
"> "> "> "> ">
<% ' end if ' 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 Melbourne (GMT +11)

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