| <%
var conn = Server.CreateObject("ADODB.Connection")
conn.Open(Application("DIAG_DB_CONN"))
var strSQL = "SELECT * FROM " + Application("DIAG_TABLE")
var rs = conn.Execute(strSQL)
%>
<p>
<table border="1">
<tr>
<%
for (i = 0; i < rs.Fields.Count - 1; i++)
{
%>
<td><b><%= rs.Fields(i).Name
%></b></td>
<%
}
%>
</tr>
<% while (!rs.EOF) { %>
<tr>
<%
for (i = 0; i < rs.Fields.Count - 1; i++)
{
%>
<td VALIGN="TOP"><%= rs(i)
%></td>
<%
}
%>
</tr>
<%
rs.MoveNext()
}
%>
</table>
<%
rs.Close()
conn.Close()
%>
|
