Active Server Pages error 'ASP 0113'

mas245

Active Server Pages error 'ASP 0113'

oggi mi hanno cambiato server mentre nell'altro funzionava tutto perfettamente in questo non funziona e mi da quest'errore.

Script timed out

/Default.asp

lo script è un semplicissimo sistema di news collegato ad database access con il dns
il dns è configurato correttamente ma il sistema mi ritorna con quell'errore.

ecco il codice dello script :


<%@LANGUAGE="VBSCRIPT"%> <!-- #include file="adovbs.inc" -->
<% dim LCID LCID = 1040 Session.LCID=LCID on error resume next Dim cn Set cn = Server.CreateObject("ADODB.Connection") cn.ConnectionString="dsn=vincere;"
cn.open Dim rs, sql Set rs = Server.CreateObject("ADODB.Recordset") 
sql = "SELECT data, stralcio, id, vincita FROM news ORDER by data DESC, id DESC " 
Set rs.ActiveConnection = cn rs.CursorType = adOpenKeyset rs.LockType = adLockOptimistic 
rs.Open sql, cn rs_numRows = 0 Dim rsa, sqla 
Set rsa = Server.CreateObject("ADODB.Recordset") sqla = "SELECT data, stralcio, id FROM articoli ORDER by data DESC, id DESC " 
Set rsa.ActiveConnection = cn rsa.CursorType = adOpenKeyset rsa.LockType = adLockOptimistic rsa.Open sqla, cn rsa_numRows = 0 Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 10 Repeat1__index = 0 Numerazione_Max = 7 rs_numRows = rs_numRows + Repeat1__numRows rs.PageSize = Repeat1__numRows ' 
FINE DEL PRIMO PEZZO ------------------------ Dim Repeat1a__numRows Dim Repeat1a__index Repeat1a__numRows = 2 Repeat1a__index = 0 Numerazionea_Max = 1 rsa_numRows = rsa_numRows + Repeat1a__numRows rsa.PageSize = Repeat1a__numRows %>

poi per far comparire la notizia :



<% cont=0 While ((Repeat1__numRows <> 0) AND (NOT rs.EOF))
 if cont mod 2 = 0 then bgcolor="#E4E3FD" else bgcolor="#f1f4f6" end if cont=cont+1 %>
 <div class="data"><%=rs("data")%></div> 
<div class="stralcio"><a href="../comdet.asp?id=<%=rs("id")%>&pag=<%=pag%>"><%=rs("stralcio")%></a></div>
 <div class="vincitahome"><%=rs("vincita")%></div> 
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rs.MoveNext() Wend %>
 <br /></div> <div class="articoli"><div class="data"><%=rsa("data")%></div>
<div class="stralcio"> <a href="../comdet2.asp?id=<%=rsa("id")%>&paga=<%=paga%>"><%=rsa("stralcio")%></a></div></div> 
<% rs.Close Set rs=Nothing rsa.Close
 Set rsa=Nothing cn.Close 
Set cn=Nothing %>

mi potete aiutare a aggiustarlo il tecnico dice che iis è settato correttamente :bho: