Error de tiempo,se consume mucho

[loquillo7]

Gracias foreros de antemano por la ayuda,mi problema es:
Hay consultas a SQL2000 en donde en el asp defino un Recorset él cual a lo mucho me bota 7 registros, esa cantidad q me bota el recorset la necesito para pintar columnas en una tabla en el html
(en este caso si me bota 7 pintare 7 columas<td></td>)
pero nose poruqe el sistema me bota "Error de tiempo sobrelimitado"
no entiendo xq me bota ese error si solo pintaria a lo mucho 7 columnas aqui les dejo el codgio haber si me dan una manito gracias:

<%
Set rsServicio = server.CreateObject("ADODB.RECORDSET")
'hago la consulta

If Not rsServicio.EOF Then
CADENA_ABREUSUARIO= "<TR class=TituloTabla>"
CADENA_CIERRAUSUARIO="</TR>"
Response.write CADENA_ABREUSUARIO
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
Loop
rsServicio.Close
Set rsServicio = Nothing
Response.write CADENA_CIERRAUSUARIO
End If
%>



Este error me sale:
The maximum amount of time for a script to execute was exceeded. You can change this limit by specifying a new value for the property Server.ScriptTimeout or by changing the value in the IIS administration tools.
/ms-sgs/HorasServicio.asp

[u_goldman]

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,

[loquillo7]

muchas gracias nose como se me pudo pasar ello . :)