aspmail kan man bruge loop?

det forstår jeg ikke - vil du have dem i en mail? Eller skal de udskrives endnu engang i mailen?

/hiks

jeg har en bestillingsformular med en hulens masse vare som kan markeres og derefter lægges i "indkøbskurven" efter endt handel sender jeg kunden en mail med modtager oplysninger, antal vare, pris osv

i den mail som jeg sender til kunden efter endt bestilling ville jeg meget gerne liste alle de vare kunden har købt op i en fin række, så kunden kan se hvad det er han har betalt for på et senere tidspunkt.

men hvordan hulen får man det???

Alle oplysningerne ligger i databasen lige til at gå til, som sagt har jeg jo hentet alle andre oplysninger og sendt dem.. kan bare ikke greje det med at skulle loope

Duno :-)

det var bedre! :o)

vi skal ha fat i din sql sætning og se hvad du laver der.

/hiks

og så må jeg nok også lige høre om du har været igang med aspmail?

/hiks

ja... aspmail kan jeg godt bruge.. henter jo allerede alt det andet data.. ogsp fra databasen. osv

min sætning ser ud som følgende:

nameSTR = "Select * From brugere Where email LIKE '" & Request.QueryString("email") & "'"

ook men hvor kommer alle dine varer fra og hvilken relation af brugere tabellen til vare tabellen?

/hiks

jeg har lige smidt et forslag men det er lidt svært uden at vide hvilken tabel du har dine varer i.

<%@ Language=VBScript %>
<%
Function SendEmail(modtagerNavn, modtagerEmail, emne, tekst)

    Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
    Mailer.FromName  = "Din webshop"
    Mailer.FromAddress= "din afsender emailadresse"
    Mailer.RemoteHost = "mailhost.dinhost.dk" 'din hosts websmtp adresse
    Mailer.AddRecipient modtagerNavn, modtagerEmail
    Mailer.Subject    = emne
    Mailer.BodyText  = tekst '"Dear Stephen" & VbCrLf & "Your widgets order has been processed!"
   
    if Mailer.SendMail then
      SendEmail = True
    else
      SendEmail = False
    end if

    Set Mailer = Nothing
End Function

'din sql og åbning af

dim sql, tekst, emne
sql = "Select * From brugere Where email LIKE '" & Request.QueryString("email") & "';"

'//BEMÆRK I OVENSTÅENDE AT DU MANGLER RELATION TIL EN TABEL MED VARER I. MEDMINDRE DET ER I SAMME TABEL!

'sammensæt din mail
emne = "Bestillingsbekræftelse"
tekst = "Du har bestilt følgende: " & vbCrlf & vbCrlf

While ditRS.EOF = False
    tekst = tekst & ditRS("Antal") & " stk. " & ditRS("Vare") & vbCrlf
    ditRS.Movenext
Wend

tekst = tekst & vbCrlf & "Vi takker for din bestilling!"

If SendEmail(ditRS("brugernavn"), ditRS("email"), emne, tekst) = True then
    'flyt til den side du nu vil eksempelvis
    'response.redirect "forsiden.asp"
Else
    'lav en log eller lign over fejlafsendte mails eller lav et forsøg på at sende igen
    'dette kan også skyldtes en fake emailadresse - så du kan også slette ordren hvis du vil
End if

%>

/hiks

sorry..

min fejl.. det skulle være den her streng

nameSTR2 = "Select * From ordrer Where email LIKE '" & Request.QueryString("email") & "'"

det er grundlæggende email jeg har brugt som min unikke værdi i alle sammenhænge.. der er ikke 2 mennesker der har den samme email..

og så kan jeg bruge den på et senere tidspunkt til at hente kontaktoplysningerne ud fra emailadressen

Duno :-)

ok jeg ville forslå dig at lave et inner join på de to:

SQL = "SELECT * FROM ordrer INNER JOIN brugere ON brugere.email = ordrer.email WHERE email LIKE '" & Request.QueryString("email") & "';"

prøv sådan i det ovenstående!

/hiks

en anden ting jeg lige lagde mærke til ang. dine QueryStrings så er der ikke smart at putte noget så essentielt som email adresse i en QueryString - det kan være utrolig let at fuske med medmindre du er påpasselig.

er din bestillingsside noget man skal være logget på for?

/hiks

Nej man skal ikke være logget på for at handle, men det med min QueryString er løst sådan at det eneste tidspunkt de bliver vist er når selve handlen er afsluttet.

men jeg har lige et spørgsmål.. hvad mener du med DitRS???

hej

var lige ude af døren - ditRS er dit recordset altså hvad der kommer fra din database. Du kalder det RS2!

/hiks

hmm.. det eneste jeg får i mailen er

Du har bestilt følgende:


Vi takker for din bestilling!

var det ikek også det du ville - hehe... Nå så må vi jo i træningsdragten...

Bruger du den inner join nu? har du evt. prøve at udskrive den og teste den i din database at den giver nogle resultater?

/hiks

hmm.. hvad kan jeg sige.. tror sku den er der!!!!

det er super!!

Min fejl, Antal skulle være antal og Vare skulle være vare.
intet under at den ikke fandt noget :-)

points er dine samt et STORT tak (min side har været færdig i 3 dage, har bare manglet denne del)

Stort tak..

Må jeg vente med at betale dig til jeg har bygget resten af mailen op, i tilfælde af andre uforstålige fejl (det bliver færdigt idag) hvis ikke så er det bare cool og jeg sender point med det samme (de er jo dine)

Stort tak

Duno :-)

du spørger bare - men svarer nok ik før i morgen tidlig... Skal til drømmeland!

men kigger på det i morgen hvis der er noget! Smider svar nu - så kan du bare vente med at acceptere!

go weekend

/hiks

ok det var ikke længe jeg var om det... :-(

hvordan hulen får jeg det lagt ind i en tabel...

jeg skal jo have sat antal,vare,pris ud for hinanden men hvis man køber mange ting kan det jo blive uoverskuligt... skal jo også neders indsætte samlet pris.. det er der trods alt styr på...

ok - inde i din funktion skal du have en property sat der er:

Mailer.ContentType = "text/html" 'så kan vi lave tabeller i mailen.

Løkken udenfor funktionen bliver så:

tekst = tekst & "<table><tr><td>Antal</td><td>Vare</td><td>Pris</td></tr>" 'overskrifter
While ditRS.EOF = False
    tekst = tekst & "<tr><td>" & ditRS("Antal") & " stk. </td><td>" & ditRS("Vare") &"</td><td>" & ditRS("Pris") & "</td></tr>"
    ditRS.Movenext
Wend

tekst = tekst & "</table>" 'luk tabel

'osv osv

/hiks

Hej hiks

Skal vi ikke afslutte dette år med samtidig at afslutte dette spørgsmål, du må undskyld at jeg har været "lidt" lang tid om at godtage dit svar, men godkendelse det skal du have.

tak for hjælpen, det var lige hvad jeg manglede :o)

Duno :-)