<% order = "CommentTime" timeoffset = 6 'add 6 hours to eastern time to get local time if UCase(Request.querystring("sort"))="DESC" then order = order & " DESC" t = application("RemoteParticipationEventTitle") & " Comment Status" thtml = "

" & t & "

" eventid = application("remoteparticipationeventid") if eventid = "" then eventid=999 %> <% = t %> <% 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 commentid, firstname, lastname FROM [tComments]" sql = sql & " WHERE EventID=" & eventid & " AND boolRead=No AND Substantive=Yes AND boolPublic=Yes AND Show=Yes " 'response.write sql Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3, 3 %>
<% =thtml %>

<% On Error Resume Next fromstr = "" do while not rs.eof if fromstr <> "" then fromstr=fromstr & ", " fromstr = fromstr & rs("firstname") & " " & rs("lastname") rs.movenext loop select case rs.recordcount case 0 response.write "

There are currently no outstanding unread realtime comments.

" case 1 response.write "

There is currently one outstanding unread realtime comment from " & fromstr & ".

" case else response.write "

There are currently " & rs.recordcount & " outstanding unread realtime comments from " & fromstr & ".

" End Select %>



Set: Comment Classifications Event ID, Event Title

(comma delimited)
(comma delimited)
(comma delimited)
"> (comma delimited)
">
Chat Links: Tech Team Internal (big fonts, for presenters), Main Chat (big fonts)
Prune Duplicate Remote Participant Registrations
RealVideo Links: ICANN, cyber, bcis

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