Manage Web Subscriptions

<%@ LANGUAGE="VBSCRIPT" %> <% Server.ScriptTimeout = 9999 If Request.ServerVariables("LOGON_USER") = "" Then Response.Status = "401 access denied" else %> Manage Web Subscriptions <% on error resume next ' localizable strings L_strDocCre_TEXT = "Document Created" L_strDocMod_TEXT = "Document Modified" L_strDocDel_TEXT = "Document Deleted" L_strDocMov_TEXT = "Document Moved" L_strDocAll_TEXT = "All Document Changes" L_strCmtAdd_TEXT = "Comment Added" L_strCmtDel_TEXT = "Comment Deleted" L_strCmtAll_TEXT = "All Comment Changes" L_strAll_TEXT = "All Changes" L_strInv_TEXT = "Invalid" L_Head1_TEXT = "URL" L_Head2_TEXT = "Subscribed To" L_Head3_TEXT = "Email Address" L_ConfirmStr_TEXT = "Are you sure you want to delete all Web Subscriptions currently showing?" L_DelErrorStr_TEXT = "An error occured when deleting the selected Web Subscription." L_SubDeletedStr_TEXT = "The selected Web Subscription has been deleted." L_NoSubsStr_TEXT = "You have no Web Subscriptions on this server" L_ConnErrorStr_TEXT = "An error occurred when retrieving your selection. Possible causes are that the connection to the server is down or you do not have permission to do this operation. Try again, or if this error persists, check the status of your Office database." L_IE3ErrStr_TEXT = "This page uses a Java applet that does not work on Internet Explorer 3.0. Please upgrade to 4.0 or higher to use this page." ' Declare Constants dim OWS_EVT_DOCCREATE,OWS_EVT_DOCMODIFY,OWS_EVT_DOCDELETE,OWS_EVT_DOCMOVE,OWS_EVT_DOCALL dim OWS_EVT_CMTADD,OWS_EVT_CMTDEL,OWS_EVT_CMTALL,OWS_EVT_ALL,OWSEVTCOL_EVTID dim FILTER_NONE,FILTER_OWNER,FILTER_URL,FILTER_MAIL OWS_EVT_DOCCREATE = 0 OWS_EVT_DOCMODIFY = 1 OWS_EVT_DOCDELETE = 2 OWS_EVT_DOCMOVE = 3 OWS_EVT_DOCALL = 4 OWS_EVT_CMTADD = 5 OWS_EVT_CMTDEL = 6 OWS_EVT_CMTALL = 7 OWS_EVT_ALL = 8 OWSEVTCOL_EVTID = 5 ' Declare Variables dim SubCnt,FiltCol,evtid,Subscriptions,Subsc,FilteredSubs,tgtsub,outstr dim leftstr,rightstr,strpos,UserStr ' 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 if Session("fMiscApis") <> True then Set Session("MiscApis") = Server.CreateObject("OWS.MiscApis.1") Session("fMiscApis") = True End If %>

Manage Web Subscriptions

The list below shows your current Web Subscriptions on this Office-extended server. Click a column heading to sort by that field. You can delete any Web Subscription by selecting it and hitting Delete.

<% if Request.Form("delForm") = "TRUE" then evtid = Request.Form("evtid") Set Subscriptions = Session("MiscApis").EnumEvtSubs(evtid,OWSEVTCOL_EVTID,0,0) if Subscriptions.EOF = False then set tgtsub = Subscriptions.Item() if tgtsub.EventID = evtid then Subscriptions.Delete(tgtsub.EventID) if Err then response.write "

" & L_DelErrorStr_TEXT & "" Err.Clear else response.write "

" & L_SubDeletedStr_TEXT & "" end if end if end if ' get username from browser UserDomain = Request.ServerVariables("LOGON_USER") User = Right(UserDomain,(len(UserDomain)-instr(UserDomain,"\"))) ' filter on owner FiltCol = 3 Set FilteredSubs = Session("MiscApis").EnumEvtSubs(User,FiltCol,3,0) if Err then response.write "

" & L_ConnErrorStr_TEXT & "" Err.clear end if %>

"> "> <% SubCnt = 0 Do While FilteredSubs.EOF = False Set Subsc = FilteredSubs.Item() select case Subsc.EventType case OWS_EVT_DOCCREATE szEvtType = L_strDocCre_TEXT case OWS_EVT_DOCMODIFY szEvtType = L_strDocMod_TEXT case OWS_EVT_DOCDELETE szEvtType = L_strDocDel_TEXT case OWS_EVT_DOCMOVE szEvtType = L_strDocMov_TEXT case OWS_EVT_DOCALL szEvtType = L_strDocAll_TEXT case OWS_EVT_CMTADD szEvtType = L_strCmtAdd_TEXT case OWS_EVT_CMTDEL szEvtType = L_strCmtDel_TEXT case OWS_EVT_CMTALL szEvtType = L_strCmtAll_TEXT case OWS_EVT_ALL szEvtType = L_strAll_TEXT case else szEvtType = L_strInv_TEXT end select urlStr = Subsc.ScopeURL ' Flip backlashes Do While (Instr(urlStr,"\") <> 0) strpos = Instr(urlStr,"\") leftstr = Left(urlStr,strpos-1) rightstr = Right(urlStr,len(urlStr)-strpos) urlStr = leftstr & "/" & rightstr Loop %> <% SubCnt = SubCnt + 1 FilteredSubs.Next Loop %>
Connected to: <%=Request.ServerVariables("SERVER_NAME")%>
Displaying <%=SubCnt%> Web Subscription(s)
" name=delForm>

Go Back to the Start Page

<% end if %> <% end if %>