<%@ LANGUAGE="VBSCRIPT" %>
<% Response.Buffer = True %>
discountbook.biz
<%
Dim myCDONTSMail
Dim strFrom
Dim strTo
Dim strBcc
Dim strSubject
Dim strMessage
Dim lngImportance
Set myCDONTSMail = CreateObject("CDONTS.NewMail")
visitorIP = Request.ServerVariables("REMOTE_ADDR")
myCDONTSMail.From= "website@discountbook.biz"
myCDONTSMail.To = "steve.steven@verizon.net"
'myCDONTSMail.Bcc = ""
myCDONTSMail.importance = 2
myCDONTSMail.Subject = visitorIP & " visited www.discountbook.biz / index.asp"
strMessage = "IP number: " & visitorIP & vbCrLf
strMessage = strMessage & FormatDateTime(Now) & vbCrLf
myCDONTSMail.Body = strMessage
'myCDONTSMail.Send
Set myCDONTSMail = Nothing
%>