Min mail function virker ikke ???

Hej folkens

Har en mail funktion, som virker på nettet og skriver mailen er sendt men modtager den aldrig og localhost skriver den: The "SendUsing" configuration value is invalid.
Har forresten web10 hotel

Her er min funtion:

Imports Microsoft.VisualBasic
Imports System.Web.Mail

Public Class MailFunction
    Inherits System.Web.UI.Page

    Public Function SendMail(ByVal fra As String, ByVal til As String, ByVal email As String, ByVal tekst As String) As String

        Try
            Dim myMessage As New MailMessage

            myMessage.From = fra & " - " & email
            myMessage.To = til
            myMessage.Subject = "Mail fra hjemmesiden"
            myMessage.BodyFormat = MailFormat.Text
            myMessage.Body = tekst & vbCrLf
            SmtpMail.SmtpServer = "mail.diagonalenvinogblomster.dk"

            SmtpMail.Send(myMessage)

            Return "Mailen er sendt"

        Catch ex As Exception
            Return ex.Message
        End Try


    End Function

End Class

Her er min backend til at kalde på den:

Imports System.Data
Partial Class kontakt
    Inherits System.Web.UI.Page

    Protected Sub BtnSend_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnSend.Click
        Dim objMail As New MailFunction
        If TxtBesked.Text = "" Then

        Else

            If TxtEmail.Text = "" Then

            Else

                If TxtBesked.Text = "" Then

                Else

                    TxtBesked.Text = objMail.SendMail(TxtNavn.Text, TxtEmail.Text, TxtBesked.Text)


                End If

            End If

        End If



    End Sub



End Class


Håber i kan hjælpe mig :D