problemer med min mailsender

Jeg har dette stykke kode tekst. Det virker sådan set meget godt, bortset fra at når jeg modtager en mail, så oplyser den ikke afsenders navn.

Hvad er der galt?

    If request("mode") = "send" then

    name = request.form("name")
    email = request.form("email")
    topic = request.form("topic")
    body = request.form("body")
    recipient = request.form("recipient")

    if recipient = "tom" then
    err = 1
    errormsg = errormsg & "<br>Du skal vælge en modtager"
    end if

    if name = "" then
    err = 1
    errormsg = errormsg & "<br>Du skal skrive dit navn"
    end if

    if InStr(email,"@") = 0 or InStr(email,".") = 0 or email = "" then
    err = 1
    errormsg = errormsg & "<br>Feltet 'E-mail' er ikke korrekt udfyldt"
    end if

    if topic = "" then
    err = 1
    errormsg = errormsg & "<br>Du skal skrive et emne"
    end if

    if body = "" then
    err = 1
    errormsg = errormsg & "<br>Du skal skrive en besked"
    end if

    if err = 1 then errormsg = errormsg & "<br>"

    if err = 0 then

Set objMail = CreateObject("CDONTS.Newmail")
objMail.Importance = 2
objMail.From = email
objMail.To = recipient
objMail.Subject = "Afsendt fra www.b-teens.dk - " & topic
objMail.Host = "smtp1.b-one.net"