18. januar 2001 - 18:29Der er
1 kommentar og 1 løsning
sende med jmail fra flere kategorier
Jeg har et lille haste-problem.
Jeg har to databaser, kategori.mdb og brugere.asp
Jeg har i kategori.mdb et antal kategorier. I brugere.asp er der de brugere der abonnere på mailing-listerne.
Det jeg gerne vil have er at i stedet for at gentage sende-koden XX gange for at sende til alle kategorierne, så gentages den samme kode blot XX antal gange, men sender til de forskellige kategorier.
Jeg kunne forestille mig noget i retning af dette:
Åbne kategori.mdb Åbne brugere.mdb Start loop af kategorier Vælge de poster i brugere hvor kategorien er lig kategorien i kategori.mdb Sende mailen ud til dem der abonnere på denne kategori. Loop Slut
Mit problem ligger i at få lavet den kode til at loope gennem kategorierne, jeg har prøvet adskellige ting i løbet af dagen, men den ene mere usmart end den anden.
----------------------- <% \' Opretter forbindelse til kategori.mdb strKategori_DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=STI TIL DIN DB\\kategori.mdb\" set KatConn = server.CreateObject(\"ADODB.Connection\") KatConn.Open strKategori_DSN
\' Opretter forbindelse til brugere.mdb strBruger_DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=STI TIL DIN DB\\brugere.mdb\" set BrugerConn = server.CreateObject(\"ADODB.Connection\") BrugerConn.Open strBruger_DSN
\' Finder Kategorierne i DB kategori.mdb strSQL = \"SELECT * FROM kategorier\" set KategorierRS = KatConn.Execute(strSQL)
\' Start på kategori loop Do until KategorierRS.eof
\' Henter kategorien ud i en variabel strKategori = KategorierRS(\"kategori\")
\' Henter brugerne der har denne kategori strSQL = \"SELECT * FROM brugere WHERE kategori = \" & strKategori Set BrugerRS = BrugerConn.Execute(strSQL)
\' Looper Alle brugerne igennem i kategorien Do until BrugerRS.eof strName = BrugerRS(\"Navn\") strEmail = BrugerRS(\"email\")
\'############## \' DIN rutine der sender email skal ligge her ! \'##############
BrugerRS.movenext Loop
KategorierRS.movenext Loop
\' Lukker pænt igen ! Set KategorierRS = nothing Set CRM_oRs = nothing
Det var ikke det jeg søgte... fandt selv ud af det imens.
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.
