<%
dsn = \"DSN=DSNName\"
Const adSchemaTables = 20
adSchemaColumns = 4
   Set oConn = Server.CreateObject(\"ADODB.Connection\")

oConn.open dsn
Set rstSchema = oConn.OpenSchema(adSchemaColumns)
      response.write \"<table>\"
      response.write \"<tr><td>Table name</td><td>field name</td><td>field type</td><td>is nullable</td><td>field size</td></tr>\"
tablename=\"\"
Do Until rstSchema.EOF
      response.write \"<tr><td>\"
       rstSchema(\"Table_name\") <> tablename then
         response.write rstSchema(\"Table_name\")
         tablename = rstSchema(\"Table_name\")
      
         response.write \" \"
      end
      response.write \"</td><td>\"& rstschema(\"column_Name\") & \"</td><td>\"
      select rstschema(\"data_type\")
          \"130\"
             rstschema(\"CHARACTER_MAXIMUM_LENGTH\") = 1073741823 then
               response.write \"Memo\"
            
               response.write \"Text\"
            end
          135
            response.write \"Date/Time\"
          3
            response.write \"Long Integer\"
          11
            response.write \"Yes/No\"
          131
            response.write \"Currency\"
         
            response.write rstschema(\"data_type\")
      end select
      response.write  \"</td><td>\" & rstschema(\"is_nullable\") & \"</td><td>\"
       rstschema(\"CHARACTER_MAXIMUM_LENGTH\") <> 1073741823 then
         response.write rstschema(\"CHARACTER_MAXIMUM_LENGTH\")
      
         response.write \" \"
      end
      response.write \"</td></tr>\"
      rstSchema.MoveNext
Loop
response.write \"</table>\"
%>