Der laver du et udtag, skriver mail'en og gentager indtil hele listen er igennem
Set rs = Server.CreateObject ("ADODB.Recordset")
sql = "SELECT * FROM maillinglist"
rs.Open sql, CONNECTION-STRING, 1, 2
While NOT rs.EOF
'mail-senderen (afhænger af hvilken server du er på)
rs.MoveNext
Wend
rs.close
set rs = Nothing