Foros del Web » Programando para Internet » ASP Clásico »

Enviar email y recibir copia

Estas en el tema de Enviar email y recibir copia en el foro de ASP Clásico en Foros del Web. Hola, Despues de luchar con mi carrito y tenerlo conseguido lo que quiero tengo un fallo (que antes me salia bien) y ya estoy cegada ...
  #1 (permalink)  
Antiguo 25/08/2004, 01:24
 
Fecha de Ingreso: diciembre-2001
Mensajes: 28
Antigüedad: 22 años, 5 meses
Puntos: 0
Enviar email y recibir copia

Hola,
Despues de luchar con mi carrito y tenerlo conseguido lo que quiero tengo un fallo (que antes me salia bien) y ya estoy cegada y no veo en que me equivoco.

Cuando ya tienes el pedido y le das a enviar manda un email al cliente y otro a mi con el pedido realizado. Bueno, pues hice unos cambios para verificar que el email este en mi base de datos y ahora manda el pedido al email del cliente pero mi copia no me la manda.
Pongo el codigo para quien me pueda ayudar en donde esta el fallo por que ya no se que probar:


<% if request.form <> "" then
dim email
email = request.form("email")

%>
<html>

<head>
<title>Registro</title>
</head>
<body>



<%
Set Conexion = Server.CreateObject ("ADODB.Connection")
Set RS = Server.CreateObject ("ADODB.RecordSet")

Conexion.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("base.mdb")


SQL = "Select * from Emailsgo where email='" & email & "'"
Rs.open SQL,Conexion
if Rs.EOF and Rs.BOF then

'No hay nadie registrado con ese dni

Rs.close
Conexion.close

set Rs = nothing
set Conexion = nothing
Response.redirect "error.htm"

end if%>


<%

Dim objMail, HTML
url = "http://artellares.com" 'URL de tu Sitio o Pagina Web.

grafico = "http://mipagina.com/images/logo.gif" ' URL completa donde guardamos el grafico
alt = "Collares" 'Texto que se muestra cuando el puntero del mouse pasa por sobre el grafico.

set objMail = Server.CreateObject("CDONTS.NewMail")

HTML = "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<meta http-equiv=""Content-Type"""
HTML = HTML & " content=""text/html; charset=iso-8859-1"">"
HTML = HTML & "<title>Email desde la página</title>"
HTML = HTML & "</head>"
HTML = HTML & "<BODY bgColor=#000000>"
HTML = HTML & "<DIV align=center><FONT face=Arial size=2><IMG alt="&alt&" hspace=0 src="&grafico&" align=absMiddle border=0></FONT></DIV><br><br>"
HTML = HTML & "<font face='Arial' size='3' color='#FFFFFF'><b>Confirmacion de Pedido de <A href="&url&"> Artellares.com</A></b><br><br> "
HTML = HTML & "<b>NºPedido: </b>" &Request.form("order_id")& "<br><br>"
HTML = HTML & "<b>Email: </b>" &Request.form("email")& "<br>"
HTML = HTML & "<b>Nombre: </b>" &Request.form("name")& "<br>"


HTML = HTML & "<b>Forma de Pago: </b>" &Request.form("formapago")& "<br>"
HTML = HTML & "<b>Comentarios: </b>" &Request.form("comment")& "<br><br>"


HTML = HTML & "<b>Cantidad: </b>" &Request.form("cant")& "<br>"
HTML = HTML & "<b>Modelo: </b>" &Request.form("desc")& "<br>"
HTML = HTML & "<b>Color: </b>" &Request.form("col")& " <br>"
HTML = HTML & "<b>Precio: </b>" &Request.form("prec")& " Euros <br>"
HTML = HTML & "<b>16%IVA: </b>" &Request.form("iva")& " Euros <br>"
HTML = HTML & "<b>4%RE: </b>" &Request.form("re")& " Euros <br>"
HTML = HTML & "<b>Total: </b>" &Request.form("total")& " Euros <br><br>"


HTML = HTML & "Gracias por tu compra<br>"


</font></BODY></HTML>"


objMail.From = "[email protected]"
objMail.Subject = "Pedido Artellares"
objMail.To = Request.form("email")
objMail.bcc = "" &receipt& ""
objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.Body = HTML

objMail.Send
set objMail = nothing
response.redirect "response.asp"
end if
%>
</body>
</html>
  #2 (permalink)  
Antiguo 25/08/2004, 01:54
 
Fecha de Ingreso: enero-2002
Ubicación: Aranjuez (Madrid)
Mensajes: 115
Antigüedad: 22 años, 4 meses
Puntos: 0
Creo q aqui está el fallo...
Si lo que quieres es q enviarlo con tudirección como copia oculta, pon aqui direcctamente tu dirección
objMail.bcc = "" &receipt& ""

p.e.
objMail.bcc = [email protected]

Aunque lo que yo te recomendaría es q tu dirección de correo (o la del webmaster o a la que te tienen que llegar) la metas en una variable de Aplicacion en el global.asa y que luego recuperes la variable, asi cuando cambies la dirección solo tendras q cambiarla en global.asa y el mantenimiento será mucho mas facil.

Un saludo
__________________
http://www.montatupc.com
Tu tienda de informática en la red
  #3 (permalink)  
Antiguo 25/08/2004, 02:04
 
Fecha de Ingreso: diciembre-2001
Mensajes: 28
Antigüedad: 22 años, 5 meses
Puntos: 0
Gracias Nithard,
efectivamente ese era el fallo, yo juraria que lo habia probado pero... te bloqueas y ya no sabia lo que hacia aun sabiendo que seria una chorrada.
Gracias de nuevo
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 12:26.