¿Posible o imposible?

[yomesmo]

He probado el código, además me parece que efectivamente debería de funcionar, pero el servidor se queda colgado dando un error:

Tipo de error:
Páginas Active Server, ASP 0113 (0x80004005)
Se excedió el tiempo máximo de espera para una secuencia de comandos. Para cambiar este límite especifique un nuevo valor para la propiedad Server.ScriptTimeOut o cambie el valor en las herramientas de administración de IIS.
/www/content.asp

Esto me descoloca, se queda colgado con el bucle al generar el recordset, pero lo estoy revisando y no encuentro donde puede estar el error.

Este es código que utilizo:



sql = "SELECT * FROM ContentAttributeValues WHERE ContentId=832"' & to_sql(ContentId,"number") (He probado con un registro real, anulando la variable

set rs = cn.Execute(sql)
rs.MoveFirst
I_While = 0
While not rs.EOF
I_While = I_While + 1
'vamos creando la claúsula FROM.
C_From = C_From & ", ContentAttributeValues as cns_" & I_While
'Vamos creando los filtros de búsqueda
if I_While=1 then
C_Where = " WHERE CONTENT.ContentID=cns_" & I_While & ".ContentID"
else
C_Where = C_Where & " AND CONTENT.ContentID=cns_" & I_While & ".ContentID"
end if
C_Where_2 = C_Where_2 & " AND cns_" & I_While & ".attr_value ='" & rs("attr_value") & "'"
Wend
rs.Close
Set rs = Nothing

'Creamos la cadena de sql final.
listado_sql_competidores = "SELECT CONTENT.ContentID, CONTENT.title FROM CONTENT " & C_From & C_Where & C_Where_2

'En el sql ponemos el filtro para que no nos saque la moto que tenemos en la ficha:

listado_sql_competidores = listado_sql_competidores & " AND not CONTENT.ContentID=" & to_sql(ContentId,"number")

'De aqui en adelante abro la base de datos con este select y mostraría los resultados, pero no llega a este pùnto, se queda colgado ¿?