<% ' connect to the MS Access database in the same directory strDbPath = Server.MapPath(".") & "\users.mdb" ConnectStr = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & strDbPath Set rs = Server.CreateObject("adodb.recordset") rs.Open "users", ConnectStr, 2, 3 If Request("Send") <> "" Then ' send email to all users Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = strHost Mail.From = "falecom@passofeliz.com.br" Mail.FromName = "Fale Conosco - Web Form" Mail.Subject = Request("Subject") Mail.Body = "Nome: " & Request("Nome") & chr(13) &chr(10) & chr(13) &chr(10) & "Tipo de Contato: " & Request("Tipo de Contato") & " - " & Request("Contato") & chr(13) & chr(10) & chr(13) & chr(10) & "Mensagem: " & chr(13) & chr(10) & chr(13) & chr(10) & Request("Body") ' read address from DB and put them in the BCC field While not rs.EOF Mail.AddBcc rs("email"), rs("name") rs.MoveNext Wend ' finally: send message Mail.Send Response.Redirect "ok.htm" Else ' simply display the list of users in the database 'Response.Write "Currently in the user database:

" 'While not rs.EOF 'Response.Write rs("name") & " (" & rs("email") & ")
" 'rs.MoveNext 'Wend End If %>