Bueno pues ese error yo lo he sufrido varias veces y lo he solucionado al quitar la declaraciones es decir quitando las lineas de los DIMS
y Bueno ya te dije que esto lo tienes que modificar
Do While NOT i = 0
i = i - 1
Response.Write(asunto(i))
Response.Write("<br>")
Loop
Bueno ahora si me retiro, espero que te funcione.
Saludos
<center><img src="http://www.pcmasmas.com.ar/foro/images/avatars/043.gif"><br>
Urjose</center>