Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

gonzalo

Como linkar um ReqForm num cdonts

Por , em ASP Clássico

Recommended Posts

gonzalo    0

gonzalo
Postado

Como fazer com que um RequestForm fique como link, o seja clicando nele você vai para o endereço capturado no Request.Todo isto num email enviado pelo metodo "CDONTS"Seria algo assim, mas não funcionou...."<a href=' '>" & URL & "</a>"Arquivo abaixo: <%Dim URL, SenderEmail, MessageURL = Request.QueryString("URL")If Len(URL) = 0 Then URL = "http://www.site.com.br" If Len(Request.Form("SendersEmail")) > 0 Then Dim objMail,FriendEmailI=0 Do While TrueFriendEmail = Request.Form("FriendEmail" & I)If Len(FriendEmail) = 0 ThenExit DoElseSet objMail = CreateObject("CDONTS.NewMail")objMail.From = "MAIL@MAIL.com.br"objMail.Subject = "OLA"objMail.Importance=1objMail.MailFormat = 0objMail.Body = "<html>"_& "<head>"_& "</head>"_& "<body bgcolor='#ffffff'>"_& ""& Request.Form("SendersEmail") & ", email: " & Request.Form("SendersEmail2") & " AQUI TEM TEXTO" & URL & " AQUI TEM TEXTO" & "<br>" & "AQUI TEM MAIS TEXTO" & "<br>" & "AQUI TEM TEXTO." & "<br>" & "<br>" & "MENSAGEM: " & "<br>" & Request.Form("Message") & "<br>" & "<br>" & "<br>" & "Um abraço " & "<br>" & Request.Form("SendersEmail") & "<br>" & "<img src='http://www.site.com.br/x.gif'>"_& "</body>"_& "</html>"objMail.To = FriendEmailobjMail.Send()End IfI=I+1LoopSet objMail = NothingResponse.redirect ElseEnd If%>Agradeço a quem possa ajudar!

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito