validation logic help

[matrixxx]

Hello,

the following validation is giving me problems when it checks for the number of numbers entered in the phone field. The script checks first to see if the field is not empty, then checks to make sure its numeric. both seem to work fine. the next if statement checks to make that there is at least 10 numbers. which i can't get to work. what I am trying to achieve is to generate an error if less then 10 numbers are in the field. the max length is controled by the input form.

Sub Check_Phone(fvalue,dname)
If (fvalue) = "" then
ErrCount=ErrCount+1
AddErr(Cstr(ErrCount) + ". "+ dname+ " cannot be empty&quot
else

If IsNumeric(Trim(fvalue))=False Then
ErrCount=ErrCount+1
AddErr(CStr(ErrCount) + ". " + dname + " is not a valid Number&quot
else

if len(fvalue) < 10 then
ErrCount=Errcount+1
AddErr(CStr(ErrCount) + &quot;. &quot; + dname + &quot;doesn't appear to be a valid phone no.&quot

End IF
End If
End If
End Sub


any help or recommendations would be appreciated

 

[rac2]

Could it be that VBScript has determined that fvalue is a number? If so, maybe explicit typing will solve the problem.

len(CStr(fvalue))

Just an idea.

 

[matrixxx]

when i input a value(1234) it doesn't appear to work. the strange part is, when i return to the input page there is an error that the phone no. doesn't appear to be a valid number. my script is suppose to maintain the values and let the user resubmit. but it submitted, so the fields were empty. this is so strange. it only started doing this after i added the 3rd if statement.