I'm trying to call the following page (VBScript) but I get an Internal
Server Error 500 in the browser when I try to run this page (it's linked to
from another page with a submit button). Can anybody tell me what I'm doing
wrong?
<%option explicit%>
<%Response.Buffer = True%>
<%
' Declare objects and variables.
Dim strPath, strContent, strUserName, publickey, privatekey
Dim objDownloadMgr, objHeader, strHeader
' Retrieve end user and file information from the form.
strPath = "Download"
strContent = "PckgNew2-r000292.wmv")
strUserName= "1234356"
' Set the packaging server's private key.
privatekey = "Put server's private key here"
' Create a download manager object.
Set objDownloadMgr = Server.CreateObject("wmrmobjs.reheader")
' Create a header object.
Set objHeader = Server.CreateObject("Wmrmobjs.WMRMHeader")
' Place header information into the header object.
strHeader = objDownloadMgr.GetDRMHeader(strPath+"\"+strContent )
objHeader.Header = strHeader
objHeader.Attribute("UserName") = strUserName
objHeader.Sign(privatekey)
strHeader = objHeader.Header
' Add the header to the Response object.
Response.AddHeader "Content-Disposition", _
"attachment;filename="+strContent
' Force the end user to download the packaged file.
objDownloadMgr.ForceCompleteDownload = True
' Download the file.
call objDownloadMgr.DownLoad(strPath+"\"+strContent, strHeader)
Set objHeader = nothing
Set objDownloadMgr = nothing
%>