Comportamento anomalo codice ASP

[[trodat]]

Ciao a tutti.

Qualcuno può aiutarmi a capire e, soprattutto, a risolvere questo misterioso comportamento di una pagina ASP?

Succede che su alcuni computer (stessa versione XP e IE) questa pagina vada in "loop", cioè una volta richiamata sul browser inizia ad "autoaggiornarsi" sino a quando va definitivamente in errore.

Questo accade (come detto) solo su alcuni pc, mentre sugli altri (la maggioranza per fortuna) la pagina estrae regolarmente i dati, senza alcun problema.

Ciò mi fa pensare che il problema non sia l'esecuzione del codice ASP, ma qualche particolare settaggio di IE (chi lo sa?).

Ci sto andando al manicomio, se avete suggerimenti non esitate e scrivermi, grazie.

[br1]

Una pagina ignota ha un comportamento strano... VVoVe:

Con questa mole di informazioni non aspettarti troppe soluzioni...

ciao

[[trodat]]

Ecco il codice della pagina ignota:

<%
sql = "SELECT top 6 * FROM tabellaUno ORDER BY ID asc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, cn, 3, 3

On Error Resume Next
rs.MoveFirst  
Do While Not rs.EOF
%>

<option value="<%=rs("id")%>"><%=rs("id")%></option>

<%
rs.MoveNext
Loop
rs.Close
set rs = Nothing

sql = "SELECT * FROM tabellaDue order BY ID"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, cn, 3, 3

On Error Resume Next
rs.MoveFirst  
Do While Not rs.EOF
%>

<option value="<%=rs("ID")%>"><%=rs("ID")%></option>

<%
rs.MoveNext
Loop
rs.Close
set rs = Nothing

sql = "SELECT * FROM tabellaTre order BY ID"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, cn, 3, 3

On Error Resume Next
rs.MoveFirst  
Do While Not rs.EOF
%>

<option value="<%=rs("ID")%>"><%=rs("ID")%></option>

<%
rs.MoveNext
Loop
rs.Close
set rs = Nothing

sql = "SELECT * FROM tabellaQuattro order BY ID"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, cn, 3, 3

On Error Resume Next
rs.MoveFirst  
Do While Not rs.EOF
%>

<option value="<%=rs("ID")%>"><%=rs("ID")%></option>

<%
rs.MoveNext
Loop
rs.Close
set rs = Nothing


id = cInt(request("id"))

ord = trim(request("ord"))
if ord = "" then
ord = "ID"
end if
SQL = "SELECT * FROM tabellaDue ORDER BY "&ord&" asc"

set rs = server.createObject("ADODB.Recordset")
rs.open sql, cn, 1, 3

id=""

if rs.eof then
response.write ("KO") & "
"
else

ord = trim(request("ord"))
if ord = "" then
ord = "ID"

end if
strSQL = "SELECT * FROM tabellaDue ORDER BY "&ord&" asc"

cn.execute strSQL

While Not rs.eof	
id = Id & rs("Id") & ","


rs.MoveNext
wend
end if


strSQL = "select sum(tr_r_p) as tot1, sum(tr_v_p) as tot2, sum(tr_3_p) as tot3, sum(nr_tr_at) as tot4, sum(nr_tr) as tot5, sum(nr_i_at) as tot6, sum(nr_t_es) as tot7, sum(nr_i_mt) as tot8, sum(m) as tot9, sum(f) as tot10, sum(r) as tot11, sum(tfn) as tot12, sum(equivalente) as tot13 from tabellaDue"
set rec = server.createObject("ADODB.Recordset")
rec.open strSQL, cn, 1, 3

pr_2005 = rec("tot1")
pr_2006 = rec("tot2")
pr_2007 = rec("tot3")
pr_2008 = rec("tot4")
pr_2009 = rec("tot5")
pr_2010 = rec("tot6")
pr_2011 = rec("tot7")
pr_2012 = rec("tot8")
pr_2013 = rec("tot9")
pr_2014 = rec("tot10")
pr_2015 = rec("tot11")
pr_2016 = rec("tot12")
pr_2017 = rec("tot13")

rs.close
rec.close

cn.Close
set rs = nothing
set rec = nothing
set cn = Nothing
%>

[br1]

Una pagina di sole <option>

Forse un link e' meglio

ciao

[[trodat]]

Ho eliminato la parte HTML... sono solo tabelle formattate, non c'è nulla di dinamico o di codice javascript... in questo momento sono impossibilitato a pubblicare questa pagina...

[longline]

Togli "On Error Resume Next", vedrai l'errore che impalla tutto.

[lufo5]

primo, dovreti togliere tutti gli on error resume next.
non capisco il perchè di tutti i "moveFirst". non hanno senso.
Oltre a questo, noto questa parte

strSQL = "SELECT * FROM tabellaDue ORDER BY "&ord&" asc"

cn.execute strSQL

dovrebbe darti un errore, poichè cerchi di aprire un recordset, ma non lo assegni ad alcun oggetto.

[[trodat]]

Originariamente inviato da longline
Togli "On Error Resume Next", vedrai l'errore che impalla tutto.

Nella pagina non c'è nessun errore perchè viene eseguita correttamente sulla maggior parte dei pc che la consultano...

Pur tuttavia ho fatto come dici (ho eliminato tutti gli "On Error Resume Next") ma la situazione non cambia... (fuori uno..)

[lufo5]

Originariamente inviato da [trodat]
Nella pagina non c'è nessun errore perchè viene eseguita correttamente sulla maggior parte dei pc che la consultano...

Pur tuttavia ho fatto come dici (ho eliminato tutti gli "On Error Resume Next") ma la situazione non cambia... (fuori uno..)

questo non è un motivo valido per gestire gli errori in una pagina che evidentemente non funziona e che genera delle anomalie in alcuni casi.

Poi nell'ultima parte mancherebbe anche un controllo di .eof

[[trodat]]

Originariamente inviato da lufo5

strSQL = "SELECT * FROM tabellaDue ORDER BY "&ord&" asc"
cn.execute strSQL

dovrebbe darti un errore, poichè cerchi di aprire un recordset, ma non lo assegni ad alcun oggetto.

Cosa???? VVoVe: Apro un recordset? ma dove l'hai visto???? Eseguo semplicemente la query, dov'è scritto???:

strSQL = "SELECT * FROM tabellaDue ORDER BY "&ord&" asc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strSQL, cn, 3, 3