Carrito de compra con imagenes

[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,