codice:
<%@ import namespace="system.data" %>
<%@ import namespace="system.data.oledb"%>
<%@ import namespace="system.web" %>
<%@ import namespace="system.web.mail" %>
<script language="VB" runat="server">
dim data as string="banca.mdb"
dim MyConn as new oledbconnection ("provider=microsoft.jet.OLEDB.4.0; data source=" & Server.MapPath("banca.mdb"))
Dim DS as new dataset("MyDataset")
'-------------------------------------------------
sub page_load(obj as object, e as eventargs)
dim MyCommand as new OleDBDataAdater (" select * from anagrafici", MyConn)
MyCommand.Fill(DS, "TblEmail")
RptEmail.DataSource = DS.Tables("TblEmail").DefaultView
end sub
'-------------------------------------------------
sub InviaMail(obj as object, e as eventargs)
Dim IDIns as Integer
For i = 0 to RptEmail.Items.Count - 1
	If CType(RptEmail.Items.Item(i).Controls(1), CheckBox).Checked Then
		'Invia la mail se è spuntata la casella
		dim mymessage as new mailmessage 
		mymessage.to = DS.Tables("TblEmail").Rows(i)(1)
		mymessage.from="pippo@iol.it" 
		mymessage.subject="soggetto" 
		mymessage.bodyformat=mailformat.text
		mymessage.body=messaggio.text 
		smtpmail.send(mymessage) 
	End If
Next i
end sub
'-------------------------------------------------
</script>
<html>
<body>
<form runat="server">
<asp:textbox id="messaggio" runat="server"/>


<ASP:Repeater ID="RptEmail" Runat="server">
	<HeaderTemplate>
		Tabella Email
	</HeaderTemplate>
	<ItemTemplate>
		Email:<%#Container.DataItem(1)%>
		<ASP:CheckBox Runat="Server" ID="MyCheck" Checked="False"/>
	</ItemTemplate>
	<FooterTemplate>
		<ASP:Button ID="BttInvia" Runat="Server" Text="Invia" OnClick="InviaMail"/>
	</FooterTemplate>
</ASP:Repeater>

</form>
</body>
</html>
Se hai bisogno di chiarimenti dillo.

PS: Evita titoli del tipo "Per tutti gli esperti..."