Alguno conoce como otorgar los privilegios en el IIS, resulta que al enviar con Cdonts me dice "
Permiso Denegado ", obviamente tengo que asignar siertos privilegios para este metodo.. no ???
el código que utilizo en el form es el siguiente:
<%@ LANGUAGE="VBSCRIPT" %>
<%
Option Explicit
Sub WriteHTML(strInput)
Response.Write(Server.HTMLEncode(strInput) "<BR>")
End Sub
Sub RedirectHTML(strInput)
Response.Redirect(strInput)
End Sub
%>
<%
Dim objMsg, strFrom, strTo, strReplyTo, strBody, strSubject
Dim lngImportance, lngMsgFormat, lngMsgEncode
strFrom = "[email protected]" ' Trim(Request.Form("email"))
strTo = "[email protected]"
strReplyTo = "[email protected]" 'm(Request.Form("email"))
strSubject = "Titulo del Mail"
strBody = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">"
strBody = strBody & "<html>"
strBody = strBody & "<head>"
strBody = strBody & "<meta http-equiv=""Content-Type"""
strBody = strBody & "HTML = HTML & ""content=""text/html; charset=iso-8859-1"">"""
strBody = strBody & "<title> TITULO DEL MAIL </title>"
strBody = strBody & "</head>"
strBody = strBody & "<body>"
strBody = strBody & "<FONT FACE=Verdana SIZE=2 COLOR=#600B7B><BR><B>"
strBody = strBody & "Nombre: " & Trim(Request.Form("nombre")) & "<br>"
strBody = strBody & "<br>"
strBody = strBody & "<BR></body>"
strBody = strBody & "</html>"
Set objMsg = Server.CreateObject("CDONTS.NewMail")
If Len(Trim(strReplyTo)) > 0 Then
objMsg.Value("Reply-To")=strReplyTo
End If
If Len(Trim(strFrom)) = 0 Then
strFrom = "[email protected]"
End If
objMsg.From = strFrom
objMsg.To = strTo
objMsg.Subject = "Titulo del Mail"
objMsg.BodyFormat = 0
objMsg.MailFormat = 0
objMsg.Body = strBody
objMsg.Send
Set objMsg = Nothing
RedirectHTML("gracias.htm")
%>
Saludos y gracias.