Se ho capito bene a te serve proprio una procedura.
Chiami la procedura
INPUT : dati
Output : TABELLA
codice:
public sub stampaTabella(dati)
dim result
for i = 0 to UBOUND(dati)
result = result & "<tr>" & vbcrlf
result = result & "<td>" & dati(i) & "</td>" & vbcrlf
result = result & "</tr>" & vbcrlf
Next
result = "<table align=center>" & result & "</table>"
response.Write result
end sub
Ciao spero di esserti stato utile!!!
P.S.
Avevo dimenticato che ovviamente devi mettere questa procedura dentro ad un file esterno ed includerlo nelle pagine in cui ne hai bisogno. Era ovvio ma lo specifico ciao!!