Goldman: este es parte del código...
<!--#include file="includbd.inc" -->
<%
sqlrev = "select top 1 * from revista order by idedicion desc"
sql2 = "select top 1 * from imgRevista order by idedicion desc"
sql3 = "select top 1 * from titularesRev order by idedicion desc"
set result =createobject("ADODB.Recordset")
set result = con.execute(sqlrev)
set result2 =createobject("ADODB.Recordset")
set result2 = con.execute(sql2)
set result3 =createobject("ADODB.Recordset")
set result3 = con.execute(sql3)
%>
<%response.Write" <span >"&result.Fields("nroedicion")&"</span>"%>
<% sqlPrin = "select top 1 * from noticias where tiponoticia = 'PRINCIPAL' order by idnoticias desc"
set resultPRIN =createobject("ADODB.Recordset")
set resultPRIN = con.execute(sqlPrin)
dim NotPrin
NotPrin = cint(resultprin.Fields("idnoticias"))
response.Write(Notprin)
sql = "select top 4 * from noticias WHERE idnoticias not like " &NotPrin&" order by idnoticias desc"
'sql = "select top 5 * from noticias order by idnoticias desc"
set resultnot =createobject("ADODB.Recordset")
set resultnot = con.execute(sql)
%>
response.write "<img height=73' src="&resultprin.fields("dirmagen")&" alt='"&resultprin.fields("titulo")&"' border='1'>"
<%dim Cadenaprin
Cadenaprin=Replace(Resultprin.fields("titulo"),chr (13),"<br>")
Response.Write "<a class='tituloPrincipalNoticia' href=noticia.asp?idnoticias=" &resultprin.Fields("idnoticias") & ">"&Cadenaprin&"</a>"%>
<% while not resultnot.eof
%>
response.write "<img width=90' src="&resultnot.fields("dirmagen")&" alt='"&resultnot.fields("titulo")&"' border='1'>"
<%dim Cadenatit
Cadenatit=Replace(Resultnot.fields("titulo"),chr(1 3),"<br>")
Response.Write Cadenatit
%>
<%
dim var, linea
var = resultnot.Fields("copete")
if len(var) > 35 then
linea = MID(var,1,100) & "..."
else
linea = var
end if
%>
response.Write" <a class='textoNoticias' href=noticia.asp?idnoticias=" &resultnot.Fields("idnoticias") & "><span >"&linea&"</a>"%>
<%
resultnot.movenext
i = i + 1
'end if
wend
resultnot.close
set resultnot =Nothing
result.close
Set result = Nothing
resultPRIN.close
Set resultPRIN = Nothing
%>
% con.close
set con= nothing
%>
En las demás páginas del dominio, que son varias páginas, la codificación es similar con la misma estructura, y siempre todo funcionó bien.
Me dijeron que colocara en mi página: Server.ScriptTimeout=120 pero el problema se mantuvo.
Una pregunta ¿Cuánto debe pesar una bd access con asp en el servidor?, porque ahora mis bd pesan no más de 5mb (son 3 bd distintas con distintos dsn) y no creo que el problema sean las bd.
Muchas gracias.
