Alguien puede decirme como resolver este codigo???

[prod6]

la verdad es que no soy muy experto en ASP pero veo que creas un objeto por cada consulta que tengas que hacer...es necesario?
siempre que use ASP con VBSCRIPT usé la "formula":

Set objRS = Conn.Execute("consulta")
While (Not objRS.Eof)
objRS("campo")
objRS.MoveNext
Wend

destruyendo el objeto al final de cada consulta para resetearlo cuando tenga que reusarlo...puede ser un problema de memoria (raro), o si el script tarda mas de 30 segundos en terminar el servidor a lo mejor lo termina (aunque te darías cuenta) o tambien puede ser que algo no este en su lugar en el codigo, un end if faltante, algo que no se cierra (mas probable), no he leido el codigo detenidamente...cuando llego a casa lo hago

mi consejo es que uses la "indentatura" (tabulaciones) para darte cuenta