Problemi saltuari con Mid

[alexba64]

Originariamente inviato da Roby_72
Tutto nella function devi mettere...

Roby

ah, perfetto, ora mi è tutto più chiaro...

Non ho capito

[Roby_72]

DENTRO LA Function CAPTCHA()

[alexba64]

<%
        Function CAPTCHA()
		On Error Resume Next
        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

        if err <> 0 then
		response.write(caratteri) & "
" & response.write(carattere) 
        end if
		End Function
        Session("captcha") = CAPTCHA()
%>

cosi ?

Non penso perchè continua a non stamparmi nulla.

[Roby_72]

if err.Number <> 0 then

[alexba64]

fiuttt !!! ce l'abbiamo fatta

80123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLM NOPQRSTUVWXYZ

questo una volta si, una volta no

[Roby_72]

Lo devi mettere dentro al LOOP e subito dopo
err.clear
response.end

Roby

[alexba64]

Allora:

<%
        Function CAPTCHA()
        On Error Resume Next
        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)
			
       if err.Number <> 0 then
       response.write(caratteri) & " 
 " & response.write(carattere) 
        end if
		
        Loop
		
        err.clear
        response.end
		
       CAPTCHA = codice
		
       End Function
		
       Session("captcha") = CAPTCHA()
%>

na volta si, na volta o due no:

00123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLM NOPQRSTUVWXYZ
100123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKL MNOPQRSTUVWXYZ
50123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLM NOPQRSTUVWXYZ
220123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKL MNOPQRSTUVWXYZ
540123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKL MNOPQRSTUVWXYZ

[Roby_72]

if err.Number <> 0 then
response.write(caratteri) & "
" & response.write(carattere)
err.clear
response.end
end if


ROby

[alexba64]

<%
        Function CAPTCHA()
       On Error Resume Next
        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)
			
        if err.Number <> 0 then
        response.write(caratteri) & " 
 " & response.write(carattere) 
        err.clear
        response.end
        end if
		
        Loop
		
       CAPTCHA = codice
		
        End Function
		
        Session("captcha") = CAPTCHA()
%>

ora:

00123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLM NOPQRSTUVWXYZ

ma dopo un refresh: nada de nada, se insisto:

00123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLM NOPQRSTUVWXYZ

e via dicendo

[Roby_72]

Prova con Randomize(timer)

Roby