User651828378 posted
Hi i get this error
.:Error:.
Server Error in '/' Application.
--------------------------------------------------------------------------------
Parser Error
Description: An error occurred during the parsing of a resource required to service this request. Please review the following specific parse error details and modify your source file appropriately.
Parser Error Message: Could not load type 'mail'.
Source Error:
Line 1: <%@ Page Language="vb" AutoEventWireup="false" CodeBehind="mail.aspx.vb" Inherits="mail" %>
Line 2:
Line 3: <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/ (...)
Source File: /mail.aspx Line: 1
.:mail.aspx:.
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="mail.aspx.vb" Inherits="mail" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/ (...)
<html xmlns="http://www.w3.org/ (...)
<head runat="server">
<title></title>
</head>
<body>
<form id="form1" runat="server">
<div>
<h1>send mail</h1>
<p><asp:TextBox runat="server" ID="fname" />Di fornavn</p>
<p><asp:TextBox runat="server" ID="lname" />Dit efternavn</p>
<p><asp:TextBox runat="server" ID="email" />Din mail</p>
<p><asp:TextBox runat="server" ID="subject" />om</p>
<p><asp:TextBox runat="server" ID="message" />tekst</p>
<asp:Button runat="server" ID="Button1" Text="Send Mail" />
<br />
<asp:Label runat="server" ID="lblEmail" />
</div>
</form>
</body>
</html>
.:mail.aspx.vb:.
Imports System.Web.Mail
Imports System.Text
Public Class mail
Inherits System.Web.UI.Page
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Body As String = "From: " + fname.Text + " " + lname.Text + Environment.NewLine + "Email: " + email.Text + Environment.NewLine + Environment.NewLine + "Message: " + Environment.NewLine + MailMessage.Text
Dim MM As New System.Net.Mail.SmtpClient
MM.EnableSsl = False
MM.Host = "asmtp.unoeuro.com"
Dim cred As New System.Net.NetworkCredential("mitbrugernavn", "minkode")
MM.Credentials = cred
MM.Send(email.Text, "min mail", subject.Text, Body)
ClearFields()
lblEmail.forecolor = Drawing.Color.Green
lblEmail.Text = "Mail blev sendt"
lblEmail.Visible = True
End Sub
Protected Sub ClearFields()
fname.Text = ""
lname.Text = ""
email.Text = ""
subject.Text = ""
message.Text = ""
End Sub
End Class
