Выдает ошибку при отправке.
http://rghost[dot]ru/51172243 - исходник
CODE (htmlphp):
скопировать код в буфер обмена
скопировать код в буфер обмена
- <%@ Page Language=VB Debug=true %>
- <%@ Import Namespace="System.Data" %>
- <%@ Import Namespace="System.Data.OLEDB" %>
- <%@ Import Namespace="System.Web.Mail" %>
- <script 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=Microsoft.Jet.OLEDB.4.0;" _
- & "DATA SOURCE=" _
- & Server.MapPath("" _
- & "App_Data/C7EmailFile.mdb;"))
- DBCommand = New OleDbDataAdapter _
- ("SELECT FileTitle, FileName from Files " _
- & "Order By FileTitle", DBConn)
- DBCommand.Fill(DSPageData, _
- "Files")
- ddlFiles.DataSource = _
- DSPageData.Tables("Files").DefaultView
- ddlFiles.DataBind()
- lblMessage.Text = "Заполните все поля " _
- & "и нажмите кнопку OK."
- End If
- End Sub
- 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("" _
- & ddlFiles.SelectedItem.Value))
- TheMessage = "Спасибо за посещение нашего узла. Выбранный вами файл" _
- & ": " & ddlFiles.SelectedItem.Text _
- & " вложен в это письмо."
- TheMailMessage.From = "webmaster@a.com"
- TheMailMessage.To = txtEmailAddress.text
- TheMailMessage.Subject = "Файл"
- TheMailMessage.Body = TheMessage
- TheMailMessage.Attachments.Add (TheAttachment)
- SmtpMail.Send(TheMailMessage)
- lblMessage.Text = "Выбранный вами файл отправлен по указанному адресу"
- pnlForm.Visible = False
- End Sub
- </SCRIPT>
- <HTML>
- <HEAD>
- <TITLE>Отправка файла</TITLE>
- </HEAD>
- <BODY BACKGROUND="./bg.jpg" TEXT="black" LINK="darkred" VLINK="darkred" ALINK="red" LEFTMARGIN="20">
- <form id="Form1" runat="server">
- <Font Face="Tahoma">
- <asp:Label
- id="lblTitle"
- Font-Size="25pt"
- Font-Name="Tahoma"
- Text="Отправка файла"
- runat="server"
- />
- <IMG SRC="./line.gif">
- <Font Face="Tahoma">
- <BR><BR>
- <asp:Label
- id="lblMessage"
- Font-Size="10pt"
- Font-Name="Tahoma"
- Font-Bold="True"
- runat="server"
- />
- <asp:Panel
- id="pnlForm"
- runat="server"
- >
- <BR><BR>
- <B>Имя файла:</B>
- <BR>
- <asp:dropdownlist
- id="ddlFiles"
- runat=server
- DataTextField="FileTitle"
- DataValueField="FileName">
- </asp:dropdownlist>
- <BR><BR>
- <B>Адрес электронной почты:</B>
- <BR>
- <asp:TextBox
- id="txtEmailAddress"
- Columns="25"
- MaxLength="50"
- runat=server
- />
- <asp:RequiredFieldValidator
- id="rfvEmailAddress"
- ControlToValidate="txtEmailAddress"
- Display="Dynamic"
- Font-Name="Verdana"
- Font-Size="10pt"
- runat=server>
- Необходимо ввести адрес электронной почты!
- </asp:RequiredFieldValidator>
- <BR><BR>
- <asp:button
- id="butOK"
- text=" OK "
- Type="Submit"
- OnClick="SubmitBtn_Click"
- runat="server"
- />
- </asp:Panel>
- </Font>
- </Form>
- </BODY>
- </HTML>