28/08/2009, 10:56
|
| | | Fecha de Ingreso: mayo-2004
Mensajes: 167
Antigüedad: 20 años, 11 meses Puntos: 0 | |
| Respuesta: envío automatico email
formulario.asp
Código:
<form action="confirmacion2.asp" method="post" name="form1">
<table width="381" border="0" align="center" cellpadding="3" cellspacing="3">
<tr>
<td width="128" class="texto">Nombre y apellidos <br>
o Razón Social* :</td>
<td colspan="2"><label>
<input name="nombre" type="text" class="field" id="nombre">
</label></td>
</tr>
<tr>
<td class="texto">DNI o NIF * :</td>
<td colspan="2"><input name="dni" type="text" class="dni_field" id="dni"></td>
</tr>
<tr>
<td class="texto">Direccion* :</td>
<td colspan="2"><input name="direccion" type="text" class="field" id="direccion"></td>
</tr>
<tr>
<td class="texto">E-mail* :</td>
<td colspan="2"><input name="email" type="text" class="field" id="email"></td>
</tr>
<tr>
<td class="texto"> </td>
<td width="120"><div align="center">
<input name="borrar" type="reset" class="enviar_borrar" id="borrar" value="Borrar">
</div></td>
<td width="103"><input name="enviar" type="submit" onClick="confirmacion2.asp" class="enviar_borrar" id="enviar"value="Enviar"></td>
</tr>
</table>
<input name="id" type="hidden" id="id" value="<%=(Rspedidos.Fields.Item("id").Value)%>">
</form>
confirmacion.asp
Código:
<form ACTION="<%=MM_editAction%>" METHOD="POST" name="form2" id="form2">
<table width="500" height="25"border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="158" height="25"><span class="Estilo6"><span class="txtconfirmacion">confirmar</span>
<input name="nombre" type="hidden" id="nombre" value="<%=Request.Form("nombre")%>">
<input name="dni" type="hidden" id="dni" value="<%=Request.Form("dni")%>">
<input name="direccion" type="hidden" id="direccion" value="<%=Request.Form("direccion")%>">
<input name="email" type="hidden" id="email" value="<%=Request.Form("email")%>">
<input name="id" type="hidden" id="id" value="<%=Request.Form("id")%>">
</span></td>
</tr>
</table>
<input type="hidden" name="MM_insert" value="form2">
</form>
gracias.asp
<%@LANGUAGE="VBSCRIPT"%>
Código:
<%
nombre = request.form("nombre")
direccion = request.form("direccion")
email = request.form("email")
id = request.form("id")
'creo el objeto correo
set Mail = server.createObject("Persits.MailSender")
'configuro el mensaje
'señalo el servidor de salida para enviar el correo
Mail.host = "smtp.miservidor.com"
'indico la dirección de correo del remitente
Mail.from = "[email protected]"
'indico la dirección del destinatario del mensaje
Mail.FromName = "prueba"
Mail.addAddress Request.Form ("email")
Mail.Username = "xxxxxxx"
Mail.Password = "Abcde"
'indico el asunto
Mail.Subject = "pedidos"
'indico el cuerpo del mensaje
Mail.IsHTML = True
Mail.Body = "<HTML><BODY><p><font face=verdana size=2>Gracias por realizar el pedido. Su número de pedido es el: "&id&"<br><br></p><br>Enviado el "& Now() &"</font></BODY></HTML>"
'lo envio
'aseguro que no se presenten errores en la página si se producen
On Error Resume Next
Mail.send
'if Err ><0 then
'response.write "Error, no se ha podido completar la operación"
'else
'response.write "Gracias por rellenar el formulario. Se ha enviado correctamente." end if
%>
Código:
<form name="form1" method="post" action="">
<span class="txtconfirmacion">
<input name="id" type="hidden" id="id" value="<%=(Rsconfirmar.Fields.Item("id").Value)%>">
</span>
<input type="hidden" name="nombre" id="nombre">
<input type="hidden" name="dni" id="dni">
<input type="hidden" name="direccion" id="direccion">
<input type="hidden" name="email" id="email">
</form>
|