Proba con la siguiete rutina a ver si te funciona como vos queres. Lo mas importante en esta rutina es indicarle en donde esta el comenario si queres poner punto o coma decimal.
ej:
Del lado sel Servidor
<%
MiImporte = 150000
'________________________________________________________Function FormatearImporte(Valor)
Dim Aux
Dim SeparadorDecimales
SeparadorDecimales = "." 'Si se quiere Punto o Coma decimal, el contrario va como miles
If Len(Valor) <> 0 Then
Valor = Replace(Valor, ",", ".")
Aux = FormatNumber(Valor, 2)
If Mid(Right(Aux, 3), 1, 1) = SeparadorDecimales Then
FormatearImporte = Aux
Else
Aux = Replace(Aux, ".", ";")
Aux = Replace(Aux, ",", ".")
Aux = Replace(Aux, ";", ",")
FormatearImporte = Aux
End If
Else
FormatearImporte = "0,00"
End If
End Function
%>
En HTML
Muestre mi Importe <%=FormatearImporte(MiImporte)%>
PD. Avisame si te funciono