Showing the MAPS 2.5 Transaction Database

ID: Q228761

The information in this article applies to:

SUMMARY

Occasionally it is helpful to view the transaction information stored in the transaction database. The documentation describes the database, and the following Web page uses ADO to do a dump of a particular transaction.

NOTE: This assumes that you are not automatically deleting transactional information.

<%@ Language=VBScript %>

<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<STYLE>
.TableName
{
background-color: lightgrey;
color: black;
font-weight: bold;
font-size: 16pt;
text-align: center;
}
</STYLE>
</HEAD>
<BODY>

<CENTER>

<%
TransactionID = Request.QueryString("TransactionID")

Set DB = Server.CreateObject ("ADODB.Connection")
DB.Open "trandb", "sa", "password"
%>

<DIV CLASS="TableName">mapsTrans</DIV>
<BR>

<% Set RS = DB.Execute ("SELECT * FROM mapsTrans WHERE id=" & TransactionID) %>

<TABLE BORDER="1">
<TR><TD>id</TD><TD><%=RS("id")%></TD></TR>
<TR><TD>createdate</TD><TD><%=RS("createdate")%></TD></TR>
<TR><TD>status</TD><TD><%=RS("status")%></TD></TR>
<TR><TD>creator</TD><TD><%=RS("creator")%></TD></TR>
</TABLE>

<%
RS.Close
Set RS = Nothing
%>

<BR>
<HR>
<BR>
<DIV CLASS="TableName">mapsTranSubObj</DIV>
<BR>

<TABLE BORDER="1">
<TR><TH>subid</TH><TH>tranid</TH><TH>name</TH><TH>objclass</TH></TR>
<%
Set RS = DB.Execute ("SELECT * FROM mapsTranSubObj WHERE tranid=" & TransactionID)
Do Until RS.EOF
%>
<TR><TD><%=RS("subid")%></TD><TD><%=RS("tranid")%></TD><TD><%=RS("name")%></TD>
<TD><%=RS("objclass")%></TD></TR>
<%
RS.MoveNext
Loop
RS.Close
Set RS = Nothing
%>
</TABLE>

<BR>
<HR>
<BR>
<DIV CLASS="TableName">mapsTranSubAttribute</DIV>
<BR>

<% Set RS = DB.Execute ("SELECT * FROM mapsTranSubObj WHERE tranid=" & TransactionID) %>
<TABLE BORDER="1">
<TR><TH>subid</TH><TH>attribute</TH><TH>value</TH><TH>sortorder</TH></TR>
<%
Do Until RS.EOF
subid = RS("subid")
Set RS2 = DB.Execute ("SELECT * FROM mapsTranSubAttribute WHERE subid=" & subid)
Do Until RS2.EOF
%>
<TR><TD><%=subid%></TD><TD><%=RS2("attribute")%></TD><TD><%=RS2("value")%></TD>
<TD><%=RS2("sortorder")%></TD></TR>
<%
RS2.MoveNext
Loop
RS2.Close
Set RS2 = Nothing
RS.MoveNext
Loop
RS.Close
Set RS = Nothing
%>
</TABLE>

<BR>
<HR>
<BR>
<DIV CLASS="TableName">mapsTranAttribute</DIV>
<BR>

<%
Set RS = DB.Execute ("SELECT * FROM mapsTranAttribute WHERE tranid=" & TransactionID)
%>
<TABLE BORDER="1">
<TR><TH>tranid</TH><TH>attribute</TH><TH>value</TH><TH>sortorder</TH></TR>
<% Do Until RS.EOF %>
<TR><TD><%=RS("tranid")%></TD><TD><%=RS("attribute")%></TD>
<TD><%=RS("value")%></TD><TD><%=RS("sortorder")%></TD></TR>
<%
RS.MoveNext
Loop
RS.Close
Set RS = Nothing

DB.Close
Set DB = Nothing
%>
</TABLE>

</CENTER>

</BODY>
</HTML>

Additional query words: MCIS2.5 MAPS 


Keywords          : 
Version           : winnt:2.5
Platform          : winnt 
Issue type        :

Last Reviewed: June 16, 1999