Kode tager for langtid at gennemløbe

Hvad er der galt med min kode ... denne lille kode tager godt en 61 sek at gennemløbe (Har testet det med en time kode). Mailen bliver sendt men det kan ikke passe at det tager så lang tid ...

<%
'Slå fejl raportering fra:
On Error Resume Next

Session("Navn") = Request.Form("Navn")
Session("email") = Request.Form("email")
Session("emailto") = Request.Form("emailto")
Session("hilsen") = Request.Form("hilsen")
Session("link") = Request.Form("link")

bodyTxt = bodyTxt & Session("Navn") & " syntes at du skal checke følgende side: "
bodyTxt = bodyTxt & VbCrLf
bodyTxt = bodyTxt & Session("link")
bodyTxt = bodyTxt & VbCrLf
bodyTxt = bodyTxt & VbCrLf
If Session("hilsen") <> "" Then
bodyTxt = bodyTxt & "Hilsen fra " & Session("Navn") & ":"
bodyTxt = bodyTxt & VbCrLf & Session("hilsen")
End IF


set JMail = server.createobject("JMail.SMTPMail")
JMail.sender = Session("emailto")
JMail.SenderName = Session("Navn")
JMail.subject = Session("Navn") & " syntes at du skal checke www.domæne.dk"
JMail.AddRecipient Session("email")
JMail.ContentType = "text/plain"
JMail.body = bodyTxt
JMail.priority = 1
JMail.maildomain = "mail.domæne.dk"
JMail.silent = true
JMail.execute
JMail.close()

'Tjek om der har være fejl
if err then
  Response.write "Det opstod en fejl på siden. Prøv at starte forfra."
else
  Response.write "Der er nu sendt en mail til din ven!"                   
end if
%>