<%
Dim cnConnection
Dim rsTransactions
Dim strStatus
Dim strType
Dim strFileCount
Dim strDescription
Dim x
Call CVerifyPassport
Call CCreateObjects
Call CCreateConnection
Call CGetTransactions
Private Sub CGetTransactions
set rsTransactions = cnConnection.Execute("GetTransactions " & oPassMgrObj.Profile("MemberIdHigh") & ", " & oPassMgrObj.Profile("MemberIdLow"))
if cnConnection.Errors.Count > 0 then
strTemp = "http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL")
Response.Write "
" & L_COMMENTS_UNABLE_TOCONNECT_ERRORMESSAGE & "
"
Response.Write "
" & L_CORPTRANSACTIONS_DATABASE_FAILED_TEXT & "
"
Call CDestroyObjects
Response.End
%>
<%
end if
End Sub
Private Sub CVerifyPassport
on error resume next
If not (oPassMgrObj.IsAuthenticated(TimeWindow, ForceLogin)) then
Response.Write "
"
%>
<%
Response.End
end if
End Sub
Private Sub CCreateObjects
on error resume next
set cnConnection = CreateObject("ADODB.Connection")'Create Connection Object
set rsTransactions = CreateObject("ADODB.Recordset")'Create Recordset Object
End Sub
Private Sub CDestroyObjects
on error resume next
if rsTransactions.State = adStateOpen then rsTransactions.Close
set rsTransactions = nothing
if cnConnection.State = adStateOpen then cnConnection.Close
set cnConnection = nothing
End Sub
Private Sub CCreateConnection
on error resume next
with cnConnection
.ConnectionString = strCustomer
.CursorLocation = adUseClient
.ConnectionTimeout = strGlobalConnectionTimeout
.Open
end with 'Catch errors and display to user
if cnConnection.State = adStateClosed then
Response.Write "
" & L_COMMENTS_UNABLE_TOCONNECT_ERRORMESSAGE & "
"
Response.Write "
" & L_COMMENTS_CONNECTION_FAILED_TEXT & "
"
cnConnection.Errors.Clear
Call CDestroyObjects
%>
<%
Response.End
end if
End Sub
%>
<% = L_CORPTRANSACTIONS_CORPORATE_TITLE_TEXT %>
<% = L_CORPTRANSAACTIONS_SUBTITLE_CHOOSE_TEXT %>
<%
x = 0
if rsTransactions.State = adStateOpen then
if rsTransactions.RecordCount > 0 then
rsTransactions.MoveFirst
Do while rsTransactions.EOF = false
'Select case rsTransactions("status")
'case 0
'strStatus = L_CORPTRANSACTIONS_COMPLETE_COMPLETE_TEXT
'case 1
'strStatus = L_CORPTRANSACTIONS_INCOMPLETE_INCOMPLETE_TEXT
'End Select
strStatus = rsTransactions("TransactionID")
Select case rsTransactions("type")
case 1
strType = L_CORPTRANSACTIONS_STARTUP_SHUTDOWN_TEXT
case 2
strType = L_CORPTRANSACTIONS_SYSTEM_CRASH_TEXT
end select
if isnull(rsTransactions("Description")) = true then
strDescription = " "
else
strDescription = rsTransactions("Description")
end if
%>
<%
if Len(strDescription) > 17 then
Response.Write " " & Left(strDescription, 17) & "... "
else
Response.Write " " & strDescription & " "
end if
if isnull(rsTransactions("FileCount")) = true then
strFileCount = "0"
else
strFileCount = rsTransactions("FileCount")
end if
x = x + 1
%>