|
|
Dr. Tufet - Medicina Estética 93-458 32 70
Passeig de Sant Joan, 123
08037 Barcelona |
|
<% else
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.arsys.es"
Mail.From = Request.Form("sender")
Mail.AddAddress Request.Form("correo"), Request.Form("correo")
Mail.Subject = "Clínica Tufet"
Mail.Body = "" & Request.Form("comentario") & "
"
Mail.IsHTML = True
' strPage = "d:\xvrt\currysauce.net\html\tufet\dietainstintiva\printdoc\" & strPage
strPage = "d:\xvrt\dietainstintiva.com\html\printdoc\" & strPage
Mail.AppendBodyFromFile strPage
Mail.Body = Mail.Body & "
Si te ha interesado este artículo, visita la página web http://www.dietainstintiva.com "
On Error Resume Next
Mail.Send ' ó Mail.SendToQueue
Response.Write ""
Response.Write "
Untitled Document"
Response.Write ""
Response.Write "
"
Response.Write ""
Response.Write "
"
If Err <> 0 Then
Response.Write "Ha ocurrido un error: " & Err.Description
else
Response.Write "El mensaje ha sido enviado correctamente"
End If
Response.Write "
"
Response.Write "Volver al artículo"
Response.Write "
|
|
Dr. Tufet - Medicina Estética 93-458 32 70
Passeig de Sant Joan, 123
08037 Barcelona |
|
"
End if
%>
