Mandar Datos

[MakuMar]

Hola
Tengo hecho un carrito de compra y todo va bien, pero necesito que me mande los datos de la compra a traves de un formulario a la base de datos.
Por mas que lo intento no lo consigo y ya estoy bloqueada.

Si alguin me puede ayudar se lo agradezco mucho.

Un Saludo y gracias

[DeLaVega]

¿Qué parte no te sale? ¿Qué error te tira? Si ponés el código entre todos te ayudamos.
Saludos, suerte.

[univercity]

De la vega tiene razon con un poco mas de explicacion y si pones el codigo y el error... te ayudamos....


Slds.

[maestro]

En ocasiones debemos enviar datos de una base de datos por correo, listas de novedades, temas suscritos, foros, anuncios, etc.
Este script hace uso de ASPEMAIL y OLEDB para enviar registros de una bd de Access.
Recorremos el recordset y vamos almacenando en una variable el texto que luego usamos como BODY del mesaje.

Tambien podeis usarlo con CDONTS con solo cambiar las 4 llineas del apartado ENVIO MAIL

<%
email=request("email") ' obtenemos la direccion del destinatario de un formulario de la pagina anterior
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("tubase.mdb")&";"
SQL="SELECT * FROM tutabla"
rs.Open SQL, oConn,1,2

'envio mail
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.tudominio.com"
Mail.From = "[email protected]"
Mail.FromName = "Departamento de Novedades"
Mail.AddAddress email ' Recuperamos la direccion del formulario

Mail.Subject = "Texto del asunto del mensaje"
'comenzamos el bucle que va añadiendo lineas de los registros al cuerpo del mensaje
do while not rs.eof
cuerpo= cuerpo & rs("campo1") & rs("campo2") &"<br>"
rs.movenext
loop

'definimos el cuerpo como el conjunto de lineas obtenidas del bucle
Mail.body = cuerpo

'Limpiamos objetos y cerramos las conexion con la BD
rs.Close
oConn.Close
set rs=nothing
set oConn=nothing

'Comprobamos si el correo se pudo enviar, o la direccion era incorrecta u otros errores
On Error Resume Next
response.write("El correo ha sido enviado a " & email & "<br>" & "Gracias por visitarnos")
Mail.Send ' ó Mail.SendToQueue
If Err <> 0 Then
Response.Write "Ha ocurrido un error: " & Err.Description
End If
%>

Podéis ver una copia completamente operativa en:
www.musicatotal.es.vg
Enviaros a vosotros mismo la lista de novedades a vuestro correo.

Esta mucho mas conseguido, envía tablas, imágenes y otros formatos HTML pero eso ya os lo dejo para que lo trabajeis un poco