ASP string conversion to plastic, double precision, Boolean _ Application Tips

Rem converts strings to shaping data
function Tointeger (str,num)
Str=trim (str)
If str= "" or not IsNumeric (str) Then
Tointeger=num
Else
TOINTEGER=CLNG (str)
End If
End Function

Rem converts a string to a double-precision type of data
function ToDouble (str)
Str=trim (str)
If str= "" or not IsNumeric (str) Then
todouble=0.0
Else
Todouble=cdbl (str)
End If
End Function

Rem converts a string to Boolean data
function ToBoolean (str)
Str=lcase (Trim (str))
If str= "true" or str= "T" then
Toboolean=true
ElseIf isnumeric (str) Then
If CLng (str) <>0 then toboolean=true
Else
Toboolean=false
End If
End Function