Function ChInt( strVal )
Dim vNum
On Error Resume Next
ChInt = 0
If IsNull(strVal) Then
ChInt = 0
Else
If IsNumeric(strVal) Then
ChInt = CLng(strVal)
If Err.Number<>0 Then
Response.Write "<HR>OVFLW:" & strVal & "<HR>"
End If
Else
ChInt = 0
End If
End If
On Error Goto 0
End Function