Проект Управление баннерами
Проект Отправка файлов
Проект Доска сообщений

<asp:button
id="butOK"
text=" OK " .
Type="Submit"
OnClick-"SubmitBtn_Cliclc"
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;" _
& "Initial Catalog-INETCT;"
& "User Id=sa;"
& "Password-yourpassword;")
DBCommand = New OleDbDataAdapter _
("SELECT FileTitle, FileName from Files " _
& "Order By FileTitle", DBConn)
DBCommand.Fill(DSPageData, _
"Files")
ddlFiles.DataSource, - _
DSPageData.Tables("Files").DefaultView
ddlFiles.DataBind()
IblMessage.Text = "Заполните все поля " _
& "и нажмите кнопку ОК."
End If
End Sub

DBCommand = New OleDbDataAdapter _
("SELECT FileTitle, FileName from Files "
& "Order By FileTitle", DBConn)

DBCommand.Fill(DSPageData, _
"Files")

ddlFiles.DataSource = _
DSPageData.Tables("Files").DefaultView
ddlFiles.DataBindO

IblMessage.Text = "Заполните все поля и " _
& "нажмите кнопку ОК."

Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
Dim TheMessage as String
Dim TheMailMessage as New MailMessage
Dim TheAttachment as New MailAttachment _
(Server.MapPath("/InetBook/C7/EmailFile/SQL/"
& ddlFiles.Selectedltem.Value))
TheMessage = "Спасибо за посещение нашего узла. " _
& "Выбранный вами файл: " & ddlFiles.Selectedltem.Text _
& " вложен в это письмо."
TheMailMessage.From = "webmaster@a.com"
TheMailMessage.To = txtEmailAddress.text
TheMailMessage.Subject = "Файл"
TheMailMessage.Body = TheMessage
TheMailMessage.Attachments.Add (TheAttachment)
SmtpMail.Send(TheMailMessage)
IblMessage.Text = "Выбранный вами файл отправлен по указанному адресу"
pnlForm.Visible = False
End Sub

Dim TheMessage as String

Dim TheMailMessage as New MailMessage