<%
	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
%>