len > 0

Hej!

jeg får denne her fejl:
Microsoft VBScript runtime error '800a000d'

Type mismatch: '[string: " "]'

Det skyldes at jeg ikke indtaste noget i et felt. Mit spørgsmål er så:
hvordan tager man i et felt højde for at man både skal kunne indtaste et tal, men også skal kunne lade være med at udfylde feltet?

mit kode er her: (jeg tager value fra et hidden field der starter med "01_item" og udskriver hvis der er skrevet i et felt der hedder "01_amout").

denne her linier fejler:

If Request.Form.item(frmItem) > 0

--------------------------------------------------------
for each frmItem in Request.Form
    if frmItem <> "navn" and frmItem <> "email" and frmItem <> "adresse" and frmItem <> "postnr" and frmItem <> "by" and frmItem <> "action" then
        If LCase(mid(Request.Form.Key(frmItem),4)) = "amount" then
            If isnumeric(left(Request.Form.Key(frmItem),2)) then
                If Request.Form.item(frmItem) > 0 then

szElements = szElements & "  - " & Request.Form.item(frmItem) & " x " & Request.Form(left(Request.Form.Key(frmItem),2)& "_item") & "<br><br>" & vbCrLf
                end if
            end if   
        end if
    end if
next
-------------------------------------------------------