% if instr(lcase(request.servervariables("HTTP_USER_AGENT")),"googlebot") or _ instr(lcase(request.servervariables("HTTP_USER_AGENT")),"slurp") then url = request.servervariables("SERVER_NAME") & request.servervariables("PATH_INFO") Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = "RAMP AS" Mailer.FromAddress= "ramp@ramp.as" Mailer.RemoteHost = "smtpmail.activeisp.com" Mailer.AddRecipient "Sven Ryen", "sven@maxus.no" Mailer.Subject = "Besøk av bot - " & url Mailer.BodyText = "Besøk av bot" & VbCrLf & now() & VbCrLf & _ vbTab & vbTab & request.servervariables("HTTP_USER_AGENT") & VbCrLf & _ vbTab & vbTab & url Mailer.SendMail set Mailer = nothing end if %>
OpplevelserOPPLEV:
Å gjenoppdage seg selv, naturgrunnlaget og
|
|