5 replies to this topic

[mokus]

Galera fiz um form email só que não entendo a logica ainda, como faço o botão enviar buscando meu asp?

Attached Files

•  form.zip   6.26KB   7 downloads

[pchardnet]

vc deve colocar no action do seu form

[usuariodaweb]

Você faz assim:

O form tem que ser direcionado para a página enviar.asp, como no exemplo abaixo:

<FORM name="form1" method="post" action="enviar.asp">

E para criar o botão, vc faz assim:

<INPUT name="submit" type="submit" value="OK" size="20">

att,

Edição feita por: usuariodaweb, 08/06/2004, 03:47.

[mokus]

Galera ta funcionando ta enviando
sendo que quando envia, os dandos não são enviados
meu codigo do enviar

<%@language="vbscript"%>
<%
Set MyCDONTSMail = Server.CreateObject("CDONTS.NewMail")
MyCDONTSMail.From= "mokus@ig.com.br"
MyCDONTSMail.To= ""
MyCDONTSMail.Cc= ""
MyCDONTSMail.Subject="Nova Campanha do Call Center DA"


mensagem = "INFORMACOES SOBRE CAMPANHA" & strLogonNT & VBCrLf & VBCrLf
mensagem = mensagem & "Nome"
mensagem = mensagem & request.form("nome") & VBCrLf & VBCrLf


mensagem = mensagem & "Data de Iniciio: "
mensagem = mensagem & request.form("data_dia") & VBCrLf & VBCrLf
mensagem = mensagem & request.form("data_mes") & VBCrLf & VBCrLf
mensagem = mensagem & request.form("data_ano") & VBCrLf & VBCrLf
mensagem = mensagem & "Forma de Contato aos Clientes: "
mensagem = mensagem & request.form("meio_contato") & VBCrLf & VBCrLf
mensagem = mensagem & "Quantidade: "
mensagem = mensagem & request.form("quantidade") & VBCrLf & VBCrLf
mensagem = mensagem & "Solicitante: "
mensagem = mensagem & request.form("solicitante") & VBCrLf & VBCrLf
mensagem = "PARAMETROS DE SELECAO" & strLogonNT & VBCrLf & VBCrLf
mensagem = mensagem & "Sexo: "
mensagem = mensagem & request.form("sexo") & VBCrLf & VBCrLf
mensagem = mensagem & "Participantes das Campanhas: "
mensagem = mensagem & request.form("outras_campanhas") & VBCrLf & VBCrLf
mensagem = mensagem & "Compradores dos Seguintes Produtos: "
mensagem = mensagem & request.form("prod_vendidos") & VBCrLf & VBCrLf
mensagem = mensagem & "Compradores dos Seguintes Produtos: "
mensagem = mensagem & request.form("prod_vendidos") & VBCrLf & VBCrLf
mensagem = mensagem & "Estado: "
mensagem = mensagem & request.form("estado") & VBCrLf & VBCrLf
mensagem = mensagem & "Cidade: "
mensagem = mensagem & request.form("cidade") & VBCrLf & VBCrLf
mensagem = mensagem & "Bairro: "
mensagem = mensagem & request.form("bairro") & VBCrLf & VBCrLf

MyCDONTSMail.Body= mensagem
MyCDONTSMail.Send
set MyCDONTSMail=nothing

%>

meu index ta anexo

[pchardnet]

Tá assim: & VBCrLf & VBCrLf

Deixe assim: & vbCrLf & vbCrLf & _

Acho que pode ser isso!!

[mokus]

foi isso nao...