Para u_goldman y daniel:
El problema es muy extraño hace un momento cargó correctamente todo comenzé a navegar y de un momento a otro volvió el problema.
Hize la prueba como me indicaron con un archivo que hacía una consulta simple y trabajaba con un solo recordset con este códido:
<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 al entrar a esa página salió error del tiempo de espera del servidor o ejecutó luego de mucho tiempo y eso no está bien.
También ejecuté una página asp que no trabajaba con base de datos y cargó pero demorándose o en todo caso no cargó y salió error.
Todo es muy extraño a veces carga y a veces no cargan las páginas cargan por momentos independientemente de si trabajan con la bd basta que sean .asp para que comienzen los problemas.
La verdad no se que determinación tomar o cambiarme de servidor.