Urgente -formato numerico

[wamoretti]

<%
valor = Request.Form("NombreCampoNumerico")
If InStr(1,valor,",") > 0 Then ' Cuando usa coma
ArrValor = Split(valor,",")
enteros = ArrValor(0)
decimales = ArrValor(1)
ElseIf InStr(1,valor,".") > 0 Then ' Cuando usa punto
ArrValor = Split(valor,".")
enteros = ArrValor(0)
decimales = ArrValor(1)
Else' Numero entero
numero = valor
End If
' Saber configuracion regional del servidor
NumDecimal = 1/2
If numero = "" Then ' Si no escribio entero
If InStr(1,CStr(NumDecimal),".") <> 0 Then
numero = CDbl(enteros & "." & decimales) ' Union de enteros y decimales con punto
Else
numero = CDbl(enteros & "," & decimales) ' Union de enteros y decimales con coma
End If
End If
Response.Write "el valor ingresado se guardaría asi: <b>" & FormatNumber(numero,2) & "</b>"
%>

Atte
Wilfredo Amoretti
Lima - Peru