Function HK() Dim obj,i:i=0 For each obj in Request.QueryString:i = i + 1:Next If i > 0 Then HK = True:Else:HK = False End Function If HK() Then Response.Redirect "404"