Deberias colocar el error que te manda y la linea
Al menos por lo que veo, cambia esto:
Do While NOT i = 0
i = i - 1
Response.Write(asunto(i))
Response.Write("<br>")
Loop
por esto:
For i=0 to Ubound(ASunto)
Response.Write asunto(i)
Response.Write "<br>"
Next
Saludos
<center><img src="http://www.pcmasmas.com.ar/foro/images/avatars/043.gif"><br>
Urjose</center>