• User Attivo

    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.

    Active Server Pages error 'ASP 0113'

    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: