Comparaciones con CInt()

[Myakire]

Podrías usar una función genérica. Aquí te pongo algo rápido:

Código:

<%
Function SonIguales(A,B)
   If VarType(A) <> VarType(B) Then
      SonIguales = False
   Else
      Select Case VarType(A)
        Case 0,1       
	     SonIguales = True                   'Empty, Null
	Case 2,3,4,5,6 
	     SonIguales = CDbl(A)=CDbl(B)        'Numericos
	Case 7
	     SonIguales = CDate(A) = CDate(B)    'Fechas
	Case 8 
	     SonIguales = CStr(A) = CStr(B)      'String
	Case 11 
	     SonIguales = CBool(A) = CBool(B)    'Boolean
	End Select
   End If
End Function

Response.Write SonIGuales(5,5) & "<br>" 
Response.Write SonIGuales(5.65,5.65) & "<br>" 
Response.Write SonIGuales(Date,Date) & "<br>" 
Response.Write SonIGuales("5","5") & "<br>" 
Response.Write SonIGuales(true,true) & "<br>" 

Response.Write SonIGuales(5,6) & "<br>" 
Response.Write SonIGuales(5.65,5.5) & "<br>" 
Response.Write SonIGuales(Date,Time) & "<br>" 
Response.Write SonIGuales("5",6) & "<br>" 
Response.Write SonIGuales(true,false) & "<br>" 
%>