Support Analyzing return any numeric type data: Function GetNumType (sVal) Dim sTypeIf Not IsNumeric (sVal) Then GetNumType = "Unknow" Exit FunctionEnd IfExecute "sType = TypeName (" & sVal & ")" GetNumType = sTypeEnd Function Test: Response.Write GetNumType ( "9999") 'returns: IntegerResponse.Write GetNumType ( "999999999")' returns: LongResponse.Write GetNumType ( "99999999999999") 'returns: DoubleResponse.Write GetNumType ( "asdfasd")' returns: Unknow
