Recuperando resultados

[Carlos Moreira 0]

Olá pessoal

 

<%

***emailempresa= RS("email")

%>

 

<%

if request.Form("Submit")="Enviar" then

 

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

Mailer.FromName = "Vitrine das Malhas - Formulário"

Mailer.FromAddress= "***"

Mailer.RemoteHost = "mail.vitrinedasmalhas"

Mailer.AddRecipient "Vitrine das Malhas", "contato@vitrinedasmalhas.com.br"

Mailer.Subject = "Fale Conosco"

Mailer.BodyText = "Formulário" & VbCrLf & "Contato"

Mailer.BodyText = "Nome: " & Request.Form("nome")& vbCrLf

Mailer.BodyText = "Email: " & Request.Form("email") & vbCrLf

Mailer.BodyText = "Cidade: " & Request.Form("cidade") & vbCrLf

Mailer.BodyText = "Estado: " & Request.Form("estado") & vbCrLf

Mailer.BodyText = "Assunto: " & Request.Form("assunto") & vbCrLf

Mailer.BodyText = "Comentários: " & Request.Form("comentarios") & vbCrLf

if Mailer.SendMail then

Response.redirect "empresaemailresp.asp"

else

Response.Write "Mail send failure. Error was " & Mailer.Response

end if

 

End if

 

%>

 

Como faço para recuperar esse valor que esta no ***?

[Schneider 0]

Como assim? esse e-mail é tu que define. e se vier de um formulário de contato tu pode salvar ele antes de enviar o e-mail.não entendi bem se é isso que tu ta querendo.

[Carlos Moreira 0]

eu estou pegando de um form o ID certo!!!depois de ter pego o ID eu resgato o email, resgatando o e-mail tenho que mandar pro script que manda o e-mail

[Shison 0]

Opa,simplesmente atribua o valor da variável ao atributo do objeto ou diretamente do RecordSet.seria isto?

[Schneider 0]

oque tu quer é passar o valor da variavel emailempresa para uma outra página que irá usá-lo? é isso?

 

se for faz o seguinte:

 

pagina os dados:

emailempresa= RS("email")response.redirect "paginaMail.asp?emailempresa=" & emailempresa

pagina que manda e-mail:

email = request.querystring("emailempresa")if request.Form("Submit")="Enviar" thenSet Mailer = Server.CreateObject("SMTPsvg.Mailer")Mailer.FromName = "Vitrine das Malhas - Formulário"Mailer.FromAddress= emailMailer.RemoteHost = "mail.vitrinedasmalhas"Mailer.AddRecipient "Vitrine das Malhas", "contato@vitrinedasmalhas.com.br"Mailer.Subject = "Fale Conosco"Mailer.BodyText = "Formulário" & VbCrLf & "Contato"Mailer.BodyText = "Nome: " & Request.Form("nome")& vbCrLfMailer.BodyText = "Email: " & Request.Form("email") & vbCrLfMailer.BodyText = "Cidade: " & Request.Form("cidade") & vbCrLfMailer.BodyText = "Estado: " & Request.Form("estado") & vbCrLfMailer.BodyText = "Assunto: " & Request.Form("assunto") & vbCrLfMailer.BodyText = "Comentários: " & Request.Form("comentarios") & vbCrLfif Mailer.SendMail thenResponse.redirect "empresaemailresp.asp"elseResponse.Write "Mail send failure. Error was " & Mailer.Responseend ifEnd if

mas se todo o código que tu postou estiver na mesma página tu só passa a variável. Como o Shison disse:

 

<% ***emailempresa= RS("email")%><%if request.Form("Submit")="Enviar" thenSet Mailer = Server.CreateObject("SMTPsvg.Mailer")Mailer.FromName = "Vitrine das Malhas - Formulário"Mailer.FromAddress= emailempresaMailer.RemoteHost = "mail.vitrinedasmalhas"Mailer.AddRecipient "Vitrine das Malhas", "contato@vitrinedasmalhas.com.br"Mailer.Subject = "Fale Conosco"Mailer.BodyText = "Formulário" & VbCrLf & "Contato"Mailer.BodyText = "Nome: " & Request.Form("nome")& vbCrLfMailer.BodyText = "Email: " & Request.Form("email") & vbCrLfMailer.BodyText = "Cidade: " & Request.Form("cidade") & vbCrLfMailer.BodyText = "Estado: " & Request.Form("estado") & vbCrLfMailer.BodyText = "Assunto: " & Request.Form("assunto") & vbCrLfMailer.BodyText = "Comentários: " & Request.Form("comentarios") & vbCrLfif Mailer.SendMail thenResponse.redirect "empresaemailresp.asp"elseResponse.Write "Mail send failure. Error was " & Mailer.Responseend ifEnd if%>

 

qualquer coisa grita!

Falow aí cara!