<%
enviar = Request.Form("enviar")
if enviar = "" Then
%>
<% else %>
<%
snome = Request.Form("nome")
smail = Request.Form("email")
telefone = Request.Form("telefone")
tipo = Request.Form("tipo")
ctel = Request.Form("ctel")
msg = Request.Form("msg")
Set Send = Server.CreateObject("SMTPsvg.Mailer")
Send.FromName = snome
Send.FromAddress= smail
Send.RemoteHost = smtp
Send.AddRecipient nome, email
Send.Subject = "Contato de " & snome & " :: Cartomail 1.0 Beta."
Send.BodyText = "Olá " & ynome & ":" & VBCrLf & VBCrLf & "Vocę acabou de receber uma mensagem de " & snome & VBCrLf & VBCrLf & "Genero: " & tipo & VBCrLf & VBCrLf& "Memsagem:" & VBCrLf & msg & VBCrLf & VBCrLf & "Contatos por telefone: " & ctel & VBCrLf & "Telefone: " & telefone & VBCrLf & "nome: " & snome & VBCrLf & "email: " & smail & VBCrLf & VBCrLf &"Cartom Form Mail 1.0 Beta By Wellington Costa de Almeida ( www.mediashock.com.br )"
Send.SendMail
Set Reply = Server.CreateObject("SMTPsvg.Mailer")
Reply.FromName = nome
Reply.FromAddress= email
Reply.RemoteHost = smtp
Reply.AddRecipient snome, smail
Reply.Subject = "Obrigado por contactar" & snome
Reply.BOdyText = "Olá " & snome & " seu email foi enviado com sucesso para o site " & nome & ". Em bréve estaremos entrando em contato" & VBCrLf & VBCrLf & VBCrLf & "PowereBy Cartomail 1.0 Beta ( www.mediashock.com.br )"
Reply.SendMail
%>
Obrigado
<% =snome%>
Sua mensagem foi enviada com sucesso.
<% end if %>
