<%@ Page Language="VB" %>
<%@ import Namespace="System.Web.Mail" %>
<script runat="server">

    Sub btnSendFeedback_Click(sender as Object, e as EventArgs)

       'Create an instance of the MailMessage class
       Dim objMM as New MailMessage()

       'Set the properties - send the email to the person who filled out the
       'feedback form.
       objMM.To = "olef@hotmail.com"
       objMM.Cc = "enerkve@online.no"

       objMM.From = txtEmail.Text

       'If you want to CC this email to someone else, uncomment the line below
       'objMM.Cc = "someone@someaddress.com"

       'If you want to BCC this email to someone else, uncomment the line below
       'objMM.Bcc = "someone@someaddress.com"

       'Send the email in text format
       objMM.BodyFormat = MailFormat.Text
       '(to send HTML format, change MailFormat.Text to MailFormat.Html)

       'Set the priority - options are High, Low, and Normal
       objMM.Priority = MailPriority.Normal

       'Set the subject
       objMM.Subject = "4GuysFromRolla.com - Feedback"

       'Set the body
       objMM.Body = "Den  " + DateTime.Now + " ble det sendt følgende melding: " & _
                    "sendt av " & txtName.Text & "." & vbCrLf & vbCrLf & _
                    "---------------------------------------" & vbCrLf & vbCrLf & _
                    txtMessage.Text & vbCrLf


       'Specify to use the default Smtp Server
       SmtpMail.SmtpServer = ""

       'Now, to send the message, use the Send method of the SmtpMail class
       SmtpMail.Send(objMM)

       lTakk.visible = true


    End Sub

</script>
