Carrito de compra con imagenes

[flashman]

no soy muy experto en asp pero..........
estoy modificando un carrito de compras, ya funciona casi al 100% con una base de datos en access sin usar dsn... pero aparte de insertar las compras en una base de datos con sus productos necesito que se manden por correo el pedido... eh puesto que los datos que se capturen se manden pero al meter un query para mandar los productos no manda ningun dato.... ya llevo dias con este problema asi que ..... ya sueño el codigo

si alguien le interesa quedarse con este sistema les mando todos los asp's junto con la bd... si me ayudan a terminarlo... es decir no lo envio para que lo terminen si no que puedan encontrar mi error o mi horror a la hora de mandarle los datos al aspmail

ya see he caido en la desesperacion pero no lo puedo terminar

[u_goldman]

Pero el problema en si radica en mandar el mail? la transacción si la registra? que componente estás utilizando para el envío de mails?

Salu2,

[flashman]

si la guarda en la BD, incluso si dejo como comentario desde el query hasta los campos del cuerpo del mail si manda los datos capturados del cliente....

probablemente pienso que hago mal algo con el query

[u_goldman]

mmmhhh bueno si te manda algun error ponlo aqui junto con el código y lo vemos.

[flashman]

este es lo que uso para mandar el correo


<%
dim Destino, servidor, titulo, Origen, Mail, strBody
Destino = "[email protected]"
servidor = "mail.sitio.com"
titulo = "Pedido"


Set Mail = Server.CreateObject("Persits.MailSender")

strBody = strBody & "<font face='Verdana, Arial, Helvetica, sans-serif' size='2' color='#555555'>"
strBody = strBody & "Mi nombre es: "
strBody = strBody & "<b>" & FName & "</b><br><br>"
strBody = strBody & "Mi e-mail es: "
strBody = strBody & "<b>" & Email & "</b><br><br>"
strBody = strBody & "Trabajo en la Empresa: "
strBody = strBody & "<b>" & LName & "</b><br><br>"
strBody = strBody & "Mi Telefono es: "
strBody = strBody & "<b>" & Tel & "</b><br><br>"
strBody = strBody & "Mi Direccion es: "
strBody = strBody & "<b>" & Dir & "</b><br><br>"
strBody = strBody & "En la ciudad de: "
strBody = strBody & "<b>" & Ciudad & "</b><br><br>"

Call buscar()

rs.MoveFirst

while not rs.EOF
strBody = strBody & "Mi Pedido es: "
strBody = strBody & "<b>" & Name & "</b><br><hr><br>"
strBody = strBody & "Cantidad: <br>"
strBody = strBody & "<b>" & quantity & "</b><br><hr><br>"
rs.MoveNext
wend

strBody = strBody & "Tiempo de Entrega Requerido: <br>"
strBody = strBody & Tiempo & chr(10)
strBody = strBody & "</font>"


Mail.Host = servidor
Mail.Port = 25
Mail.From = Origen
Mail.FromName = Email
Mail.Subject = titulo
Mail.Body = strBody
Mail.IsHTML = True
Mail.AddAddress Destino


On Error Resume Next

Mail.Send


If Err <> 0 Then
Response.Write "popup.mensaje=Error, envíelo mas tarde " & Err.Description
Else
Response.Write "popup.mensaje=Mensaje enviado correctamente."
End If

Set Mail = Nothing

%>




la funcion que mando llamar contien esto


Function buscar()

OrderID = request.querystring("qryID")

path = Server.MapPath(".")
databaseName = "plane.mdb"
'connectionString = "DRIVER={Microsoft Access Driver (*.mdb)};" & _
' "DBQ=" & path & "\" & databaseName & ";"
connectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
& path & "\" & databaseName

'Set sql string
sqlString = "select * from OrderDetails, PlaneInventory " & _
" where OrderDetails.ProductID=PlaneInventory.ProductID " & _
" AND OrderID=" & OrderID
sqlString = sqlString & " Order By ProductName"

set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sqlString, connectionString

End Function

[u_goldman]

y el error?

[flashman]

no me marca error pero no manda los productos ni la cantidad de productos

[u_goldman]

Bueno, revisando rápidamente tucódigo, una función necesariamente te debe regresar un valor, y mejor si el OrderID se lo mandas como argumento, no veo por qué utilizas el método request para recuperar un valor...
por lo tanto, Call lo usas regularmente en subprocediemientos, aqui lo que necesitas es que la función te regrese un valor..llevate este código para tu función y pásale el orderID


Function buscar()

OrderID = request.querystring("qryID")

path = Server.MapPath(".")
databaseName = "plane.mdb"
'connectionString = "DRIVER={Microsoft Access Driver (*.mdb)};" & _
' "DBQ=" & path & "\" & databaseName & ";"
connectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
& path & "\" & databaseName

'Set sql string
sqlString = "select * from OrderDetails, PlaneInventory " & _
" where OrderDetails.ProductID=PlaneInventory.ProductID " & _
" AND OrderID=" & OrderID
sqlString = sqlString & " Order By ProductName"

set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sqlString, connectionString

while not rs.EOF
strBody = strBody & "Mi Pedido es: "
strBody = strBody & "<b>" & Name & "</b><br><hr><br>"
strBody = strBody & "Cantidad: <br>"
strBody = strBody & "<b>" & quantity & "</b><br><hr><br>"
rs.MoveNext
wend

strBody = strBody & "Tiempo de Entrega Requerido: <br>"
strBody = strBody & Tiempo & chr(10)
strBody = strBody & "</font>"
Buscar = strBody
End Function

'Dentro de la rutina para mandar el mail
strBody = Buscar(request.querystring("orderID"))

Algo así

Salu2,

[flashman]

sigue el mismo problema cuando le quiero incluir los productos seleccionados no manda ningun dato capturado

[flashman]

all i want for x mas is this $&^%&##$ cart