Kan ej skicka mail med VBscript och Exchange 2000

Hej på er.

Vi har en kund som tidigare körde ett VB mailskript på en Exchange 5.5 / W2k server. Detta skript slutade fungera efter att Exchange servern uppgraderades till 2000. Jag kan inte VBscript men bifogar koden nedan.

Felmeddelandet som ges är:
Microsoft VBScript runtime (0x800A0046)
Permission denied

Vi vet att vi kan sätta läs/skrivrättigheter åt WWW användaren på mailrootkatalogen men detta är inte ett alternativ då vi inte vill släppa på säkerheten. Det måste finnas andra lösningar, eller?

Koden som används ser ut så här:

<%@ LANGUAGE="VBScript" %>
<%

If Request.ServerVariables("REQUEST_METHOD") = "POST" Then

If Len(request.form("who")) = 6 and Trim(Request.Form("namn")) <> "" Then
	
	If instr(Request.Form("epost"), "@") = 0 Then
		epost = "emailadress@server.nu"
	Else
		epost = Lcase(Request.Form("epost"))
	End If

	Body = Request.Form("namn") & ", " & request.form("who") & " önskar följande ändring f.o.m. " & Trim(Request.Form("date")) & vbCrLf & vbCrLf
	Body = Body & "Inskrivningsår: " & Trim(Request.Form("ar")) & vbCrLf
	Body = Body & "E-post: " & Trim(Request.Form("epost")) & vbCrLf & vbCrLf
	Body = Body & "Anställning" & vbCrLf
	Body = Body & "Befattning: " & Trim(Request.Form("befattning")) & vbCrLf
	Body = Body & "Företag: " & Trim(Request.Form("foretag")) & vbCrLf
	Body = Body & "Företagets adress: " & Trim(Request.Form("compadress")) & vbCrLf
	Body = Body & "Postadress: " & Trim(Request.Form("comppost")) & vbCrLf
	Body = Body & "Telefon: " & Trim(Request.Form("comptel")) & vbCrLf & vbCrLf
	Body = Body & "Bostad" & vbCrLf
	Body = Body & "Namn: " & Trim(Request.Form("namn")) & vbCrLf
	Body = Body & "Adress: " & Trim(Request.Form("adress1")) & vbCrLf & vbTab & Trim(Request.Form("adress2")) & vbCrLf
	Body = Body & "Postadress: " & Trim(Request.Form("post")) & vbCrLf
	Body = Body & "Telefon: " & Trim(Request.Form("tel")) & vbCrLf

  Set objMail = Server.CreateObject("CDONTS.NewMail")
  objMail.From = epost
  objMail.Subject = "Testmail"
  objMail.To = "en.email.adress@server.nu"
 
  objMail.Body = Body

  objMail.Send 
  set objMail = nothing

	Response.Redirect "adress_ok.html"
Else
	Response.Redirect "adress_fel.html"
End If
Else
	Response.Redirect "adressuppdateringar.html"
End If
%>

Alla idéer och förslag mottages tacksamt.

Mvh,
Martin