ordrer_numRows = 0 ' '**Save cart to OrderDetails table in Database** ' if Request("CC_OrderInsert") <> "" then 'Bindingvalues=(",antal,vare,,") UniqueIdValue=Session("MM_Username") UniqueIdColumn="brugernavn" CC_RedirectURL="tak.asp" sub SaveToDatabase(ODRecordset) ODRecordset.AddNew ODRecordset.Fields(UniqueIdColumn)=UniqueIdValue ODRecordset.Fields("antal")=CCcart(CC_Quantity,i) ODRecordset.Fields("vare")=CCcart(CC_Name,i) ordrer.Update end sub for i=0 to ubound(CCcart,2) if CCcart(CC_ProductID,i) <> "" then Call SaveToDatabase(ordrer) end if next Response.Redirect "tak.asp"
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Du kan udvide denne til at lave en streng med vare:
for i=0 to ubound(CCcart,2) if CCcart(CC_ProductID,i) <> "" then Call SaveToDatabase(ordrer) bodyStr = bodyStr & CCcart(CC_Quantity,i) & "stk " & CCcart(CC_Name,i) & vbCrLf end if next
Så har du bodyStr som inde holder varene.. Så lige før linie: Response.Redirect "tak.asp"
Tilføjes: Set Jmail = Server.CreateObject("JMail.Message") JMail.Sender = "shop@shoppen.dk" JMail.AddBCCRecipient "din_mail_adr_som_skal_havde_en_mail@xx.dk"
Så mangler jeg bare prisen, men jeg kan godt se at det ikke er med i min kode her, så det må jeg jo kikke på :-)
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.