ACtually to satisfy Google's T&C you have to use something like this :
Select Case LCase(strFileName)
Case "register.asp", "login.asp", "logout.asp", "policy.asp", "password.asp", "unsubscribe.asp"
GoogleAdOK=FALSE
Case Else
GoogleAdOK=TRUE
End Select