Problema con Sub e variabile

[Mizushi]

Ciao.

Ho la seguente sub:

sub listaGuasti(cn, byRef listaGuastiOutput)

    SQL = "SELECT "
    SQL = SQL & " COUNT(*) AS tot "
    SQL = SQL & " FROM "
    SQL = SQL & " tbl "
    SQL = SQL & " GROUP BY DATA "
    SQL = SQL & " ORDER BY DATA asc"  
                
	set rs = createObject("ADODB.Recordset")
	rs.open SQL, cn

if not rs.eof then
        If CINT(rs("tot")) = 4 then	
                strVariabile = 0           		
                listaGuastiOutput = rs.getrows()
           else
                strVariabile = 1
                listaGuastiOutput = rs.getrows()		               
        end if
end if

	rs.close
	set rs = nothing
	
end sub

Perchè se in qualunque posizione della pagina asp che contiene la sub, scrivo:

response.write strVariabile

La variabile sembra vuota cioè non valorizzata?

Grazie

[Roby_72]

Se la stampi dentro la sub la stampa?

Roby

[Mizushi]

Originariamente inviato da Roby_72
Se la stampi dentro la sub la stampa?

Roby

No, nemmeno così:

sub listaGuasti(cn, byRef listaGuastiOutput)

    SQL = "SELECT "
    SQL = SQL & " COUNT(*) AS tot "
    SQL = SQL & " FROM "
    SQL = SQL & " tbl "
    SQL = SQL & " GROUP BY DATA "
    SQL = SQL & " ORDER BY DATA asc"  
                
	set rs = createObject("ADODB.Recordset")
	rs.open SQL, cn

if not rs.eof then
        If CINT(rs("tot")) = 4 then	
                strVariabile = 0           		
                listaGuastiOutput = rs.getrows()
           else
                strVariabile = 1
                listaGuastiOutput = rs.getrows()		               
        end if
end if

             response.write strVariabile

	rs.close
	set rs = nothing
	
end sub

[Roby_72]

Ma il conteggio dei record funziona?
Dentro l'IF ci entra?

Roby

[optime]

dichiara la variabile fuori (prima) dalla sub

[Mizushi]

Originariamente inviato da Roby_72
Ma il conteggio dei record funziona?
Dentro l'IF ci entra?

Roby

Si.

Il problema è quando racchiudo la query dentro la sub... senza sub tutto va bene... non capisco che differenza c'è...

[optime]

Originariamente inviato da Mizushi
Si.

Il problema è quando racchiudo la query dentro la sub... senza sub tutto va bene... non capisco che differenza c'è...

mizzi mizzi, la differenza c'è:


in questo caso

sub ciccia()
   peso=10
end sub

la variabile peso vive solo dentro la sub (è una questione di ottimizzazione, se ci pensi è giusto che sia così)

in quest'altro caso

dim peso

sub ciccia()
   peso=10
end sub

la variabile peso vive dentro la pagina (oltre che nella sub)

in tutti e due i casi usare la variabile peso fuori dalla sub è un errore dal punto di vista della corretta programmazione

[Mizushi]

Non so se ho capito bene, ma anche così non stampa nulla:

Dim strVariabile

sub listaGuasti(cn, byRef listaGuastiOutput)

    SQL = "SELECT "
    SQL = SQL & " COUNT(*) AS tot "
    SQL = SQL & " FROM "
    SQL = SQL & " tbl "
    SQL = SQL & " GROUP BY DATA "
    SQL = SQL & " ORDER BY DATA asc"  
                
	set rs = createObject("ADODB.Recordset")
	rs.open SQL, cn

if not rs.eof then
        If CINT(rs("tot")) = 4 then	
                strVariabile = 0           		
                listaGuastiOutput = rs.getrows()
           else
                strVariabile = 1
                listaGuastiOutput = rs.getrows()		               
        end if
end if

             response.write strVariabile

	rs.close
	set rs = nothing
	
end sub

[optime]

dentro la sub, subito dopo

sub listaGuasti(cn, byRef listaGuastiOutput)

aggiungi

strVariabile = -99

e prova

[Mizushi]

Originariamente inviato da optime
dentro la sub, subito dopo

sub listaGuasti(cn, byRef listaGuastiOutput)

aggiungi

strVariabile = -99

e prova

Niente, non stampa niente.