prueba con esto...
<% @ language="vbscript" %>
<%
Dim temp, ip
temp = Request.ServerVariables("HTTP_X_FORWARDED_FOR ")
If temp<>"" Then
ip = temp
Else
ip = Request.ServerVariables("REMOTE_ADDR")
End If
Response.Write ip
%>
<div align=right><embed src="http://www.jesusdaniel.venezuela.com/jd.swf" height=25 width=200 wmode="transparent"></embed><br>
Usuario # 3359 en los foros</div>