Avatar billede swing Nybegynder
26. februar 2003 - 19:57 Der er 1 kommentar og
1 løsning

Send ordre med Jmail

Jeg har en lille shop der gemmer ordren i en Access database. Men jeg vil gerne have den til at sende ordren til køber og sælger også.

Jeg havde forestillet mig at det kunne lade sig gøre via den side der gemmer ordren i databasen men jeg kan ikke selv finde ud af det.

Jeg tror det er lidt problematisk og er da også villig til at yde mere end point

Her er koden:


Dim ordrer
Dim ordrer_numRows

Set ordrer = Server.CreateObject("ADODB.Recordset")
ordrer.ActiveConnection = Conn
ordrer.Source = "SELECT * FROM ordrer"
ordrer.CursorType = 0
ordrer.CursorLocation = 2
ordrer.LockType = 3
ordrer.Open()

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"

end if
Avatar billede eagleeye Praktikant
26. februar 2003 - 20:15 #1
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"

JMail.AddRecipient "din_Kundes_email_adr@xx.dk"

JMail.Subject = "Din Order"

JMail.Body = "Hej" & vbCrLf & vbCrLf
JMail.Body = JMail.Body & "Du har bestil følgene vare" & vbCrLf
JMail.Body = JMail.Body & bodyStr
JMail.Body = JMail.Body & vbCrLf
JMail.Body = JMail.Body & "Tak for din bestilling." & vbCrLf & vbCrLf
JMail.Body = JMail.Body & "Hilsen xxxx"

Jmail.Send("mail.server.dk")

Set Jmail = Nothing
Avatar billede swing Nybegynder
26. februar 2003 - 20:37 #2
Det var dog kanon, < Tusind tak !!

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å :-)
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester