varekurv overført til mail

hvad er dine databaseværdier?

hvis du er villig til at hjælpe mig via msn, så kan jeg give dig ftp adgang og så poster jeg resultatet her så man kan se hvordan det skal se ud.

nu har jeg fået sat det op som man skal, ville jeg mene, men jeg får godt nok en fejl på den alligevel.

fejlen kommer her:

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'BrevBody.AddRecipient'

/send_order.asp, line 9

og linje 9 kommer her:

BrevBody.AddRecipient  = request.Form("order_form_email")

det ser ud som om der er fejl i afsendelsen af mailen.
prøv at paste hele koden

det har jeg prøvet, jeg har også prøvet at skrive en mail adresse ind

BrevBody.AddRecipient = "torh@mail.dk"

den det virker heller ikke

prøv at kopiere hele din kode ind her i forummet, så kan jeg så den..

Set BrevBody = Server.CreateObject("JMail.SMTPMail")
    BrevBody.ServerAddress = "smtp.mail.dk"
    BrevBody.Sender        = "millet-design@mail.dk"
    BrevBody.AddRecipient  = "torh@mail.dk"
    BrevBody.Subject      = "Orderbekræftelse"
    BrevBody.Priority      = 3
     
    BrevBody = "Tak for bestilling fra min e-butik" & vbCrLf & vbCrLf
    BrevBody= BrevBody & "Jeg sender nu en ordrebekræftelse, svarer ordren i emailen ikke til det du har bestilt, så kontakt hurtigst muligt os, via emailen i bunden." & vbCrLf & vbCrLf   
    BrevBody= BrevBody & "" & vbCrLf & vbCrLf 
    BrevBody= BrevBody & "Ordren indhold :" & vbCrLf & vbCrLf
    BrevBody= BrevBody & "Antal  Vare Nummer          Vare navn          Pris/Stk.  Beløb" & vbCrLf & vbCrLf
    BrevBody= BrevBody & "-----------------------------------------------------------------" & vbCrLf & vbCrLf

varetotalen=0
sql="select * from varekurv where sessionsid='"&session.sessionid&"'"
set record2=rs.execute(sql)
do while not record2.eof
sql="select * from vare where vareid='"&record2("vareid")&"'"
set record=rs.execute(sql)
x=1
varetotal=record2("antal")*record("varepris")
varetotalen=varetotalen+varetotal

    BrevBody= BrevBody & record2("antal")
    BrevBody= BrevBody & record("varenummer")
    BrevBody= BrevBody & record("varenavn")
    BrevBody= BrevBody & formatnumber(record("varepris"),2)
    BrevBody= BrevBody & formatnumber(varetotal,2)&vbcrlf
record2.movenext
loop

    BrevBody= BrevBody & "" &vbcrlf

    BrevBody= BrevBody & "I alt ekskl. fragt & moms"
    BrevBody= BrevBody & formatnumber(varetotal,2)&vbcrlf

    BrevBody= BrevBody & "Fragt"
    BrevBody= BrevBody & "20,00"&vbcrlf

    BrevBody= BrevBody & "I alt inkl. fragt"
    BrevBody= BrevBody & formatnumber(varetotalen+20,2)&vbcrlf

    BrevBody= Brevbody & "Moms (25%)"
    BrevBody= BrevBody & formatnumber((varetotalen+20)*0.00,2)&vbcrlf

    BrevBody= BrevBody & "I alt inkl. moms"
    BrevBody= BrevBody & formatnumber((varetotalen+20)*1.00,2)&vbcrlf

    BrevBody.Execute

Set BrevBody = Nothing

på line 9 prøv at skrive: BrevBody.AddRecipient "torh@mail.dk"
(altså uden "=")

det får jeg denne her fejl ud af

Microsoft VBScript runtime error '800a01a8'

Object required: 'BrevBody'

/send_order.asp, line 61

og linje 61 ser selvfølgelig sådan her ud:

BrevBody.Execute

På linien før "BrevBody.Execute" skal du indsætte dette:

tmpBrevBody = BrevBody
BrevBody.Body = tmpBrevBody

så får jeg denne her fejl:

Microsoft VBScript runtime error '800a01a8'

Object required: 'BrevBody'

/send_order.asp, line 62


og linje 62 ser sådan her ud:

BrevBody.Body = tmpBrevBody

det er fordi du har 2 variabler som du bruger til det samme.
prøv denne kode:

Set BrevBody = Server.CreateObject("JMail.SMTPMail")
    BrevBody.ServerAddress = "smtp.mail.dk"
    BrevBody.Sender        = "millet-design@mail.dk"
    BrevBody.AddRecipient "torh@mail.dk"
    BrevBody.Subject      = "Orderbekræftelse"
    BrevBody.Priority      = 3
     
    MailIndhold = "Tak for bestilling fra min e-butik" & vbCrLf & vbCrLf
    MailIndhold = MailIndhold & "Jeg sender nu en ordrebekræftelse, svarer ordren i emailen ikke til det du har bestilt, så kontakt hurtigst muligt os, via emailen i bunden." & vbCrLf & vbCrLf   
    MailIndhold = MailIndhold & "" & vbCrLf & vbCrLf 
    MailIndhold = MailIndhold & "Ordren indhold :" & vbCrLf & vbCrLf
    MailIndhold = MailIndhold & "Antal  Vare Nummer          Vare navn          Pris/Stk.  Beløb" & vbCrLf & vbCrLf
    MailIndhold = MailIndhold & "-----------------------------------------------------------------" & vbCrLf & vbCrLf

varetotalen=0
sql="select * from varekurv where sessionsid='"&session.sessionid&"'"
set record2=rs.execute(sql)
do while not record2.eof
sql="select * from vare where vareid='"&record2("vareid")&"'"
set record=rs.execute(sql)
x=1
varetotal=record2("antal")*record("varepris")
varetotalen=varetotalen+varetotal

    MailIndhold = MailIndhold & record2("antal")
    MailIndhold = MailIndhold & record("varenummer")
    MailIndhold = MailIndhold & record("varenavn")
    MailIndhold = MailIndhold & formatnumber(record("varepris"),2)
    MailIndhold = MailIndhold & formatnumber(varetotal,2)&vbcrlf
record2.movenext
loop

    MailIndhold = MailIndhold & "" &vbcrlf

    MailIndhold = MailIndhold & "I alt ekskl. fragt & moms"
    MailIndhold = MailIndhold & formatnumber(varetotal,2)&vbcrlf

    MailIndhold = MailIndhold & "Fragt"
    MailIndhold = MailIndhold & "20,00"&vbcrlf

    MailIndhold = MailIndhold & "I alt inkl. fragt"
    MailIndhold = MailIndhold & formatnumber(varetotalen+20,2)&vbcrlf

    MailIndhold = MailIndhold & "Moms (25%)"
    MailIndhold = MailIndhold & formatnumber((varetotalen+20)*0.00,2)&vbcrlf

    MailIndhold = MailIndhold & "I alt inkl. moms"
    MailIndhold = MailIndhold & formatnumber((varetotalen+20)*1.00,2)&vbcrlf

    BrevBody.Body = MailIndhold
    BrevBody.Execute

Set BrevBody = Nothing

ups, vent lige

hehe nej det var rigtig nok.. ikke noget alligevel.. prøv med den kode jeg skrev

ja så kom der sgu en mail igennem. Takker for hjælpen. Lig et svar så du kan få pointene.

Det var så lidt!

måske jeg også kan få dig til at rette selve mailen til så det står som det skal?