/ Published in: ASP
Expand |
Embed | Plain Text
Copy this code and paste it in your HTML
function numerico(ByVal numero) dim codigo if isnumeric(numero) Then codigo = clng(0&abs(numero)) Else codigo = 0 End If numerico = codigo end function