Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
<% Dim objError Set objError = Server.GetLastError() Dim bots, foundBot foundBot = false bots = "Googlebot,Slurp,msnbot,bingbot,Mediapartners-Google,YandexBot" bots = Split( bots, ",") For i=0 To UBound(bots) If Instr(1, Request.ServerVariables("HTTP_USER_AGENT"), bots(i) ) Then foundBot = True Exit For End If Next If False=foundBot Then Dim ObjSendMail Set ObjSendMail = CreateObject("CDO.Message")
<% Dim objError Set objError = Server.GetLastError() If objError <> "" then
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.