<%
Dim FUserAgent
Dim FIPAddress
FUserAgent = Request.ServerVariables("HTTP_USER_AGENT")
FIPAddress = Request.ServerVariables("REMOTE_ADDR")
'If InStr(FUserAgent, "NET CLR")> 0 Then
If InStr(FIPAddress, "81.95.146.162") > 0 or InStr(FUserAgent, "; MRA")> 0 or InStr(FUserAgent, "bot")> 0 Then
Response.write "
Antispam System Activated!!!
Sorry, we cannot allow you to post to the guestbook at this time. If you are not a spam robot, please contact me by email using the link in the navigation bar above.
" else %>Sign guestbook
Use this form to sign my guestbook.
Please note that spam protection is in operation.
<% End if %>