Problemi saltuari con Mid

[alexba64]

Ho questa porzione di codice che utilizzo per generare un captcha

<%
    Function CAPTCHA()
        Dim caratteri, codice
        caratteri = ""
        caratteri = caratteri & "0123456789"
        caratteri = caratteri & "abcdefghijklmnopqrstuvwxyz"
        caratteri = caratteri & "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
        Randomize()
        Do Until Len(codice) = 7
            carattere = Int((Len(caratteri) * Rnd()))
            codice = codice & Mid(caratteri, carattere, 1)
        Loop
        CAPTCHA = codice
    End Function
    Session("captcha") = CAPTCHA()
%>

Saltuariamente, mi restituisce il seguente errore:

Errore di run-time di Microsoft VBScript (0x800A0005)
Chiamata di routine o argomento non validi: 'Mid'
pagina.asp, line 31

dove alla linea 31 ho questo:

codice = codice & Mid(caratteri, carattere, 1)

Perchè una volta ogni tanto e non sempre

[Roby_72]

Attiva l'on error e fatti stampare a video quelle due variabili...
Quando si verifica l'errore controlla il loro valore.

Roby

[alexba64]

ti riferisci a "carattere" e "caratteri" ?

Nulla, non mi stampa a video assolutamente nulla ma se attivo on error l'errore non si presenta più ovvimente e tutto funziona normalmente.

Se stampo a video:

<%=captcha%>


<%=Session("captcha")%>

facendo il reload ripetutamente, ogni tanto la prima risulta vuota a differenza della session che è sempre popolata

[Roby_72]

Devi usare iff err <> 0....

Roby

[alexba64]

Cioè ?

Perdona la mia mancanza ma in che modo lo dovrei fare ?

[Roby_72]

if err<>0 then
response.write("Qui stampo i valori delle due variabili")
end if

Roby

[alexba64]

ah, ok allora,

<%
if err <> 0 then
%>

<%=caratteri%>

<%=carattere%>

<%=captcha%>

<%=Session("captcha")%>

<% end if %>

non stampa nulla, vuoto assoluto !

[Roby_72]

Ma l'on error l'hai messo???

Roby

[alexba64]

parli di On Error Resume Next ?

certo all'inizio del codice, sbaglio ?

<%
On Error Resume Next

    Function CAPTCHA()
        Dim caratteri, codice
        caratteri = ""
        caratteri = caratteri & "0123456789"
        caratteri = caratteri & "abcdefghijklmnopqrstuvwxyz"
        caratteri = caratteri & "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
        Randomize()
        Do Until Len(codice) = 7
            carattere = Int((Len(caratteri) * Rnd()))
            codice = codice & Mid(caratteri, carattere, 1)
        Loop
        CAPTCHA = codice
    End Function
    Session("captcha") = CAPTCHA()
%>

<%
if err <> 0 then
%>

<%=caratteri%>

<%=carattere%>

<%=captcha%>

<%=Session("captcha")%>

<% end if %>

[Roby_72]

Tutto nella function devi mettere...

Roby