Проект Кабина для голосования
Проект День рождения
Проект Рассылка почты

<asp:TextBox
Id="txtMessage"
Columns="40"
Rows="5"
runat=server
TextMode="MultiLine"
/>

<asp:RequiredFieldValidator
id="rfvMessage"
ControlToValidate="txtMessage"
Display="Dynamic"
Font-Name="Verdana"
Font-Size="lOpt"
runat=server>
<ВК>Неовходимо' ввести текст письма!
</asp:RequiredFieldValidator>

<asp:button
id="butOK"
text=" OK "
Type="Submit"
OnClick="SubmitBtn_Click"
runat="server"
/>

Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
If Not IsPostBack Then
Dim DBConn as OleDbConnection
Dim DBCommand As OleDbDataAdapter
Dim DSPageData as New DataSet
DBConn = New OleDbConnection("Provider=sqloledb;" _
& "server=localhost;" _
& ""sInitial Catalog=INETC4;"
& "User Id=sa;"
& "Password=yourpassword;")
DBCommand = New OleDbDataAdapter _
("Select Distinct GroupName from Customers " _
& "Order By GroupName", DBConn)
DBCommand.Fill(DSPageData, _
"Groups")
ddlGroupName.DataSource = _
DSPageData.Tables("Groups").Defaultview
ddlGroupName.DataBind()
End If
End Sub

If Not IsPostBack Then

DBCommand - New OleDbDataAdapter _
("Select Distinct GroupName from Customers " _
& "Order By GroupName", DBConn)
Данные помещаются в объект DataSet:
DBCommand.Fill(DSPageData, _
"Groups")

ddlGroupName.DataSource = _
DSPageData.Tables("Groups").Defaultview
ddlGroupName.DataBind()

Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
Dim DBConn as OleDbConnection
Dim DBCommand As OleDbDataAdapter
Dim DSPageData as New DataSet
Dim TheMailMessage as New MailMessage
Dim TheMailConnection as New SmtpMail
Dim I as Integer
DBConn = New OleDbConnection("Provider=sqloledb;" _
& "server=localhost;" _
& "Initial Catalog=INETC4;H
& "User Id=sa;n _
& "Password=yourpassword;")
DBCommand = New OleDbDataAdapter _
("Select Distinct CustomerEmail from Customers "_
& "Where GroupName = '" _
& ddlGroupName.Selectedltem.Text & "'", DBConn)
DBCommand.Fill(DSPageData, _
"Emails")
TheMailMessage.From = txtFrom.Text
TheMailMessage.Subject = txtSubject.Text
TheMailMessage.Body = txtMessage.Text
For I = 0 to DSPageData.Tables("Emails"). _
Rows.Count - 1
TheMailMessage.To - DSPageData.Tables("Emails"). _
Rows(O).Item("CustomerEmail")
TheMailConnection.Send(TheMailMessage)
Next
if DSPageData.Tables("Emails").Rows.Count = 1 then
IblMessage.Text = "Ваше сообщение отправлено 1" _
& " адресату. Можете осуществить новую рассылку."
Else
IblMessage.Text = "Ваше сообщение отправлено " _
4 DSPageData.Tables("Emails").Rows.Count _
& " адресатам. Можете осуществить новую рассылку."
End If
End Sub