Salve
ho creato una pagina che simula un CAPTCHA in ASP. questa funziona quasi sempre ma a volte si blocca e da il seguente errore.

Microsoft VBScript runtime error '800a0005'
Invalid procedure call or argument: 'Mid'

Qualcuno sa dov'è l'errore. Era comprensibile se l'errore si presentava sempre ma questa saltuarietà mi sta spiazzando e non so proprio come risolvere.
di seguito posto la pagina


<%@Language = VBScript%>
<%
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()
%>
<div class="info"><b><%=Session("captcha")%></b></div>
<input type="text" name="captcha">