ciao, dovendo fare un piacere a un amico mi ritrovo con il codice
Codice PHP:
<%
' invio per posta elettronica del modulo di contatto
dim sBody    ' stringa contenente il body della mail
dim sSubject    ' stringa contenente il subject della mail
dim sSender    ' stringa contenente il destinatario della mail
dim sReceiver    ' stringa contenente il ricevente del messaggio
sSubject = "Messaggio dal modulo di contatto web"
'sReceiver = "marcoma@mediap.net"
sReceiver = "info@motoclassiche.it"
sSender = Request.Form ("email")
sBody = ""
sBody = sBody & "********************************************************************************" & vbCrLf
sBody = sBody & "Nome:" & Request.Form ("nome") & vbCrLf
sBody = sBody & "Telefono:" & Request.Form ("telefono") & vbCrLf
sBody = sBody & "Fax:" & Request.Form ("fax") & vbCrLf
sBody = sBody & "Home Page:" & Request.Form ("URL") & vbCrLf
sBody = sBody & "E-Mail:" & Request.Form ("email") & vbCrLf & vbCrLf
sBody = sBody & "Messaggio:" & vbCrLf  & vbCrLf
sBody = sBody & Request.Form ("messaggio")
'SendMail sSender,sReceiver,sSubject,sBody,"","","","",""



Dim miaMail
Set miaMail = CreateObject("CDONTS.NewMail")

miaMail.From = "info@motoclassiche.it"
miaMail.To = sSender
miaMail.Subject = sSubject
miaMail.BodyFormat = 0
miaMail.MailFormat = 0
miaMail.Importance = 0

miaMail.Body = sBody
miaMail.Send

Set miaMail = Nothing 

%> 
ma mi stampa l'errore

Errore di run-time di Microsoft VBScript error '800a0046'

Autorizzazione negata

/risposta_modulo.asp, line 38

la riga 38 è quella con il miaMail.Send.

dovè l'errore?