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>