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]
codice:
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?