<%@ LANGUAGE="VBSCRIPT" %>
Manage Web Discussions
<%
Server.ScriptTimeout = 9999
' Strings for localization
L_NoDiscStr_TEXT = "No Discussions"
L_NoThreadsStr_TEXT = "There are no Web Discussion threads on this server."
L_CollabErrorStr_TEXT = "Error creating collab object!"
L_ConnErrorStr_TEXT = "An error occurred when opening the Office database."
L_GetThreadErrorStr_TEXT = "An error occurred when retreiving Web Discussion threads from the Office database."
L_DelThreadErrStr_TEXT = "An error occurred when deleting the selected Web Discussion thread."
L_IE3ErrStr_TEXT = "This page uses a Java applet that does not work on Internet Explorer 3.0.\nPlease upgrade to 4.0 or higher to use this page."
on error resume next
' define constants
Const OWSCO_DFTSVR = 0
Const OWSPROP_MDSTORE = 0
Const OWSMDF_ENUM_IMMEDIATE = 1
Const OWSMDF_ENUM_DESCENDING = 2
' define variables
dim miscapis
dim collab
dim MSStore
dim Bstrs
dim spaceStr ' spaces to initially stretch selectBox
dim Thread
dim Comment
dim urlstr
dim useragent ' HTTP_USER_AGENT string from browser
dim ieverstr ' MSIE Version string from HTTP_USER_AGENT
dim iever ' IE Version (integer for comparison)
' get browser version
useragent = Request.ServerVariables("HTTP_USER_AGENT")
ieverstr = Mid(useragent,Instr(useragent,"MSIE")+5,4)
iever = Left(ieverstr,1)
if IsNumeric(iever) = False then iever = 0
if Instr(useragent,"MSIE") <> 0 and iever < 4 then %>
<%=L_IE3ErrStr_TEXT%>
<% else %>
Manage Web Discussions
The list below shows the URLs of documents that have Web Discussions maintained by this Office-extended server. To delete all discussion items for a URL, select it in the list and click Delete. To delete particular discussion items for a URL, select it in the list, click View, then delete the items using the Office collaboration toolbar while viewing the document in your Web browser.
<% end if %>
