Source Code
<%
Function IsPhone(X)
Dim FieldOk
FieldOk=True
For i = 1 to len(X)
If IsNumeric(mid(X, i, 1))=False AND mid(X,i,1)<>"-" AND mid(X,i,1)<>"(" AND mid
(X,i,1)<>")" then
FieldOk=False
End If
Next
\'\'\'\'NOW STRIP OUT CHARS AND SEE IF WE HAVE A VALID NUMBER

For I = 1 To Len(X)
strCurrentChar = Mid(X, I, 1)
\' Numbers (0 to 9)
If Asc("0") <= Asc(strCurrentChar) And Asc(strCurrentChar) <= Asc("9") Then
strTemp = strTemp & strCurrentChar
End If
\' Upper Case Chars (A to Z)
If Asc("A") <= Asc(strCurrentChar) And Asc(strCurrentChar) <= Asc("Z") Then
strTemp = strTemp & strCurrentChar
End If
Next \'I
X=strTemp


if len(X)=10 AND Left(X,1)="1" then
FieldOk=False
end if

if len(X)<10 then
FieldOk=False
end if

if len(X)>11 then
FieldOk=False
end if

IsPhone=FieldOk
End Function
%>