Este es el codigo, la linea donde da el error esta "marcada", pero no creo que sea error de programacion sino de permisos.
<%
set Correo=Server.CreateObject("CDONTS.NewMail&qu ot;)
Nombre=Request.form("nombre")
Apellidos=Request.form("apellidos")
Domicilio=Request.form("domicilio")
Ciudad=Request.form("ciudad")
Codigo=Request.form("CP")
Pais=Request.form("pais")
Tfno=Request.form("tfno")
DirRmte= Request.form("mail")
Contenido=Request.form("msje")
Dest = "
[email protected]"
Rmte = " & DirRmte & "
Asunto= "Mensaje enviado desde la pagina web, seccion Contacta.."
Mensaje = "<html><body>"
Mensaje = Mensaje & "Autor:<br><br>" & Apellidos & "," & Nombre
Mensaje = Mensaje & "<br><br>Datos personales:<br><br>Domicilio:" & Domicilio
Mensaje = Mensaje & "<br>Ciudad:" & Ciudad
Mensaje = Mensaje & "<br>CP:" & Codigo
Mensaje = Mensaje & "<br>Pais:" & Pais
Mensaje = Mensaje & "<br>Tfno.:" & Tfno
Mensaje = Mensaje & "<br>E-Mail:" & DirRmte
Mensaje = Mensaje & "<br><br><br>" & Contenido
Mensaje = Mensaje & "</html></body>"
Correo.From= Rmte
Correo.To = Dest
Correo.Subject = Asunto
Correo.BodyFormat=0
Correo.MailFormat=0
Correo.Body = Mensaje
Correo.Send
set Correo=Nothing
Response.redirect "ayuntamiento_1_3.asp"
%>
La direccion de destino no la indico porque me puede caer una bronca....
