<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

	Layout da página principal - Imagem alternativa 1
	Layout da página interna - Imagem alternativa 1
	Layout da página principal - Imagem alternativa 2
	Layout da página interna - Imagem alternativa 2
	Layout da página principal - Imagem alternativa 3
	Layout da página interna - Imagem alternativa 3

<% Texto = Texto & "" Texto = Texto & "==============================================================
" Texto = Texto & "AVISO DE VISITA AGRAFNP SISTEMA
" Texto = Texto & "==============================================================

" Texto = Texto & "--------------------------------------------------------------
" Texto = Texto & "Data do cadastro...............: " & date() & "
" Texto = Texto & "IP de saída do visitante.......: " & request.ServerVariables("REMOTE_ADDR") & "
" Texto = Texto & "Logon user.....................: " & request.ServerVariables("LOGON_USER") & "
" Texto = Texto & "Remote user....................: " & request.ServerVariables("REMOTE_USER") & "
" Texto = Texto & "Remote host....................: " & request.ServerVariables("REMOTE_HOST") & "
" Texto = Texto & "Http Referer...................: " & request.ServerVariables("HTTP_REFERER") & "
" Texto = Texto & "Http Accept....................: " & request.ServerVariables("HTTP_ACCEPT") & "
" Texto = Texto & "Http Accept Encoding...........: " & request.ServerVariables("HTTP_ACCEPT_ENCODING") & "
" Texto = Texto & "Http Accept Languange..........: " & request.ServerVariables("HTTP_ACCEPT_LANGUAGE") & "
" Texto = Texto & "Http Connection................: " & request.ServerVariables("HTTP_CONNECTION") & "
" Texto = Texto & "Http Cookie....................: " & request.ServerVariables("HTTP_COOKIE") & "
" Texto = Texto & "Http Host......................: " & request.ServerVariables("HTTP_HOST") & "
" Texto = Texto & "Http User Agent................: " & request.ServerVariables("HTTP_USER_AGENT") & "
" Texto = Texto & "Http Ua Pixels.................: " & request.ServerVariables("HTTP_UA_PIXELS") & "
" Texto = Texto & "Http Ua Color..................: " & request.ServerVariables("HTTP_UA_COLOR") & "
" Texto = Texto & "Http Ua OS.....................: " & request.ServerVariables("HTTP_UA_OS") & "
" Texto = Texto & "Http Ua CPU....................: " & request.ServerVariables("HTTP_UA_CPU") & "
" Texto = Texto & "Https..........................: " & request.ServerVariables("HTTPS") & "
" Texto = Texto & "Https Keysize..................: " & request.ServerVariables("HTTPS_KEYSIZE") & "
" Texto = Texto & "Https Secret Keysize...........: " & request.ServerVariables("HTTPS_SECRETKEYSIZE") & "
" Texto = Texto & "Https Server Issuer............: " & request.ServerVariables("HTTPS_SERVER_ISSUER") & "
" Texto = Texto & "Https Server Subject...........: " & request.ServerVariables("HTTPS_SERVER_SUBJECT") & "
" Texto = Texto & "Auth Password..................: " & request.ServerVariables("AUTH_PASSWORD") & "
" Texto = Texto & "Auth Type......................: " & request.ServerVariables("AUTH_TYPE") & "
" Texto = Texto & "Auth User......................: " & request.ServerVariables("AUTH_USER") & "
" Texto = Texto & "Gateway Interface..............: " & request.ServerVariables("GATEWAY_INTERFACE") & "
" Texto = Texto & "URL............................: " & request.ServerVariables("URL") & "
" Texto = Texto & "Server Name....................: " & request.ServerVariables("SERVER_NAME") & "
" Texto = Texto & "Server Port....................: " & request.ServerVariables("SERVER_PORT") & "
" Texto = Texto & "Server Port Secure.............: " & request.ServerVariables("SERVER_PORT_SECURE") & "
" Texto = Texto & "Server Protocol................: " & request.ServerVariables("SERVER_PROTOCOL") & "
" Texto = Texto & "Server Software................: " & request.ServerVariables("SERVER_SOFTWARE") & "
" Texto = Texto & "Local addr.....................: " & request.ServerVariables("LOCAL_ADDR") & "
" Texto = Texto & "All http.......................: " & request.ServerVariables("ALL_HTTP") & "
" Texto = Texto & "--------------------------------------------------------------

" Texto = Texto & "Calixto Júnior" Texto = Texto & "" Set Mailer = CreateObject("CDONTS.NewMail") Mailer.From = "contato@calixtojunior.com.br" ' e-mail de quem esta enviando a mensagem Mailer.To = "contato@calixtojunior.com.br" ' e-mail de quem vai receber a mensagem Mailer.CC = "marcelocriativo@gmail.com" ' Com Cópia Mailer.BodyFormat = 0 ' parametro de formatação Mailer.MailFormat = cdoMailFormatText ' parametro de formatação 'Mailer.AttachFile "e:\home\login\dados\arquivo.txt" 'caso queira anexar algum arquivo ao seu e-mail Mailer.Subject = "Aviso de visita AGRAFNP" Mailer.Body = Texto Mailer.Send Set Mailer = Nothing %>