/ 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
Comments
 Subscribe to comments
                    Subscribe to comments
                
                