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.
