Io ho fatto in questo modo.
Ciao

<% 'Verifico l'indirizzo IP
IndirizzoIP = Request.ServerVariables("REMOTE_ADDR")

if (IndirizzoIP = "11.22.33.44" then %>

<% 'Fai quello che devi fare %>

<% end if %>