<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
'CHANGE SETTINGS BELOW:
Dim FromEmail, ToEmail, RedirectionURL
FromEmail = "postmaster@vunet.us" 'include your email From address
ToEmail = "vunet@vunet.us" 'include your email To address
RedirectionURL = "http://www.microsoft.com" 'include your redirection URL; leave blank ("") for no redirection
'''''''''''''''''''DO NOT EDIT BELOW THIS LINE''''''''''''''''''''''''''''''
'***************************************************************************
'************** unless you know what you are doing *************************
'***************************************************************************
'***************************************************************************
'***************************************************************************
Dim CDate1, CTime, IPAddress, ServerName, ALL_HTTP, ALL_RAW, APPL_MD_PATH
Dim APPL_PHYSICAL_PATH, AUTH_PASSWORD, AUTH_TYPE, AUTH_USER
Dim CERT_COOKIE, CERT_FLAGS, CERT_ISSUER, CERT_KEYSIZE, CERT_SECRETKEYSIZE
Dim CERT_SERIALNUMBER, CERT_SERVER_ISSUER, CERT_SERVER_SUBJECT, CERT_SUBJECT
Dim CONTENT_LENGTH, HTTPS, HTTPS_KEYSIZE, HTTPS_SECRETKEYSIZE, HTTPS_SERVER_ISSUER
Dim HTTPS_SERVER_SUBJECT, INSTANCE_ID, INSTANCE_META_PATH, LOCAL_ADDR, LOGON_USER
Dim PATH_INFO, PATH_TRANSLATED, QUERY_STRING, REMOTE_ADDR, REMOTE_HOST, REMOTE_USER
Dim REQUEST_METHOD, SCRIPT_NAME, SERVER_PORT, SERVER_PORT_SECURE, SERVER_PROTOCOL
Dim SERVER_SOFTWARE, URL, HTTP_ACCEPT, HTTP_ACCEPT_LANGUAGE, HTTP_CONNECTION, HTTP_HOST
Dim HTTP_USER_AGENT, HTTP_COOKIE, HTTP_ACCEPT_ENCODING, HTTP_REFERER
Dim HTTP_UA_PIXELS, HTTP_UA_COLOR, HTTP_UA_OS, HTTP_UA_CPU
CDate1=Date
CTime=Time
IPAddress = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If IPAddress="" Then
IPAddress = Request.ServerVariables("REMOTE_ADDR")
end if
ServerName = Request.ServerVariables("SERVER_NAME")
All_HTTP = Request.ServerVariables("ALL_HTTP")
All_RAW = Request.ServerVariables("ALL_RAW")
APPL_MD_PATH = Request.ServerVariables("APPL_MD_PATH")
APPL_PHYSICAL_PATH = Request.ServerVariables("APPL_PHYSICAL_PATH")
AUTH_PASSWORD = Request.ServerVariables("AUTH_PASSWORD")
AUTH_TYPE = Request.ServerVariables("AUTH_TYPE")
AUTH_USER = Request.ServerVariables("AUTH_USER")
CERT_COOKIE = Request.ServerVariables("CERT_COOKIE")
CERT_FLAGS = Request.ServerVariables("CERT_FLAGS")
CERT_ISSUER = Request.ServerVariables("CERT_ISSUER")
CERT_KEYSIZE = Request.ServerVariables("CERT_KEYSIZE")
CERT_SECRETKEYSIZE = Request.ServerVariables("CERT_SECRETKEYSIZE")
CERT_SERIALNUMBER = Request.ServerVariables("CERT_SERIALNUMBER")
CERT_SERVER_ISSUER = Request.ServerVariables("CERT_SERVER_ISSUER")
CERT_SERVER_SUBJECT = Request.ServerVariables("CERT_SERVER_SUBJECT")
CERT_SUBJECT = Request.ServerVariables("CERT_SUBJECT")
CONTENT_LENGTH = Request.ServerVariables("CONTENT_LENGTH")
CONTENT_TYPE = Request.ServerVariables("CONTENT_TYPE")
GATEWAY_INTERFACE = Request.ServerVariables("GATEWAY_INTERFACE")
HTTPS = Request.ServerVariables("HTTPS")
HTTPS_KEYSIZE = Request.ServerVariables("HTTPS_KEYSIZE")
HTTPS_SECRETKEYSIZE = Request.ServerVariables("HTTPS_SECRETKEYSIZE")
HTTPS_SERVER_ISSUER = Request.ServerVariables("HTTPS_SERVER_ISSUER")
HTTPS_SERVER_SUBJECT = Request.ServerVariables("HTTPS_SERVER_SUBJECT")
INSTANCE_ID = Request.ServerVariables("INSTANCE_ID")
INSTANCE_META_PATH = Request.ServerVariables("INSTANCE_META_PATH")
LOCAL_ADDR = Request.ServerVariables("LOCAL_ADDR")
LOGON_USER = Request.ServerVariables("LOGON_USER")
PATH_INFO = Request.ServerVariables("PATH_INFO")
PATH_TRANSLATED = Request.ServerVariables("PATH_TRANSLATED")
QUERY_STRING = Request.ServerVariables("QUERY_STRING")
REMOTE_ADDR = Request.ServerVariables("REMOTE_ADDR")
REMOTE_HOST = Request.ServerVariables("REMOTE_HOST")
REMOTE_USER = Request.ServerVariables("REMOTE_USER")
REQUEST_METHOD = Request.ServerVariables("REQUEST_METHOD")
SCRIPT_NAME = Request.ServerVariables("SCRIPT_NAME")
SERVER_PORT = Request.ServerVariables("SERVER_PORT")
SERVER_PORT_SECURE = Request.ServerVariables("SERVER_PORT_SECURE")
SERVER_PROTOCOL = Request.ServerVariables("SERVER_PROTOCOL")
SERVER_SOFTWARE = Request.ServerVariables("SERVER_SOFTWARE")
URL = Request.ServerVariables("URL")
HTTP_ACCEPT = Request.ServerVariables("HTTP_ACCEPT")
HTTP_ACCEPT_LANGUAGE = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")
HTTP_CONNECTION = Request.ServerVariables("HTTP_CONNECTION")
HTTP_HOST = Request.ServerVariables("HTTP_HOST")
HTTP_USER_AGENT = Request.ServerVariables("HTTP_USER_AGENT")
HTTP_COOKIE = Request.ServerVariables("HTTP_COOKIE")
HTTP_ACCEPT_ENCODING = Request.ServerVariables("HTTP_ACCEPT_ENCODING")
HTTP_REFERER = Request.ServerVariables("HTTP_REFERER")
HTTP_UA_PIXELS = Request.ServerVariables("HTTP_UA_PIXELS")
HTTP_UA_COLOR = Request.ServerVariables("HTTP_UA_COLOR")
HTTP_UA_OS = Request.ServerVariables("HTTP_UA_OS")
HTTP_UA_CPU = Request.ServerVariables("HTTP_UA_CPU")
%>
<%
Dim MyBody
Dim MyCDONTSMail
%>
<%
Set MyCDONTSMail = CreateObject("CDO.message")
MyCDONTSMail.From = FromEmail 'Change your from address
MyCDONTSMail.To = ToEmail 'Change your to address
MyCDONT'Mail.BodyFormat = 0 'HTML format, 1 is text format
MyCDONT'Mail.MailFormat = 0 'HTML format
MyCDONTSMail.Importance = 2 'High importance
MyCDONTSMail.Subject="Web Visitor Details"
MyBody = "VU Web Visitor Email" &_
"" &_
"Visitor IP: " & IPAddress & "
" &_
"Server: " & ServerName & "
" &_
"Date: " & CDate1 & " " & CTime & "
" &_
"All HTTP headers sent by the client:
" &_
"
" &_
"All headers in the raw-form:
" &_
"
" &_
"Paths:
" &_
"Metabase Path (APPL_MD_PATH): " & APPL_MD_PATH & "
" &_
"Physical Path corresponding to Metabase Path (APPL_PHYSICAL_PATH): " & APPL_PHYSICAL_PATH & "
" &_
"Authentication:
" &_
"Value Entered in Client's Authentication Dialog (AUTH_PASSWORD): " & AUTH_PASSWORD & "
" &_
"Server's Authentication Method to Validate Users (AUTH_TYPE): " & AUTH_TYPE & "
" &_
"Raw Authenticated User Name (AUTH_USER): " & AUTH_USER & "
" &_
"Certificate:
" &_
"Unique ID For Client Certificate Returned as a String (CERT_COOKIE): " & CERT_COOKIE & "
" &_
"Bit0 = 1 if Client Certificate Is Present, bit1 = 1 if Certifying Authority of Client Certificate Is Invalid (CERT_FLAGS): " & CERT_FLAGS & "
" &_
"Issuer Field of Client Certificate (CERT_ISSUER): " & CERT_ISSUER & "
" &_
"Number of Bits in Secure Sockets Layer Connection Key Size (CERT_KEYSIZE): " & CERT_KEYSIZE & "
" &_
"Number of Bits in Server Certificate Private Key (CERT_SECRETKEYSIZE): " & CERT_SECRETKEYSIZE & "
" &_
"Serial Number Field of Client Certificate (CERT_SERIALNUMBER): " & CERT_SERIALNUMBER & "
" &_
"Issuer Field of Server Certificate (CERT_SERVER_ISSUER): " & CERT_SERVER_ISSUER & "
" &_
"Subject Field of Server Certificate (CERT_SERVER_SUBJECT): " & CERT_SERVER_SUBJECT & "
" &_
"Subject Field of Client Certificate (CERT_SUBJECT): " & CERT_SUBJECT & "
" &_
"Content:
" &_
"Length of Content Header as Sent by Client (CONTENT_LENGTH): " & CONTENT_LENGTH & "
" &_
"Data Type of Content (CONTENT_TYPE): " & CONTENT_TYPE & "
" &_
"Gateway:
" &_
"Revision of CGI Specification Used by Server (GATEWAY_INTERFACE): " & GATEWAY_INTERFACE & "
" &_
"HTTP:
" &_
"Value of Accept Header (HTTP_ACCEPT): " & HTTP_ACCEPT & "
" &_
"Value of Accept Encoding (HTTP_ACCEPT_LANGUAGE): " & HTTP_ACCEPT_LANGUAGE & "
" &_
"Connection Information (HTTP_CONNECTION): " & HTTP_CONNECTION & "
" &_
"Host Information (HTTP_HOST): " & HTTP_HOST & "
" &_
"User's Browser Description (HTTP_USER_AGENT): " & HTTP_USER_AGENT & "
" &_
"Cookie String Included With Request (HTTP_COOKIE): " & HTTP_COOKIE & "
" &_
"Language Used for Displaying Content (HTTP_ACCEPT_ENCODING): " & HTTP_ACCEPT_ENCODING & "
" &_
"Original URL Redirected From (HTTP_REFERER): " & HTTP_REFERER & "
" &_
"User's Screen Resolution (HTTP_UA_PIXELS): " & HTTP_UA_PIXELS & "
" &_
"Color Information (HTTP_UA_COLOR): " & HTTP_UA_COLOR & "
" &_
"User's Operating System (HTTP_UA_OS): " & HTTP_UA_OS & "
" &_
"User's Processor Type (HTTP_UA_CPU): " & HTTP_UA_CPU & "
" &_
"HTTPS:
" &_
"Secure/Non-Secure Channel - ON/OFF (HTTPS): " & HTTPS & "
" &_
"Number of Bits in Secure Sockets Layer (SSL) Connection Key Size (HTTPS_KEYSIZE): " & HTTPS_KEYSIZE & "
" &_
"Number of Bits in Server Certificate Private Key (HTTPS_SECRETKEYSIZE): " & HTTPS_SECRETKEYSIZE & "
" &_
"Issuer Field of Server Certificate (HTTPS_SERVER_ISSUER): " & HTTPS_SERVER_ISSUER & "
" &_
"Subject Field of Server Certificate (HTTPS_SERVER_SUBJECT): " & HTTPS_SERVER_SUBJECT & "
" &_
"Instance:
" &_
"ID for Internet Information Server (IIS) Instance in Text Format (INSTANCE_ID): " & INSTANCE_ID & "
" &_
"Metabase Path for Instance of Internet Information Server (IIS) that Responds to Request (INSTANCE_META_PATH): " & INSTANCE_META_PATH & "
" &_
"Local Address:
" &_
"Server Address on Which the Request Came In (LOCAL_ADDR): " & LOCAL_ADDR & "
" &_
"User:
" &_
"Windows Account that User is Logged Into (LOGON_USER): " & LOGON_USER & "
" &_
"Paths:
" &_
"Extra Path Information as Given by Client (PATH_INFO): " & PATH_INFO & "
" &_
"Translated Version of PATH_INFO that Takes Path and Performs any Necessary Virtual-to-Physical Mapping (PATH_TRANSLATED): " & PATH_TRANSLATED & "
" &_
"Query String:
" &_
"Query Information Stored in the String Following ? sign in HTTP request (QUERY_STRING): " & QUERY_STRING & "
" &_
"Remote:
" &_
"IP Address of Remote Host Making the Request (REMOTE_ADDR): " & REMOTE_ADDR & "
" &_
"Name of Host Making the Request (REMOTE_HOST): " & REMOTE_HOST & "
" &_
"Unmapped User-Name String Sent in by User (REMOTE_USER): " & REMOTE_USER & "
" &_
"Method Used to Make Request (REQUEST_METHOD): " & REQUEST_METHOD & "
" &_
"Script Name:
" &_
"Virtual Path to Calling Script (SCRIPT_NAME): " & SCRIPT_NAME & "
" &_
"Server Info:
" &_
"Port Number to Which Request Was Sent (SERVER_PORT): " & SERVER_PORT & "
" &_
"Secure Port = 1, Not Secure = 0 (SERVER_PORT_SECURE): " & SERVER_PORT_SECURE & "
" &_
"Name and Revision of Request Information Protocol (SERVER_PROTOCOL): " & SERVER_PROTOCOL & "
" &_
"Name and Version of Server Software that Answers Request and Runs Gateway (SERVER_SOFTWARE): " & SERVER_SOFTWARE & "
" &_
"URL:
" &_
"Base Portion of URL (URL): " & URL & "
" &_
"" &_
""
MyCDONTSMail.TextBody = MyBody
MyCDONTSMail.Send
set MyCDONTSMail=nothing
%>
<%
response.write "Email has been sent..."
If RedirectionURL <> "" Then
response.Redirect(RedirectionURL)
End If
%>