Kan i finde fejlen?

<% @language= VBScript %>
<% option Explicit %>
<html>
<head>
<title>Afsendelse af email - Dr. Martin</title>
</head>
<%
dim strnavn, stremail, strbesvarelse

strnavn = trim(request.form("navn"))
stremail = trim(request.form("email"))
strbesvarelse = trim(request.form("besvarelse"))

if (strnavn <> "" and stremail <> "" and strbesvarelse <> "") then

'Set JMail = Server.CreateObject("JMail.SMTPMail")
'JMail.ServerAddress = "mail.2mwebdesign.dk"
'JMail.sender = "martin@2mwebdesign.dk"
'JMail.subject = "strnavn"
'JMail.AddRecipient "stremail"
'JMail.Priority = 3
'JMail.Execute

dim mail
set mail = server.CreateObject("CDONTS.NewMail")

mail.from = "martin@2mwebdesign.dk"
mail.to = stremail
mail.subject = "Besvarelse fra " & strnavn

mail.body = strbesvarelse
mail.send

set mail = nothing
Else
%>

<form action="<%=Request.ServerVariables("script_name")%>" method="POST">
<p>Navn: <input type="text" name="navn" value "" size="20">
<p>Email: <input type="text" name="email" value "" size="20">
</p><p>Besvarelse:<br><textarea rows="5" name="besvarelse" value "" cols="25"></textarea></p>
<p><input type="submit" value="send" name="B1">
</form>

<% End if %>

</html>