Tu ciclo itera infinitamente...
Código:
Do While Not rsServicio.EOF
'cuando entra este while es donde se demora una eternidad supuestamente
'no entiendo si a lo mucho entra 7 veces
'el store lo probe en sql y es bien rapido
CADENA_ABREUSUARIO = CADENA_ABREUSUARIO + " <td>Estado</td>"
Response.write CADENA_ABREUSUARIO
rsServicio.MoveNext
Loop
Salu2,