[ASP] zoekresultaat automatisch mailen

[Dutch_guy]

Ik ben bezig om een zoekprofiel pagina te maken. Als volgt:

Persoon logt in, zet neer dat hij een "BMW" zoekt. Deze waarde wordt vervolgens in de database geplaatst, bij die persoon zijn record. Tot zover geen enkel probleem.

Echter nu wil ik dat er iedere nacht het volgende gebeurt:

- Alle zoekwoorden moeten gematched worden met de database, en als er een match is dan moet er automatisch een mailtje gestuurd worden naar die persoon.

Ik heb nu het volgende:

[code]
<%
Dim objMail
Set objMail = Server.CreateObject("CDONTS.NewMail")

objMail.From = "[e-mail]"
objMail.Subject = "Test"
objMail.To = "[e-mail]"
objMail.Body = (rsSearch.Fields.Item("String").Value)
objMail.Send

Response.write("Mail verstuurd")
set objMail = nothing
%>

Echter in bovenstaande voorbeeld wordt alleen het zoekwoord zelf gemaild.

Het is echter de bedoeling dat diegene de zoekresultaten te zien krijgt.

Dus zoekwoord is BMW, er wordt gezocht en resultaten (als die er zijn) worden gemaild naar die persoon.

Iemand een idee ?

[ Voor 5% gewijzigd door Dutch_guy op 17-04-2003 15:38 ]

[gorgi_19]

Gewoon in een loopje plaatsen en dan dat als bodyresultaat neerzetten?

[Dutch_guy]

Ik heb nu het volgende:

[code]
<%
DO UNTIL rsSearch.EOF
Dim objMail, sqlsearch
Set objMail = Server.CreateObject("CDONTS.NewMail")
sqlresult = ?
objMail.From = "[e-mail]"
objMail.Subject = "Test"
objMail.To = "[e-mail]"
objMail.Body = sqlresult
objMail.Send
rsSearch.MoveNext
Loop
Response.write("Mail was Sent")
set objMail = nothing
%>

Ik kom er alleen niet uit om de query te plaatsen op de plek van de "?"

Ik heb twee tabellen namelijk: "Type" en "Users"

Bijvoorbeeld als volgt:

Type:
BMW
Mercedes
Opel

Users:
E-mail: [e-mail] String: BMW

E-mail: [e-mail] String: Opel

etc....

Nu is het de bedoeling dat de database doorzocht wordt. Als de "String" voorkomt in de tabel "Type", dan moet de waarde uit de tabel "Type" worden gestuurd in de body van de e-mail.

[gorgi_19]

Denk eens na wat je nu doet...
Voor iedere HIT stuur je nu een mailtje naar een persoon.. Stel dat je 1000 hits hebt..

Je moet de generatie concenaten, niet de email.

code:

Dim strResult as string
Do while not objRecordset.EOF
   strResult &= strResult & "blaat:" & objRecordSet("Blaat2")
    objRecordset.MoveNext
Loop
...
objMail.Body = strResult

[ Voor 52% gewijzigd door gorgi_19 op 17-04-2003 17:30 ]

[dusty]

string = string + CrLf + andere string

mail string

Standaard string bewerking.