Entonces lo que debes poner es esto
Response.Write "<Table>"
Cadena=Rs("Texto")
Cadena=Split(cadena," ")
Response.Write "<tr>"
Response.Write "<td>"
For i =0 to 19
Response.Write Cadena(i)
Next
Response.Write "<t/d>"
Response.Write "<td>"
For i =20 to 39
Response.Write Cadena(i)
Next
Response.Write "</td>"
Response.Write "</tr>"
eso funcionará siempre y cuando haya 40 palabras, si tienes menos te dará error.
Hasta mañana
