Jeg har en lille datingsite på nettet, hvor deltager skriver "breve" til
hinanden v.hj.a. en database. (
www.topdating.dk). Nu vil jeg gerne lave det
sådan, at jeg kan lave et udtræk af medlemslisten - f.eks. alle medlemmer
over 30 år - og sende en bestemt meddelelse til alle disse mennesker på en
gang. Men hvordan gør jeg det?
Koden her er forenklet for at gøre testning lettere, og i praksis vil der
være tid mellem at den første sql-søgning laves, og der hvor brevene rent
faktisk sendes afsted. Derfor mener jeg, at det klogeste må være, at skrive
det fundne recordset op som en applicationvariabel, da jeg så senere (når
brevet er udformet), kan hente det ned igen og bruge det til at sende
brevene efter.
Her er hvad jeg har forsøgt uden held:
<%
...........
' her vælger jeg ud hvem jeg vil sende mails til::
Sql = "select * from tbBruger where alder > 30"
Set rs = Conn.Execute(Sql)
' her skriver jeg recordsets for brugerNavn og brugerId op som
applicationvariable
' med det formål at kunne hente det ned på et senere tidspunkt:
Application.Contents("brugerNavn") = rs("brugerNavn")
Application.Contents("brugerId") = rs("brugerId")
' her er nogle testvariable (ændres i den endelige version):
emne2 = "Test-overskrift"
besked2 = "Test-besked"
' her henter jeg de 2 recordsets ned igen:
modtagerNavn2 = Application("brugerNavn")
modtagerId2 = Application("brugerId")
' her laver jeg et loop for at
do while not RS.eof
sql_insert = "insert into mail (afsenderNavn, afsenderId, modtagerNavn,
modtagerId, mailEmne, mailBesked) values ('" & afsenderNavn2 & "', '" &
afsenderId2 & "', '" & modtagerNavn2 & "', '" & modtagerId2 & "', '" & emne2
& "', '" & besked2 & "')"
set RS= Conn.execute(SQL_insert)
RS.movenext
loop
........
%>
Koden virker ikke. Der sættes ganske enkelt intet ind i db, og kommer ingen
fejlmelding, så jeg gør altså noget helt forkert. Jeg er i tvivl om man
overhovedet kan skrive et recordset op i en applicationvariabel sådan som
jeg forsøger? Og om man kan lave et loop med en sql_insert som vist?
Er der nogen, der kan finde fejlene i min kode?
v.h.
Jakob Munck