Permission denied

Kod?

Mycket kod...

<%
' ## SET VALUES

freentry = request("freentry")
freebus = request("freebus")
freefood = request("freefood")
fun = request("fun")

IF fun = "val1" THEN
body = "Jag kommer på kvällskul den 4/9 i Stockholm: " & vbCRLF & vbCRLF
subject = "Jag kommer. " & date() & " " & formatDateTime(now(),4)
ELSEIF fun = "val2" THEN
body = "Jag kommer på kvällskul den 5/9 i Stockholm: " & vbCRLF & vbCRLF
subject = "Jag kommer. " & date() & " " & formatDateTime(now(),4)
ELSEIF fun="val3" THEN
body = "Jag kommer på kvällskul den 3/10 i Malmö: " & vbCRLF & vbCRLF
subject = "Jag kommer. " & date() & " " & formatDateTime(now(),4)
END IF

name = request("name")
job = request("job")
company = request("company")
address = request("address")
zipcode = request("zipcode")
city = request("city")
phone = request("phone")
fax = request("fax")
email = request("email")
datum = request("datum")

'## Ändra till rätt avsändare här!
sender = "info@internetnytt.se"

body = body & "Jag föranmäler mig till : " & vbCRLF _
& "Frientré" & freentry &vbCRLF _
& "Fribuss" & freebus &vbCRLF _
& "Frimat" & freefood &vbCRLF _

& "Namn: " & name & vbCRLF _
& "Befattning: " & job & vbCRLF _
& "Arbetsplats: " & company & vbCRLF _
& "Postadress: " & address & vbCRLF _
& "Ort: " & city & vbCRLF _
& "Postnummer: " & zipcode & vbCRLF _
& "Tel: " & phone & vbCRLF _
& "Fax: " & fax & vbCRLF _
& "E-post: " & email & vbCRLF _
& "Datum: " & datum & vbCRLF _

' ## ...SEND ORDER TO HOST
Set CDOMail 	 	= Server.CreateObject("CDONTS.NewMail")
	CDOMail.From 	= sender
	CDOMail.To 		= "lis-anna@olailindgren.se"
	
	CDOMail.Subject = subject
	CDOMail.Body 	= body
	CDOMail.Send
Set CDOMail = Nothing

%>

Det är verkligen kris med det här, å dom på webbhotellet hänsvisar bara till sin sida men där får man ingen info överhuvudtaget! Vore väldigt tacksam för all hjälp jag kan få. Enla

Verkar som om du inte har rättigheter att skicka via CDONTS.
Säg till webbhotellet att ge dig rättigheter till det!