Naturally, first you've got to make a connection to the Database and get a little SQL going:
<%

Set MyConn=Server.CreateObject("ADODB.Connection")
MyConn.Open "PROVIDER=MSDASQL;" & _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"DBQ=" & server.mappath("MyDatabase.mdb")
MySQL="Select * from TableName"
Set MyRs=MyConn.Execute(MySQL)

This is the code that actually grabs all the email addresses from the FieldName called 'email'. Once it has all the email addresses (putting a semi-colon in between each of them), it puts it in a variable called 'MyVar'.
<%

MyRs.MoveFirst
MyVar= ""
delimiter = ""
do while not MyRs.eof
If Not IsNull(MyRs("email")) Then
MyVar= MyVar & delimiter & MyRs("email")
delimiter = "; "
End If
MyRs.movenext
loop%>

Here, we set up the Body of the message - whatever you want, put it here and add vbcrlfs for formatting:
<%

MyBody="This is everything I wanted to tell you." & vbcrlf & _ "Let Me know what you think & let me know." & vbcrlf & "Thank you for your support" & vbcrlf & "David Wier"

We're getting really close here - we instantiate the object that actually does the emailing. What I usually decide to do, is to put my own email address in as the main person to whom it's sent. That way, if I get it, I'm at least fairly certain that the mailing went through ok.
<%

Set objEmail = Server.CreateObject("CDO.message")
objEmail.To="elmo@wiggins.com"
objEmail.From = "Bobby@here.com"
objEmail.Subject = "This is the Subject of my Email!!"


Now - here's where we put in all the rest of the names. Remember that variable we created from the loop above? Well, this is where it goes - at least for me, that is. With all the email addresses in the BCC section, it looks like they're all sent individually (at least theoretically).
<%

objEmail.Bcc=myVar
objEmail.TextBody = MyBody
objEmail.Send


Here's where you can simply do a response.write to insure yourself that 'MyVar' did indeed, make up all the email addresses you had thought it should:
<%

Response.Write "Your Email was send to the following email addresses:" & MyVar

We must tidy up a little:
<%

MyRs.close
Set MyRs= Nothing
MyConn.Close
set MyConn=nothing
Set objEmail=Nothing