send link by email

L

Licass

hi
i want to send a email with a link to a page that confirm and activate an
account.
this link have also a parameter , but i can't figure how to put the " in the
link path.

this is my code:
thanks

strBody = "<html>"
strBody = strBody & "<head></head>"
strBody = strBody & "<body>"



strBody = strBody & "Estes são os dados que nos enviou:" & Chr(13) & Chr(13)
strBody = strBody & "Nome: " & Request.Form("nome") & Chr(13) & Chr(13)
strBody = strBody & "E-mail: " & Request.Form("email") & Chr(13)
strBody = strBody & "Senha: " & Request.Form("senha") & Chr(13)
strBody = strBody & "Telefone: " & Request.Form("telefone") & Chr(13)



strBody = strBody & Chr(13) & "Obrigado.Esperamos que o nosso serviço vá de
encontro ás suas expectativas."
strBodylink = Chr(13) & Chr(13) & Chr(13) & "Active a sua conta utilizando
este link"
strBodylink=strBodylink & "<a href="
strBodylink=strBodylink & "www.sulferias.com/activa_prop.asp?sessionid="
strBodylink=strBodylink & Request.Form("sesion") &">"
strBodylink=strBodylink & " email</a>"

strBody2 = "</body>"

strBody2 = strBody2 & "</html>"



'====================================================================
' The SET statement creates the CDONTS mail object in preparation
' for sending the e-mail message.
'====================================================================
Set myCDONTSMail = CreateObject("CDONTS.NewMail")
set meumail = CreateObject("CDONTS.NewMail")

meumail.bodyformat=0
meumail.mailformat=0
mycdontsmail.mailformat=0
mycdontsmail.bodyformat=0

'====================================================================
' The following line sends the mail message using the source e-mail,
' destination e-mail, subject, and body that were defined earlier.
'====================================================================
myCDONTSMail.Send strFrom,strTo,strSubject,strBody & strBodylink & strBody2
 
K

Kevin Spencer

To escape double-quotes, jut put two of them side by side. Example:

Dim QuotedString
QuotedString = "This string has some ""Quotes"" in it"

--
HTH,

Kevin Spencer
Microsoft MVP
..Net Developer
A brute awe as you,
a Metallic hag entity, eat us.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Microsoft VBScript runtime error '800a01a8' 6
rewriting with refresh 1
FP 2000 SQL 2000: Confirmation page using an asp script to generate a max(id) and email the results 0
Send Form results to database error 0
Sending form results to database and email 0
Interating throught a task list, respecting sort rules in the view 1
send link by email 0

Top