<% Dim Agente,Cerca Agente=Request.ServerVariables("HTTP_USER_AGENT") Cerca="Ruggi" If (InStr(1,Agente,Cerca,1)=0) then ' Se NON trova Ruggi Response.Redirect("http://www.maggiolieditore.it") Else Response.Write("Il sito si è spostato in http://www.maggiolieditore.it aggiortate i vs. bookmark!") Response.End End if %>