Así rapidamente y sin meditarlo mucho podría ser....
<table>
<tr>
<%
for i=1 to len(cadena)
%>
<td><%=i%>
<%
next
%>
<tr>
for i=1 to len(cadena)
%>
<td><%=cadena(i)%> 'O si no se pudiera response.write Mid(Cadena,i,1)
<%
next
%>
</tr>
Bueno es una idea.
</table>