Well, this seems to work, assuming you have the proper connection stuff setup as "conn":
All these stored procedures and parameters are in the help files for Query Analyzer.
<%
strSQL = "sp_tables '%','dbo',null,""'TABLE'"""
Set rs = conn.execute(strSQL)
Do while not rs.eof
bList = false
response.write rs("TABLE_NAME")
strSQL = "sp_columns '" & rs("TABLE_NAME") & "'"
Set oRS = conn.execute(strSQL)
If not oRS.eof then
response.write "<ul>"
bList = true
End If
Do while not oRS.eof
bStrong = false
response.write "<li>"
If oRS("TYPE_NAME") = "int identity" then
response.write "<strong>"
bStrong = true
End If
response.write oRS("COLUMN_NAME")
If bStrong = true then
response.write "</strong>"
End If
response.write "</li>"
oRS.movenext
loop
If bList = true then response.write "</ul>"
rs.movenext
loop
Set oRS = nothing
Set rs = nothing
Set conn=nothing
%>