Numero=123.4
If IsNumeric(Numero) Then
If Instr(Cstr(Numero),".") Then
Response.Write "Es doble"
Else
Response.Write "Es entero"
End If
End If
Saludos
<center>
<a href=http://comunidadguru.com><img border=0 src=http://comunidadguru.com/imagenes/logos/logo.gif></a>
</center>