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.
Kommunerne har digitaliseret indgangen for borgerne. Men bag skærmen håndteres mange arbejdsgange stadig manuelt mellem systemer, mails og organisatoriske siloer.
----------------------- <% \' 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.
