Já disponibilizei um tópico onde a tabela se ajustava à quantidade de campos da tabela do banco de dados.
No código abaixo você determina a quantidade de colunas que a tabela deverá ter.
<% Else response.write "Nova consulta..:: Trabalhando com tabelas ::.. <% pag = Split(Request.ServerVariables("SCRIPT_NAME"),"/") If request.querystring("xy") = "" then%>
" response.write "Colunas: " & Int(request.Form("col")) & "
" response.write "
" & x: next response.write " |
---|
" & x If (x Mod Int(request.Form("col"))=0) Then response.write " |