Errore di logica, forse ciclo infinito?

[tony83]

Ciao scusate ho la pagina utenti.asp che è lentissima e non funziona non riesco a capire da che cosa possa dipendere!!

Questo è il codice che qualcuno riesce a capire il problema ne sarei molto grato, visto che il codice non sembra avere errori!

<% Option  Explicit %>
<%
On Error resume Next
dim utente
utente = ""
dim password
password = ""
if Session ("sssUtente") = utente or Session("sssPassword") = password then 
response.redirect("password.asp?errore=1")
end if

' creare connessione
set connessione = Server.createObject ("ADODB.connection")

'aprire connessione
connessione.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("../mdb-database/utenti.mdb")

'creare recordset
set rs = Server.CreateObject("ADODB.recordset")

'creo la query e invio comando sql
query = "select * from utenti"
 
'configurare
rs.ActiveConnection = connessione
rs.open query

do while not rs.eof
response.write("ID "&rs.field("ID"))
response.write("
")
response.write("USERNAME "&rs.field("username"))
response.write("
")
response.write("

")
response.write("PASSWORD " &rs.field("password")) 
rs.movenext
loop
rs.close
connessione.close
set rs =nothing
set connessione=nothing

if err.Number <> 0 then
response.write("Probabile errore o malfunzionamento, verificare sul server!")
end if 
%>
<div aling="center">
<input type="submit" onclick="window.location.href='pippo.asp'"
</div>

[santino83]

prova a mettere

 dim rs,connessione

dopo il controllo della username e della password

oppure prova a togliere On error resume next e vedi se ti esce fuori un errore


a mio parere (ma non sono un esperto) option explicit te lo puoi anche risparmiare

[tony83]

a mio parere invece lo 6 (esperto) perchè sei riuscito a sbloccarmi la situazione... mi chiedo da che cosa possa dipendere!


ovviamente ora è uscito come da te previsto questo errore!

Errore di run-time di Microsoft VBScript error '800a01f4' 

Variabile non definita: 'query' 

/password/utenti.asp, line 24

[santino83]

allora,

option explicit vuol dire che DEVI DICHIARARE OGNI VARIABILE CHE USI nella pagina, quindi

'creo la query e invio comando sql
query = "select * from utenti"

diventa

'creo la query e invio comando sql
dim query
query = "select * from utenti"

e così via se ci sono variabili non definite.

[tony83]

Originariamente inviato da santino83
allora,

option explicit vuol dire che DEVI DICHIARARE OGNI VARIABILE CHE USI nella pagina, quindi

'creo la query e invio comando sql
query = "select * from utenti"

diventa

'creo la query e invio comando sql
dim query
query = "select * from utenti"

e così via se ci sono variabili non definite.

si si quello già lo sapevo ho già tolto l'errore.cmq Option Explicit può essere comodo nel caso per esempio in un codice abbastanza lungo, in un algoritmo uso la variabile pippo,mettiamo caso che invece pippo scrivo ippo, si verifica il classico errore di logica che poi a trovarlo.... per questo preferisco inserire sempre option explicit gli errori di sintassi sono sempre più facili da intercettare e in ogni caso credo che le variabili è sempre meglio dichiararle!!!

mi chiedo quale sia l'errore che ha provocato quel rallentamento o quel ciclo infinito?

[tony83]

aspetta....

un'altro errore questa volta di sintassi su questo codice:

do while rs.eof
response.write("ID "&rs.field("ID")) 
response.write("
")
response.write("USERNAME "&rs.field("username"))
response.write("
")
response.write("

")
response.write("PASSWORD " &rs.field("password")) 
rs.movenext
loop

problema:

errore

Errore di run-time di Microsoft VBScript error '800a01b6'

Proprietà o metodo non supportati dall'oggetto: 'field'

/password/utenti.asp, line 31

mentre per l'altro discorso volevo chiederti appunto quale poteva essere il problema per il ciclo infinito!!

[tony83]

up