Parte entera y parte decimal en single.

[u_goldman]

No lo he probado, pero se me ocurre algo así tratados como strings:

<%
Function separaEntero(numero)
mi_entero= cstr(numero)
pos= instr(mi_entero, ".")
mi_entero= left(mi_entero, pos)
separaEntero= mi_entero
End Function

Function separaDecimal(numero)
mi_decimal=cstr(numero)
pos= len(numero) - instr(mi_decimal, ".")
mi_decimal= right(mi_decimal, pos)
separaDecimal= mi_decimal
End Function
%>

<%
mi_numero= 2.5698
entero= separaEntero(mi_numero)
decim= separaDecimal(mi_numero)

Response.Write("Este es el entero: " & entero & "<br>" & "Este es el decimal: " & decim)
%>

Salu2,