home *** CD-ROM | disk | FTP | other *** search
/ Y2K Resource 1999 November / Y2K_Resource_Nov99.iso / ssx / ssx.exe / RCDATA / CABINET / ssx.cab / postinfo.asp < prev    next >
Text File  |  1998-02-25  |  804b  |  37 lines
  1. <% Response.Buffer = TRUE %>
  2.  
  3. <!--#include virtual="/SiteServer/Publishing/pasetup.inc"-->
  4.  
  5. <% if (( AllowAnonymous <> "YES" ) and (Len(Request.ServerVariables("LOGON_USER")) = 0 )) then %>
  6.         <% Response.Status = "401 Unauthorized" %>
  7.         <B>Error: Access is denied.</B><P>
  8.  
  9. <% else %>
  10.  
  11.     Version=1.5
  12.  
  13.     [{8B14B770-748C-11D0-A309-00C04FD7CFC5}]
  14.     PostingURL="<%= PostingURL %>"
  15.     TargetURL="<%= TargetURL %>"
  16.     ComponentInstall="yes"
  17.  
  18. <%    Dim CrsServer
  19.  
  20.     Err.Clear
  21.     On Error Resume Next
  22.  
  23.     Set CrsServer = Server.CreateObject("CrsApi.ReplicationServer")
  24.  
  25.     if (Err.Number = 0) then
  26.         CrsServer.Initialize ""
  27.         if (Err.Number = 0) then %>
  28.  
  29.     [WebPost.CRSWpp]
  30.     ServerName="<%= Request.ServerVariables("SERVER_NAME") %>"
  31.     Authentication="NTLM"
  32.  
  33.         <% end if
  34.     end if %>
  35.  
  36. <% end if %>
  37.