Duda con CDONTS

kayioshin · #1 (**permalink**) 15/02/2005, 06:48

hola gente, estoy tratando de hacer la clasica pagina de "contactenos". Para ello, utilizo el Cdonts, pero no logro ver por que no funciona. Tengo dos paginas, una llamada "3.asp", en la cual pongo todo el formato de la pagina, y otra llamada "2.asp" en la cual tengo creado el objeto Cdonts.
Les dejo el codigo de las dos paginas, y cualquier ayuda que puedan darme, se las agradezco por adelantado!!!

Codigos :

--------------------COMIENZO 3.ASP-------------------------------
<%@LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<script language="JavaScript">
function borrar(){
document.nombre.nombre.value="";
document.nombre.email.value="";
document.nombre.interes.value="";
}
</script>

<body bgcolor="#000000">
<form name="nombre" method="post" action="2.asp">
<input type="hidden" name=subject value="Formulario de Contacto">
<input type="hidden" name="recipient" value="[email protected]">
<input type="hidden" name="redirect" value="http://www.yahoo.com">
<INPUT TYPE="HIDDEN" NAME="ShowFields" VALUE="S">

<table width="441" height="382" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="112"><font color="#FFFFFF"><i><font face="Times New Roman, Times, serif" size="2"><b>Nombre:</b></font></i></font></td>
<td width="329" valign="middle"><input type="text" name="nombre" size="30" maxlength="70">
<font color="#FFFFFF"><i><font face="Arial" size="2"></font></i></font></td>
</tr>
<tr>
<td width="112"><font color="#FFFFFF"><i><font face="Arial" size="2"><b>email:</b></font></i></font></td>
<td width="329" valign="middle"><input type="text" name="email" size="30" maxlength="70">
<font color="#FFFFFF"><i><font face="Arial" size="2"></font></i></font></td>
</tr>
<tr>
<td width="112"> </td>
<td width="329"> </td>
</tr>
<tr>

<td colspan="2"><font size="2" color="#FFFFFF"><i><font face=""Times New Roman, Times, serif""><b>Mensaje</b></font></i></font></td>
</tr>
<tr>
<td width="112"> </td>
<td width="329" valign="middle"><textarea name="interes" cols="24" rows="8"></textarea>
</td>
</tr>
<tr>
<td width="112">  <br>
</td>
<td width="329" valign="middle">
<div align="left"><br>
 
<input type="submit" value="Enviar" name="send">
<input type="submit" value="Borrar" name="delete" onClick="javascript:borrar();">
</td>
</tr>
</table>
<p> </p>
</form>
</body>
</html>
------------------------------------FIN 3.ASP-----------------
------------------------------------COMIENZO 2.ASP----------
<%@LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
Set oComSMTP = Server.CreateObject ("CDONTS.NewMail")
oComSMTP.BodyFormat = 0
oComSMTP.MailFormat = 0
oComSMTP.From = request.form("email")
oComSMTP.Value("Reply-To") = [email protected]
oComSMTP.To = [email protected]
oComSMTP.Subject = request.form("nombre")
oComSMTP.Body = request.form("interes")
oComSMTP.Send
</body>
</html>
---------------------------------------FIN 2.ASP-----------------

MUCHAS GRACIAS POR TODO GENTE!!!!!!
SALUDOS!!!!

haven · #2 (**permalink**) 15/02/2005, 10:28

Hola kayioshin, prueba esto haber si te sirve:

strFormName = Request("FormName")
strSubject = Request("subject")
strSendTo = Request("SendTo")

strHTML = strHTML & "<BR>Nombre:" & reques("nombre")
strHTML = strHTML & "<BR>Email:" & reques("email")

'time to send the email
Dim oComSMTP
Set oComSMTP = Server.CreateObject("CDONTS.NewMail")

oComSMTP.To = strSendTo
oComSMTP.From = strFrom
oComSMTP.Subject = strSubject
oComSMTP.BodyFormat = 0
oComSMTP.MailFormat = 0
oComSMTP.Body = strHTML

set oComSMTP = nothing

'redirect to the "Thanks" page
Response.Redirect strHTTP & "../gracias.htm"

Un saludo

kayioshin · #3 (**permalink**) 15/02/2005, 11:35

hola haven, gracias por contestar.
Eso que me pasaste, va todo en una misma pagina?
Donde va exactamente??

Gracias, saludos!!!

asm_mripZ · #4 (**permalink**) 21/07/2005, 10:13

Saludos, este es mi problema tengo el siguiente código el cual envía individualmente al mail puesto en .To o al .Bcc, pero cuando utilizo ambos a la vez solo se envia al mail en .to porque podría ser este error.
El código es:

<%
' *** Edit Operations: declare variables
' -- begin email send process --
' -- declare our main variable --
Dim mybody
Dim NewMailObj

myBody = "Nombre: "& Request.Form("realname") & vbcrlf
myBody = myBody & "Primer Apellido: "& Request.Form("apellido") & vbcrlf
myBody = myBody & "País: "& Request.Form("pais") & vbcrlf
myBody = myBody & "Estado/Provincia "& Request.Form("provincia") & vbcrlf
myBody = myBody & "Email: "& Request.Form("email") & vbcrlf
myBody = myBody & "Modelo Deseado: "& Request.Form("modelodeseado") & vbcrlf
myBody = myBody & "Teléfono: "& Request.Form("tel") & vbcrlf

mybody = mybody & VbCrLf & VbCrLf & "---------------------------------------------------------------------"
Set NewMailObj=Server.CreateObject("CDONTS.NewMail")
NewMailObj.From = "[email protected]"
NewMailObj.To = "[email protected]"
NewMailObj.Bcc = "[email protected]"
NewMailObj.Subject = "Formulario de Pedido"
NewMailObj.Body = mybody

NewMailObj.Send
'Close the email object and free up resources
Set NewMailObj = nothing
response.Redirect("http://www.xdomain.com")
' ENDS -

%>

bisteck · #5 (**permalink**) 21/07/2005, 11:13

las paginas que estas usando estan en un servidor externo o localmente (tu computer)?

si es externo o otro servidor prueba con esto:

http://www.forosdelweb.com/f15/enviar-email-con-asp-wxp-314365-print/

a lo mejor Te faltan las directivas de configuración antes de mail.send

asm_mripZ · #6 (**permalink**) 21/07/2005, 11:24

Saludos gracias por la ayuda, voy a probar, aunque he intentado ya varias cosas y nada que se envian a los dos, o es uno o el otro. ni idea aun por que es. Ahh esta corriendo en un servidor externo.