<%@ LANGUAGE="VBSCRIPT" %> Configure Web Discussion Settings <% ' localizable strings L_ChkPosErrStr_TEXT = "You must enter a positive number for Discussion Item Deletion." L_TimerStopErrStr_TEXT = "ERROR: The Timer could not be stopped." L_NoCngStr_TEXT = "No changes have been made." L_TimerStartErrStr_TEXT = "ERROR: The Timer could not be restarted." L_SaveWarnStr_TEXT = "Your settings have been saved but some features may not work." L_WebDiscErrStr_TEXT = "ERROR: The Web Discussion feature has NOT been turned on/off." L_WebDiscOnStr_TEXT = "Web Discussions are now on." L_WebDiscOffStr_TEXT = "Web Discussions are now off." L_RestrictErrorStr_TEXT = "ERROR: The setting for Restricting/Allowing External discussions has not been changed." L_RestrictOffStr_TEXT = "Web Discussions are allowed on documents located anywhere on the web." L_RestrictOnStr_TEXT = "Web Discussions are restricted to documents located on the server." L_ExpiryErrStr_TEXT = "ERROR: The setting for Web Discussion Expiration has not been changed." L_ExpirySetStrBegin_TEXT = "Web Discussion items will now be deleted from the server after " L_ExpirySetStrDay_TEXT = "day(s)" L_ExpirySetStrWeek_TEXT = "week(s)" L_ExpirySetStrMonth_TEXT = "month(s)" L_ExpirySetStrYear_TEXT = "year(s)" L_ExpiryOffStr_TEXT = "Web Discussion expiration has been turned off" L_NoSettingChgStr_TEXT = "No changes were made to Web Discussion Settings." Set serv = Server.CreateObject("OWS.MiscApis.1") %> Back to Administration Home Get Help with this Page

Configure Web Discussion Settings

<% if Request.Form("Submitted") = "" then %>
" method=post name="frm" onSubmit="return ChkPos();">
Web Discussions
Web Discussions are: checked <% end if %>> On checked <% end if %>> Off
Web Discussions allow users to create and reply to threaded discussions within documents. Discussion items are stored independent of the documents in the Office Server Extensions database.
Allow Web Discussions on:
checked <%end if%>> Documents located anywhere on the web.
checked <%end if%>> Documents located on this server only.

0 then %> checked <%end if%>> Enable automatic deletion of Web Discussion items
      Delete Web Discussion Items after value="180" <% else %> value=" <%=serv.getattribute(3)%>" <%end if%> maxlength=4>

Connected to: <%=Request.ServerVariables("SERVER_NAME")%>
<% else %> The following settings were changed:

<% nochange = TRUE on error resume next if Request.Form("rdDiscEn") = "on" then ' turn on discussion feature if it's off if serv.getattribute(2) = 0 then SetEnableDiscussions TRUE nochange = FALSE end if if Request.Form("rdExtDisc") = "on" then if serv.getattribute(8) = 1 then SetRestrictDiscussionsToServer FALSE nochange = FALSE end if else if serv.getattribute(8) = 0 then SetRestrictDiscussionsToServer TRUE nochange = FALSE end if end if if Request.Form("chkDiscExp") = "on" then user = Request.Form("txtDiscExp") datetype = Request.Form("DateTypeField") if datetype = 1 then expire = user elseif datetype = 2 then expire = user * 7 elseif datetype = 3 then expire = user * 30 elseif datetype = 4 then expire = user * 365 end if if serv.getattribute(3) <> CInt(expire) then SetDiscussionsExpiry expire,datetype nochange = FALSE end if else if serv.getattribute(3) <> 0 then SetDiscussionsExpiry 0,datetype nochange = FALSE end if end if else if serv.getattribute(2) = 1 then SetEnableDiscussions FALSE nochange = FALSE end if end if if nochange = TRUE then response.write "

" & L_NoSettingChgStr_TEXT & "" end if %>

To make further changes, click on the "Change Settings" button.

" method=post name="frm">
<% end if ' form submitted %>