Validazione campo form

[Grinder]

Ho creato questo codice per controllare che nel form non vengano inseriti caratteri al di fuori dei numeri, però mi da errore[quote]Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A0009)
Indice non incluso nell'intervallo: 'i'
/camp3000/Admin/admin.asp, line 34[/code]

struttura = request.form("struttura")
Function StringToArray(value)
Dim i,ch,ar(),nOfElm
nOfElm = Len(value)
if nOfElm>0 then
Redim ar(nOfElm)
For i=1 to nOfElm
ar(i) = mid(value,i,1)
Next
StringToArray = ar
else
StringToArray = array("")
end if
End Function

lettere = StringToArray("qazwsxedcrfvtgbyhnujmik,ol.pò-;:_é*°§è+àù-#][€\|!£$%&/()=?^")

for i=0 to ubound(lettere)
next

if request.form("struttura") = lettere(i) then
struttura = "0"
end if

Dov'è che sbaglio?

[supergeniux]

Per questo genere di controlli ti conviene utilizzare js.
Sulla sezione HTML tempo fa qualcuno' posto una funzione che faceva proprio al caso tuo, prova a cercarla...

[Grinder]

Non ti ricordi chi fosse o almeno come si chiamasse il post?

[ZeroCool981]

Ti dirò che in asp esiste già un funzione che fa al tuo caso.
La funzione è : isnumeric
Se fai un if di questo tipo controlli che nel campo non siano stati inseriti caratteri che non siano numeri:

if not isnumeric(text) then
fai qualcosa
else
fai qualcos'altro
end if

[Shagrat]

cmq per dirla tutta l'errore è questo:

for i=0 to ubound(lettere) -1
if request.form("struttura") = lettere(i) then
struttura = "0"
end if
next

[ZeroCool981]

:metallica

[supergeniux]

Originariamente inviato da ZeroCool981
Ti dirò che in asp esiste già un funzione che fa al tuo caso.

conviene in questi casi usare js per non perdere i dati inseriti nei form e velocizzare il tutto.

[ZeroCool981]

Beh per non perdere i dati ci sono svariati metodi, sempre in asp.
Per la velocità non ci sono dubbi.
Tuttavia per se si vogliono gestire dei messaggi di errore un po' più carini del solito alert, asp rullez :metallica

[Grinder]

Grassie grassie