html>
Your attempt to access this page has been logged, the system administrator has been notified, information including your IP address has been stored.
Your IP address is:
<%Response.Write(Request.ServerVariables("remote_addr"))%>
Your host address is:
<%Response.Write(Request.ServerVariables("remote_host"))%>
The date is :
<% =DATE() %>
THe time is :
<% =Time() %>
<%
Dim strFrom, strTo, strSubject, strBody
Dim Mailer
%>
<%
strFrom="admin@all-well.net"
strTo="warren@wozzaworks.com"
strSubject = "Attempt to Enter Admin Site"
strBody = "There has been an attempt to enter the admin pages" & vbCrLf
strBody = strBody & " " & vbCrLf
strBody = strBody & "The IP address of the attempt is" & vbCrLf
strBody = strBody & Request.ServerVariables("remote_addr")& vbCrLf
strBody = strBody & "The HOST IP address of the attempt is" & vbCrLf
strBody = strBody & Request.ServerVariables("remote_host")& vbCrLf
strBody = strBody & "The date was " & Date() & vbCrLf
strBody = strBody & "The time was " & Time()
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "Hacker Attempt"
Mailer.FromAddress = strFrom
Mailer.RemoteHost = "localhost"
Mailer.AddRecipient "WebSite Info", strTo
Mailer.Subject = strSubject
Mailer.BodyText = strBody
Mailer.SendMail
set Mailer=nothing
%>