Hola U_GOLDMAN:
Ya hize esa prueba con una aplicación sencilla como esta:
<html>
<head><title>Listado de registros</title>
<style type="text/css">
<!--
.proceso {
font-family: Arial, Helvetica, sans-serif;
font-size: 14px;
font-style: normal;
font-weight: bold;
color: #990000;
}
-->
</style>
</head>
<%SQLtxt = "SELECT titulo, fuente, tiponoticia FROM noticias where idnoticias=2219"
'SQLtxt = "SELECT titulo, fuente, tiponoticia FROM noticias"%>
<body>
<%set rs = CreateObject("ADODB.Recordset")
rs.Open SQLtxt, "DSN=baseconstructivo"
%>
<%if rs.eof then
response.write"<p class='proceso'>NO SE ENCONTRARON REGISTROS</p>"
rs.close
set rs=nothing
%>
<%else%>
<center>
<table border="0" width="32%" bgcolor="#C0C0C0">
<tr>
<td width="100%">
<p align="center"><b><big>Listado de registros<%=rs.fields("fuente")%></big></b></td>
</tr>
</table>
<h3>
<br>
</h3>
<table BORDER="1" CELLSPACING="0" BORDERCOLOR="#000000"
CELLPADDING="2" width="100%">
<tr>
<td BGCOLOR="#C0C0C0"><b>Título</b></td>
<td BGCOLOR="#C0C0C0"><b>Fuente</b></td>
<td BGCOLOR="#C0C0C0" align="right"><b>Tipo Noticia</b></td>
</tr>
<%
Do While NOT rs.EOF%>
<tr>
<td><%= rs("titulo")%></td>
<td><%= rs("fuente")%></td>
<td><%= rs("tiponoticia")%></td>
</tr>
<% rs.MoveNext
Loop
rs.Close
end if
%>
</table>
</body></html>
y pasaron dos cosas cuando la ejecute:
- Llegó a mostrar los datos pero demoró muchísimo para una consulta tan sencilla.
- No llegó a mostrar nada y salió el error de que el tiempo de espera del servidor terminó y que aumente el tiempo del IIS.
Es muy raro. No me explico que pueda estar pasando. Además lo que me dices que hay muchos recordset abiertos al final todos se cierran y se destruyen y la conexión también se cierra y otro punto importante es que esa programación así como la viste está desde hace mucho tiempo así y ha funcionado siempre bien desde hace mucho, no se porque de un momento a otro comenzaron los problemas si no se ha modificado nada.