registro + objcorreo.send

[zeus_bsas]

Me pregunto si es posible hacer que cuando un usuario presione submit en un formulario de registro, tambien se le mande un mail al usuario (por CDONTS) para que confirme su suscripcion. Se puede hacer?

[urjose]

Desde luego que se puede solo es cosa de poner el código de envío de correo en la parte o en la pagína donde se guarda en la base de datos.


Saludos


<center><a href="http://www.comunidadguru.com">
<img border="0" src="http://pcmasmas.com.ar/foro/images/avatars/043.gif"></a></center>

[zeus_bsas]

Perdon por mi ignorancia, pero eso es justamente lo que no entiendo. Yo tengo armado el formulario de envio de mails y el de registro, por separado. Como hago para que al presionar submit uno mande el mail y el otro registre al usuario? Como o donde los pongo en una misma pagina?
PD: Siempre ayudandome, te agradezco. Seguro no dejo de sorprenderte con mis preguntas tontas.

[urjose]

Bueno el problema es que no tengo un código a la mano pero bueno en algoritmo es lo siguiente, en la pagina donde guardas los datos debe ir algo así:

&lt;%
Set oConn=Server.CreateObject(&quot;ADODB.Connection&q uot;)
oConn.Open &quot;DSN&quot;
SQL=&quot;INSERT INTO...&quot;
Set Rs=oConn.Execute(SQL)
'y bueno aqui puedes poner tu codigo de envio de correo.
'Puedes recoger el email del usuario y ponerlo como destinatario
email=Request.Form(&quot;email&quot;)
'CODIGO PARA ENVIO
%&gt;


La idea es esa.

Saludos



<center><a href="http://www.comunidadguru.com">
<img border="0" src="http://pcmasmas.com.ar/foro/images/avatars/043.gif"></a></center>

[zeus_bsas]

esto se puede hacer con la pagina que crea ultradev?

[urjose]

Si se puede hacer pero como todo lo que crea el Ultradev va a ser medio complicado.

El chiste es localizar donde esta la parte del Insert Into...

Y abajo de donde se ejecuta el Insert colocar el código para el envío del correo.

Saludos

<center>
<p><a href=http://comunidadguru.com><img border=0 src=http://comunidadguru.com/urjose.gif></a></p>
<p><font size=2 face=Arial color=#000066>Pronto
tus conocimientos tendrán un $[/CODE]</p>
</center>

[zeus_bsas]

bueno, el codigo es medio raro, tenes razon, y no me funciona. Pero no se si es un error o el servidor (cfm-resources.com)

esta es la parte del codigo en donde meti el envio:

&lt;%
' *** Insert Record: construct a sql insert statement and execute it

If (CStr(Request(&quot;MM_insert&quot;)) &lt;&gt; &quot;&quot;) Then

' create the sql insert statement
MM_tableValues = &quot;&quot;
MM_dbValues = &quot;&quot;
For i = LBound(MM_fields) To UBound(MM_fields) Step 2
FormVal = MM_fields(i+1)
MM_typeArray = Split(MM_columns(i+1),&quot;,&quot;)
Delim = MM_typeArray(0)
If (Delim = &quot;none&quot;) Then Delim = &quot;&quot;
AltVal = MM_typeArray(1)
If (AltVal = &quot;none&quot;) Then AltVal = &quot;&quot;
EmptyVal = MM_typeArray(2)
If (EmptyVal = &quot;none&quot;) Then EmptyVal = &quot;&quot;
If (FormVal = &quot;&quot;) Then
FormVal = EmptyVal
Else
If (AltVal &lt;&gt; &quot;&quot;) Then
FormVal = AltVal
ElseIf (Delim = &quot;'&quot;) Then ' escape quotes
FormVal = &quot;'&quot; &amp; Replace(FormVal,&quot;'&quot;,&quot;''&quot;) &amp; &quot;'&quot;
Else
FormVal = Delim + FormVal + Delim
End If
End If
If (i &lt;&gt; LBound(MM_fields)) Then
MM_tableValues = MM_tableValues &amp; &quot;,&quot;
MM_dbValues = MM_dbValues &amp; &quot;,&quot;
End if
MM_tableValues = MM_tableValues &amp; MM_columns(i)
MM_dbValues = MM_dbValues &amp; FormVal
Next
MM_editQuery = &quot;insert into &quot; &amp; MM_editTable &amp; &quot; (&quot; &amp; MM_tableValues &amp; &quot;) values (&quot; &amp; MM_dbValues &amp; &quot;)&quot;

If (Not MM_abortEdit) Then
' execute the insert
Set MM_editCmd = Server.CreateObject(&quot;ADODB.Command&quot;)
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute

MM_editCmd.ActiveConnection.Close


'CODIGO PARA ENVIAR MAIL DE CONFIRMACION

Set mailobj = Server.CreateObject ( &quot;CDONTS.NewMail&quot; )
mailobj.mailFormat = 0
mailobj.bodyFormat = 0
mailobj.from = &quot;[email protected]&quot;
mailobj .to = Request(&quot;mail&quot;)
SIGUE...

[zeus_bsas]

mailobj .to = Request(&quot;mail&quot;)
mailobj.subject = &quot;Confirmación&quot;
mailobj .body = &quot;Confirmación&quot;
mailobj.Send





If (MM_editRedirectUrl &lt;&gt; &quot;&quot;) Then
Response.Redirect(MM_editRedirectUrl)
End If
End If






End If
%&gt;

[urjose]

Bueno y por que dices que no funcionar?
que error te manda?

Saludos

<center>
<p><a href=http://comunidadguru.com><img border=0 src=http://comunidadguru.com/urjose.gif></a></p>
<p><font size=2 face=Arial color=#000066>Pronto
tus conocimientos tendrán un $[/CODE]</p>
</center>

[dajacevit]

(cfm-resources.com)

De pronto si el código no te funciona para el envío, no sera que este servidor tiene desactivada esa opcion, digo, la verdad que no recuerdo.