runtime error '800a0046' Med Nyhedsscript

Hej eksperter!
Jeg sidder og leger med et nyhedsscript, jeg har fået det til at fungere dog, vil den ikke sende og der opstår fejlen som står nedenfor, mit spørgsmål er hvad det skyldes?

Ps. jeg har kigget rundt og jeg kunne ikke finde noget til de personer der måtte blive irriteret over denne debat

Microsoft VBScript runtime error '800a0046'

Permission denied

D:\WWW\RIBEBTK.DK_PFYENWJVMP\PUBLIC_HTML\ADMIN1\../includes/email.asp, line 91

----------
email.asp
---------
<%
Dim oEmail, oCDO, oCDOcon, ASPMail, JMail
Select Case sEmailComponent
CASE "CDONTS"
Do While Not oRecordset.EOF
Set oEmail = Server.CreateObject("CDONTS.NewMail")
oEmail.From = sFrom
oEMail.To = oRecordset("SubscriberEmail")
oEmail.Subject = sSubject
oEmail.Body = sEmailBody
If sFormat="HTML" Then
oEmail.Bodyformat=0 
oEmail.Mailformat=0
End If
oEmail.Send
Set oEmail = Nothing
oRecordset.MoveNext
Loop


CASE "CDOSYS"
Do While Not oRecordset.EOF
Set oCDO = Server.CreateObject("CDO.Message")
Set oCDOcon = Server.CreateObject ("CDO.Configuration")
oCDOcon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = sMailServerName
oCDOcon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
oCDOcon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
oCDOcon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
oCDOcon.Fields.Update
Set oCDO.Configuration = oCDOcon
oCDO.To = oRecordset("SubscriberEmail")
oCDO.From = sFrom
oCDO.Subject = sSubject
If sFormat="HTML" Then
oCDO.HTMLBody = sEmailBody
Else
oCDO.TextBody = sEmailBody
End If
oCDO.Send
Set oCDO = Nothing
Set oCDOcon = Nothing 
oRecordset.MoveNext
Loop

Case "ASPMail"
Do While Not oRecordset.EOF
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
If sFormat="HTML"  Then
Mailer.ContentType = "text/html"
Else
Mailer.CharSet = 2
End If
Mailer.FromName = sFrom
Mailer.FromAddress= sFrom
Mailer.RemoteHost = sMailServerName
Mailer.AddRecipient oRecordset("SubscriberEmail"), oRecordset("SubscriberEmail")
Mailer.Subject = sSubject
Mailer.BodyText = sEmailBody
Mailer.SendMail
Set Mailer=Nothing
oRecordset.MoveNext
Loop

Case "JMail"
Do While Not oRecordset.EOF
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = sMailServerName
JMail.Sender = sFrom
JMail.AddRecipient oRecordset("SubscriberEmail")
JMail.Subject = sSubject
If emailformat="HTML" THEN
JMail.ContentType = "text/html"
End If
JMail.Body = sEmailBody
JMail.Execute
oRecordset.MoveNext
Loop


Case Else
Do While Not oRecordset.EOF
Set oEmail = Server.CreateObject("CDONTS.NewMail")
oEmail.From = sFrom
oEMail.To = oRecordset("SubscriberEmail")
oEmail.Subject = sSubject
oEmail.Body = sEmailBody
If sFormat="HTML" Then
oEmail.Bodyformat=0 
oEmail.Mailformat=0
End If
oEmail.Send
Set oEmail = Nothing
oRecordset.MoveNext
Loop

End Select

%>