SQL = "SELECT * FROM elista WHERE nyhetsbrev = Ja"
rs.Open SQL, Connect
Do While Not rs.EOF
Set mail = CreateObject("CDONTS.NewMail")
mail.To = rs("eadress")
mail.From ="sten.mortensen@comtech-data.se"
mail.Subject = "Nyhetsbrev"
contents = "brevet"
mail.Body = "contents"
mail.BodyFormat = 0
mail.MailFormat = 0
mail.Send
rs.MoveNext
Loop
Set mail = Nothing
Connect.Close
Genererar "to few parameters"
Medan denna:
SQL = "SELECT * FROM elista WHERE nyhetsbrev = Ja"
rs.Open SQL, Connect
Do While Not rs.EOF
Response.Write rs("eadress")
rs.MoveNext
Loop
Connect.Close
snällt skriver ut de adresser som finns i kolumnen "eadress"
Att lufta skallen däremot, kanske inte är en så dum idé ;) Fnuttsystematiken visste jag ju när jag tänkte efter, men har man tuggummi i skallen så blir det segt ibland :e
Tack igen.
/webb
------------------ Vem ska du göra glad imorgon?
264 ms totalt · 4 externa anrop · v20260731065814-full.1dc6f849