 |
|
|
PEDIDOS |
| |
|
| |
Inserir aqui
<% @ LANGUAGE="VBSCRIPT" %>
<%
'*******************************************************************
' Página gerada pelo sistema Dataform 2 - http://www.dataform.com.br
'*******************************************************************
'Email para onde serão enviados os dados do formulário
email_form = "elton@termil.com.br"
'Título do email
assunto_form = "Pedido de Compra recebido através do formulário do site"
'Servidor de email
servidor = "mail.termil.com.br"
'Componente para envio do email: CDONTS | AspMail | AspEmail | AspQmail
componente = "CDONTS"
'Cabeçalho do texto do email recebido
cabecalho_email = "Dados do Usuário"
'*******************************************************************
%>
Incluir Registro
<%
If Not IsEmpty(Request.Form) Then
strMsg = ""
strMsg = strMsg & ""
strMsg = strMsg & ""
strMsg = strMsg & ""
strMsg = strMsg & "" & cabecalho_email & "
"
strMsg = strMsg & "Nome :
" & Trim(Request.Form("Campo1")) & "
"
strMsg = strMsg & "Rua :
" & Trim(Request.Form("Campo2")) & "
"
strMsg = strMsg & "Bairro :
" & Trim(Request.Form("Campo3")) & "
"
strMsg = strMsg & "Cidade :
" & Trim(Request.Form("Campo4")) & "
"
strMsg = strMsg & "Estado :
" & Trim(Request.Form("Campo5")) & "
"
strMsg = strMsg & "CEP :
" & Trim(Request.Form("Campo6")) & "
"
strMsg = strMsg & "CNPJ :
" & Trim(Request.Form("Campo7")) & "
"
strMsg = strMsg & "Inscrição :
" & Trim(Request.Form("Campo8")) & "
"
strMsg = strMsg & "Quantidade1 :
" & Trim(Request.Form("Campo9")) & "
"
strMsg = strMsg & "Produto1 :
" & Trim(Request.Form("Campo10")) & "
"
strMsg = strMsg & "Quantidade2 :
" & Trim(Request.Form("Campo11")) & "
"
strMsg = strMsg & "Produto2 :
" & Trim(Request.Form("Campo12")) & "
"
strMsg = strMsg & "Quantidade3 :
" & Trim(Request.Form("Campo13")) & "
"
strMsg = strMsg & "Produto3 :
" & Trim(Request.Form("Campo14")) & "
"
strMsg = strMsg & "Quantidade4 :
" & Trim(Request.Form("Campo15")) & "
"
strMsg = strMsg & "Produto4 :
" & Trim(Request.Form("Campo16")) & "
"
strMsg = strMsg & "Quantidade5 :
" & Trim(Request.Form("Campo17")) & "
"
strMsg = strMsg & "Produto5 :
" & Trim(Request.Form("Campo18")) & "
"
strMsg = strMsg & "Data do Pedido :
" & Trim(Request.Form("Campo19")) & "
"
strMsg = strMsg & "Campo20
" & Trim(Request.Form("Campo20")) & "
"
strMsg = strMsg & ""
strMsg = strMsg & ""
EnviaEmail servidor, componente, email_form, email_form, email_form, assunto_form, strMsg
Function EnviaEmail(Host,Componente,Email,NomeEmail,ParaEmail,Assunto,Mensagem)
Select Case Componente
Case "AspMail"
on error resume next
Set eObjMail = Server.CreateObject("SMTPsvg.Mailer")
eObjMail.FromName = NomeEmail
eObjMail.FromAddress = Email
eObjMail.RemoteHost = Host
eObjMail.AddRecipient "", ParaEmail
eObjMail.Subject = Assunto
eObjMail.ContentType = "text/html"
eObjMail.BodyText = Mensagem
eObjMail.SendMail
Set eObjMail = nothing
Case "AspEmail"
on error resume next
Set eObjMail = Server.CreateObject("Persits.MailSender")
eObjMail.Host = Host
eObjMail.From = Email
eObjMail.FromName = NomeEmail
eObjMail.AddReplyTo Email
eObjMail.AddAddress ParaEmail
eObjMail.Subject = Assunto
eObjMail.isHTML = true
eObjMail.Body = Mensagem
eObjMail.Send
Set eObjMail = nothing
Case "AspQmail"
on error resume next
Set eObjMail = Server.CreateObject("SMTPsvg.Mailer")
eObjMail.QMessage = 1
eObjMail.FromName = NomeEmail
eObjMail.FromAddress = Email
eObjMail.RemoteHost = Host
eObjMail.AddRecipient "", ParaEmail
eObjMail.Subject = Assunto
eObjMail.BodyText = Mensagem
objNewMail.SendMail
Set eObjMail = nothing
Case "CDONTS"
on error resume next
Set eObjMail = Server.CreateObject("CDONTS.NewMail")
eObjMail.to = ParaEmail
eObjMail.from = NomeEmail & "<" & Email & ">"
eObjMail.subject = Assunto
eObjMail.Importance = 1
eObjMail.BodyFormat = 0
eObjMail.MailFormat = 0
eObjMail.body = Mensagem
eObjMail.send
Set eObjMail = nothing
End Select
End Function
%>
Dados enviados
Obrigado, seus dados foram enviados com sucesso.
<%
Else
%>
| |
| |
| |
|
|
|
|
