hvad er galdt

for følgende fejl i dette script: i denne linie "Set upload = Server.CreateObject( "w3.Upload" )"

   

Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/mail_sender.asp, line 39

800401f3


<%
set msg = Server.CreateOBject( "JMail.Message" )
Set upload = Server.CreateObject( "w3.Upload" )

msg.Logging = true
msg.silent = true

name = upload.Form("navn")
senderEmail = upload.Form("mail")
subject = upload.Form("emne")
recipient = ("navn@domæne.dk")
body = upload.Form("besked")
ip = Request.ServerVariables("REMOTE_ADDR")

msg.From = SenderEmail
msg.FromName = Name
msg.AddRecipient Recipient
msg.AddRecipientBCC senderEmail
msg.Subject = Subject

msg.Body = "Meddelelse den " & Date & " klokken " & Time & " fra: " & recipient & vbCrLf & "Navn: " & name & vbCrLf & "Mail: " & senderEmail & vbCrLf & "Emne:" & vbCrLf & subject & vbCrLf & "Tekst: " & vbCrLf & body

if not msg.Send("websmtp.domæne.dk") then
msg.Send("mailrelay.webhotel.dk")
Response.write "<pre>" & msg.log & "</pre>"
else
Response.write "<p>Meddelelse afsendt den " & Date & " klokken " & Time & "<br /><br /><b>Fra: </b>" & name & "<br /><br />" & "<b>Mail: </b><a href='mailto:" & senderEmail & "'>" & senderEmail & "</a> <br /><br />" & "<b>Emne: </b>" & subject & "<br /><br /><b>Tekst: </b>" & body & "<br /><br />Tak for din henvendelse. Jeg vender tilbage så hurtigt som muligt." & "</p>"
end if
%>