<% Set con1 = Server.CreateObject("ADODB.Connection") con1.Open "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Option=16834;Database=Test;" Set con2 = Server.CreateObject("ADODB.Connection") con2.Open "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Option=16834;Database=Test;" Set rs1 = Server.CreateObject("ADODB.Recordset") rs1.Open "SHOW TABLES",con1 Response.Write "

" & vbCrLf Do While Not rs1.EOF Response.Write "
• " & rs1(0) & vbCrLf Set rs2 = Server.CreateObject("ADODB.Recordset") rs2.Open "SHOW COLUMNS FROM " & rs1(0),con2 Response.Write "
  " & vbCrLf Do While Not rs2.EOF Response.Write "
  • " & rs2("Field") & " " & rs2("Type") & vbCrLf rs2.MoveNext Loop Response.Write "
  " & vbCrLf rs1.MoveNext Loop Response.Write "

" & vbCrLf Set rs1 = Nothing Set con2 = Nothing Set con1 = Nothing %>