Quisiera saber que es lo que falla en este codigo, quiero que me llegue un mail con unos datos que debe recoger de un formulario... solo me llega un mail con lo que pone en el Mail.Body
Gracias por vuestra ayuda
<%End IF
'CODIGO PARA ENVIO DE EMAIL
Set Mail = Server.CreateObject("Persits.MailSender" )
Mail.Host = "mail.elize.org" ' AQUI VA EL SMTP DE TU DOMINIO
Mail.Port = 25
Mail.From = "[email protected]" ' Aquí debes poner una cuenta de correo del dominio
Mail.FromName = "Sistema de reservaciones" 'Debes cambiar esta línea
Mail.AddAddress "[email protected]"
Mail.AddAddress "[email protected]"
Mail.AddReplyTo "[email protected]"
Mail.Subject = "Nueva Reservación"
Mail.Body = "<HTML>><BODY BGCOLOR=F8EDCF><p>nueva reserva, consultela en www.elize.org/sevilla/admin_clientes</p></BODY></HTML>"
Scuerpo="<html><body>Datos de la reservación:<br><br>Nombre: "&Nombre
Scuerpo="<br><br>"
Scuerpo="Localidad: "&Localidad
Scuerpo="<br><br>"
Scuerpo="Pais: "&Pais
Scuerpo="<br><br>"
Scuerpo="Telefono: "&telefono
Scuerpo="<br><br>"
Scuerpo="E mail:"&Email
Scuerpo="<br><br>"
Scuerpo="Apartamento: "&IdApartamento
Scuerpo="<br><br>"
Scuerpo="Fecha de entrada: "&FechaEntrada
Scuerpo="<br><br>"
Scuerpo="Fecha de salida: "&FechaSalida
Scuerpo="<br><br>"
Scuerpo="Hora de llegada: "&HoraLlegada
Scuerpo="<br><br>"
Scuerpo="Suplemento: "&Suplemento
Scuerpo="<br><br>"
Scuerpo="Animales= "&Animales
Scuerpo="<br><br>"
Scuerpo="Costo Total= "&PrecioFInal
Scuerpo="</body></html>"
Mail.Body = Scuerpo
Mail.IsHTML = True
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
End If
End if
oConn.Close
Set oConn=Nothing
Set oRs=Nothing
%>
