Форумы портала PHP.SU » Разное » Другие языки программирования » Ошибка на 41 строке

Страниц (1): [1]
 

1. Foxee - 24 Декабря, 2013 - 10:22:09 - перейти к сообщению
Помогите решить проблему.
Выдает ошибку при отправке.
http://rghost[dot]ru/51172243 - исходник
CODE (htmlphp):
скопировать код в буфер обмена
  1. <%@ Page Language=VB Debug=true %>
  2. <%@ Import Namespace="System.Data" %>
  3. <%@ Import Namespace="System.Data.OLEDB" %>
  4. <%@ Import Namespace="System.Web.Mail" %>
  5. <script runat=server>
  6. Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
  7.    If Not IsPostBack Then
  8.        Dim DBConn as OleDbConnection
  9.        Dim DBCommand As OleDbDataAdapter
  10.        Dim DSPageData as New DataSet
  11.            DBConn = New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;" _
  12.                & "DATA SOURCE=" _
  13.                & Server.MapPath("" _
  14.                & "App_Data/C7EmailFile.mdb;"))
  15.        DBCommand = New OleDbDataAdapter _
  16.            ("SELECT FileTitle, FileName from Files " _
  17.            & "Order By FileTitle", DBConn)
  18.        DBCommand.Fill(DSPageData, _
  19.            "Files")
  20.        ddlFiles.DataSource = _
  21.            DSPageData.Tables("Files").DefaultView
  22.        ddlFiles.DataBind()
  23.        lblMessage.Text = "Заполните все поля " _
  24.            & "и нажмите кнопку OK."
  25.    End If
  26. End Sub
  27. Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
  28.    Dim TheMessage as String
  29.    Dim TheMailMessage as New MailMessage
  30.    Dim TheAttachment as New MailAttachment _
  31.        (Server.MapPath("" _
  32.        & ddlFiles.SelectedItem.Value))
  33.    TheMessage = "Спасибо за посещение нашего узла. Выбранный вами файл" _
  34.        & ": " & ddlFiles.SelectedItem.Text _
  35.        & " вложен в это письмо."
  36.    TheMailMessage.From = "webmaster@a.com"
  37.    TheMailMessage.To = txtEmailAddress.text
  38.    TheMailMessage.Subject = "Файл"
  39.    TheMailMessage.Body = TheMessage
  40.    TheMailMessage.Attachments.Add (TheAttachment)
  41.    SmtpMail.Send(TheMailMessage)
  42.    lblMessage.Text = "Выбранный вами файл отправлен по указанному адресу"
  43.    pnlForm.Visible = False
  44. End Sub
  45. </SCRIPT>
  46. <HTML>
  47. <HEAD>
  48. <TITLE>Отправка файла</TITLE>
  49. </HEAD>
  50. <BODY BACKGROUND="./bg.jpg" TEXT="black" LINK="darkred" VLINK="darkred" ALINK="red" LEFTMARGIN="20">
  51. <form id="Form1" runat="server">
  52. <Font Face="Tahoma">
  53. <asp:Label
  54.    id="lblTitle"
  55.    Font-Size="25pt"
  56.    Font-Name="Tahoma"
  57.    Text="Отправка файла"
  58.    runat="server"
  59. />
  60. <IMG SRC="./line.gif">
  61. <Font Face="Tahoma">
  62. <BR><BR>
  63. <asp:Label
  64.    id="lblMessage"
  65.    Font-Size="10pt"
  66.    Font-Name="Tahoma"
  67.    Font-Bold="True"
  68.    runat="server"
  69. />
  70. <asp:Panel
  71.    id="pnlForm"
  72.    runat="server"
  73. >
  74. <BR><BR>
  75. <B>Имя файла:</B>
  76. <BR>
  77. <asp:dropdownlist
  78.    id="ddlFiles"
  79.    runat=server
  80.    DataTextField="FileTitle"
  81.    DataValueField="FileName">
  82. </asp:dropdownlist>
  83. <BR><BR>
  84. <B>Адрес электронной почты:</B>
  85. <BR>
  86. <asp:TextBox
  87.    id="txtEmailAddress"
  88.    Columns="25"
  89.    MaxLength="50"
  90.    runat=server
  91. />
  92. <asp:RequiredFieldValidator
  93.    id="rfvEmailAddress"
  94.    ControlToValidate="txtEmailAddress"
  95.    Display="Dynamic"
  96.    Font-Name="Verdana"
  97.    Font-Size="10pt"
  98.    runat=server>
  99.    Необходимо ввести адрес электронной почты!
  100. </asp:RequiredFieldValidator>
  101. <BR><BR>
  102. <asp:button
  103.    id="butOK"
  104.    text="  OK  "
  105.    Type="Submit"
  106.    OnClick="SubmitBtn_Click"
  107.    runat="server"
  108. />
  109. </asp:Panel>
  110. </Font>
  111. </Form>
  112. </BODY>
  113. </HTML>
  114.  

 

Powered by ExBB FM 1.0 RC1