<%@ Language=VBScript %>
<% Option Explicit
%>
<HTML>
<HEAD>
<title>BOE XI Reports MetaData Page</title>
<link rel="stylesheet" type="text/css" href="rsc/style/template_style.css"/>
<style type="text/css">
body {
font-family:Verdana, Arial, Helvetica, sans-serif;
font-size:12px;
color:#5F5F5F;
text-decoration:none;
scrollbar-arrow-color:#003366;
scrollbar-base-color:#C0C0C0;
scrollbar-darkshadow-color:#6699cc;
scrollbar-face-color:#6699cc;
scrollbar-highlight-color:;
scrollbar-shadow-color:;
}
table {
font-family:Verdana, Arial, Helvetica, sans-serif;
font-size:12px;
color:#5F5F5F;
text-decoration:none;
}
td {
vertical-align:top;
color:green
}
th {
font-weight:700;
color:blue;
text-align:center;
text-decoration:none;
}
</style>
</HEAD>
<BODY>
<%
Const APS = [i]"<yourCMS/APS>"[/i]
Const UserID = [i]"<UserwithViewOnDemand/FullControl">[/i]
Const Password= [i]"<password for that user>"[/i]
Const Aut = "secEnterprise"
Function Logon(ByRef IStore)
Dim SessionManager
Dim Result
Result = FALSE
Set SessionManager = Server.CreateObject("CrystalEnterprise.SessionMgr")
If Err.Number = 0 then
Dim Sess
Set Sess = SessionManager.Logon(UserID, Password, APS, Aut)
If Err.Number = 0 then
Set IStore = Sess.Service ("", "InfoStore")
Set Session("IStore") = IStore
Result = TRUE
End If
end if
Logon = Result
End Function
Sub ShowReports(Rid,FolderName,IStore,FolderParent)
Dim indx,Result3,Istr,Result4,FldrPar,indx2
If FolderParent <> 0 then
Set Result4 = IStore.Query("SELECT SI_NAME FROM CI_INFOOBJECTS WHERE SI_PROGID = 'CrystalEnterprise.Folder' and SI_ID = " & FolderParent)
for indx2 = 1 to Result4.Count
FldrPar = Result4.Item(indx2).Title
Next
Response.Write("<Table><TH> Folder: " & FolderName & " Within Folder " & FldrPar & "</TH><TR>")
else
Response.Write("<Table><TH> Folder: " & FolderName & "</TH><TR>")
End If
Set Result3 = IStore.Query("Select SI_NAME, SI_ID, SI_DESCRIPTION From CI_INFOOBJECTS Where SI_PROGID='CrystalEnterprise.Report' And SI_INSTANCE=0 AND SI_PARENT_FOLDER=" & Rid & "ORDER BY SI_NAME")
for indx = 1 to Result3.count
Response.Write("<TD>" & Result3.Item(indx).Title & "</TD><TR>")
Next
Response.Write("</TR></TABLE>")
End Sub
Sub Main
Dim IStore,Result2,FolderName
Dim itm
Logon IStore
Set Result2 = IStore.Query("SELECT SI_ID, SI_NAME,SI_PARENT_FOLDER FROM CI_INFOOBJECTS WHERE SI_PROGID = 'CrystalEnterprise.Folder' ORDER BY SI_NAME")
for itm = 1 to Result2.Count
ShowReports Result2.Item(itm).ID, Result2.Item(itm).Title,IStore,Result2.Item(itm).Properties.Item("SI_PARENT_FOLDER")
Next
End Sub
Main
%>
</BODY>
</HTML>