Post Author: rkelly@micros.com
CA Forum: .NET
I am new to development but I have created a .asp file that will log in to CMS, open a report and export it to PDF format.
My problem is the license is not being released. It takes about 20 minutes before the license is sent back to the pool.
I would like to have the license freed as soon as the report is exported.
Here is my code:
<%@ Language=VBScript %><HTML><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=charset=UTF-8"><BODY><%
Dim UserID Dim Password Dim CMS Dim Aut
CMS = [cms name] UserID = "" Password = "" Aut = "secWindowsNT"
Dim ContractID ContractID = Request.querystring("ContractID")
Response.Expires = 0
On Error Resume Next
Dim SessionManager Set SessionManager = Server.CreateObject("CrystalEnterprise.SessionMgr")
If Err.Number <> 0 then Response.Write "Couldn't create SessionManager" Else Dim Sess Set Sess = SessionManager.Logon(UserID, Password, CMS, Aut)
If Err.Number <> 0 then Response.Write "<SCRIPT language=""javascript""> " & _ " alert (""You must have a valid account to access the " & _ "Business Objects server." & _ """);</SCRIPT>" Else Dim IStore Dim LogonTokenMgr Set IStore = Sess.Service ("", "InfoStore") Session("IStore") = IStore Set LogonTokenMgr = Sess.LogonTokenMgr Session("IStore") = Sess.LogonTokenMgr LogonToken = LogonTokenMgr.CreateLogonTokenEx("", 60, 100)
Response.Redirect "https://[server name]/crystalreportviewers11/viewrpt.asp?APSTOKEN=" + LogonToken + "&id=973324&prompt0=" + ContractID + "&cmd=EXPORT&EXPORT_FMT=U2FPDF:0&CONNECT=1"
Session.Abandon()
End If End If%></BODY></HTML>
Any help would be appreciated.
Ray