18. januar 2001 - 18:29
Der 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.
Jeg håber I kan hjælpe...
18. januar 2001 - 19:07
#1
Dette kan dette evt. bruges ????
-----------------------
<%
\' 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
KatConn.Close
BrugerConn.Close
Set KatConn = nothing
Set BrugerConn = nothing
%>
-----------------------
