Showing the MAPS 2.5 Transaction Database

ID: Q228761

The information in this article applies to:

Microsoft Commercial Internet System version 2.5

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 :