Server object error

[paolaban]

Qualcuno sa dirmi che errore è?

Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/or-lab2.asp, line 40

800401f3

La pagina incriminata ha il seguente codice:
<%
testo = "[b]Contact Request from MR/MRS " & Request.Form("Nome") & "
"
testo = testo & "Address: " & Request.Form("Via") & "
"
testo = testo & Request.Form("Cap") & " - " & Request.Form("Citta") & " (" & Request.Form("Stato") & ")
"
testo = testo & "Phone: " & Request.Form("Tel") & "
"
testo = testo & "Fax: " & Request.Form("Fax") & "
"
testo = testo & "E-mail address: " & Request.Form("Email") & "

"

Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = Request.Form("Email")
objMail.To = "info@miosito.com"
objMail.Subject = "PRIVATE LABEL CONTACT"
objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.Body = testo
objMail.Importance = 1
objMail.Send
Set objMail = nothing
%>

la linea 40 corrisponde al

Set objMail = Server.CreateObject("CDONTS.NewMail")

Grazie a tutti

[Luis33]

Ciao e Buone feste!
L'errore segnala che sul tuo server non puoi creare l'oggetto CDONTS, probabilmente (dovresti verificare) stai su un server win 2003, dove l'oggetto CDONTS è stato sostituito da CDOSYS.

[paolaban]

grazie per la risposta....
Se le cose stanno così sono disperata! Perchè il sito sta su aruba e da quello che so CDONTS dovrebbe funzionare.
Ho provato la stessa pagina su un server Windows 2000 e niente... anche lì mi da errore.
Ma aruba e Windows Server 2000 non erano predisposti per il CDONTS?
Aiutatemi vi prego

[teorema55]

Probabilmente il problema è proprio quello, ma non avrai problemi a modificare il tuo script per adattarlo a lavorare con CDOSYS, è facilissimo.........guarda per esempio

qui

e anche

qui

inoltre delle modifiche necessarie si parla anche qui , sul nostro forum.

[paolaban]

Grazie teorema.
Ho solo una perplessità: è possibile che il server rimanga su piattaforma Win 2000 e usi CDOSYS?
Per il passaggio da Cdonts a CDOSYS non dovreei avere problemi (spero)

[weppos]

Originariamente inviato da paolaban
Grazie teorema.
Ho solo una perplessità: è possibile che il server rimanga su piattaforma Win 2000 e usi CDOSYS?
Per il passaggio da Cdonts a CDOSYS non dovreei avere problemi (spero)

Sì, è possibile (anche se strano) che sia stato rimosso CDONTS ed installato CDOSYS sul server anche se win2000.

[paolaban]

grazie ragazzi. Ora proverò sperando che tutto funzioni. Cas0omai romperò ancora!

[paolaban]

Ok, ora pare che il metodo CdoSys sia quello giusto (almeno su aruba), ma l'errore è cambiato:

error '8004020f'
/send.asp, line 68

alla riga 68 corrisponde:

objMail.Send()

Ho utilizzato lo script di webbot.
Ho 2 pgine
1) form in html semplice che al submit mi manda alla
2) send.asp che contiene lo script per inviare i dati del form compilato.

Lo script di send.asp è il seguente:

<%
testo = "Contact Request from MR/MRS " & Request.Form("Nome") & " " & Request.Form("Cognome") & "

"
testo = testo & "Address: " & Request.Form("Via") & "
"
testo = testo & Request.Form("Cap") & " - " & Request.Form("Citta") & " (" & Request.Form("Stato") & ")
"
testo = testo & "Phone: " & Request.Form("Tel") & "
"
testo = testo & "Fax: " & Request.Form("Fax") & "
"
testo = testo & "E-mail address: " & Request.Form("Email") & "

"
testo = testo & "Message: " & Request.Form("Messaggio") & "

"

Dim objMail, objConfig

' Dimensiona l'oggetto email
Set objMail = createObject("CDO.Message")



Set objConfig = Server.createObject("CDO.Configuration")


With objConfig

' Server SMTP di uscita
' Esempio mail.dominio.it
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.cammelloons.com"

' Porta SMTP
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

' Porta CDO
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

' Timeout
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

.Fields.update
End With

' Assegna le configurazioni
Set objMail.Configuration = objConfig

' ====================================


' Assegna all'oggetto le proprietà necessarie

' Mittente dell'email (indirizzo)
objMail.From = Request.Form("Email")

' Destinatario dell'email (indirizzo)
objMail.To = "unamailqualsiasi@qualsiasisito.it"


' Oggetto dell'email
objMail.Subject = "Prova"

' Valore di priorità
objMail.Fields("urn:schemas:httpmail:importance"). Value = 2
objMail.Fields.update()



' Corpo del messaggio

objMail.HTMLBody = testo 'Formato HTML

' Invia l'email
objMail.Send()

' Distruggi l'oggetto
Set objMail = Nothing

%>

dove sbaglio?

[weppos]

Se sei su aruba leggi i loro vademecum.
Ci sono riportate le informazioni per il settaggio.

[paolaban]

gRAZIE WEPPOS... LO SCRIPT CHE HO USATO è IL TUO!
Ups, scusa lo schiamazzo.

Allora ho sistemato e tutto funzia a dovere!!!! dovevo mettere smtp.aruba.it e non smtp.miosito.com.

Ho solo un problema: la mail dal form mi arriva solo se su objMail.From specifico una casella attiva sul mio sito... ovvero:
objMail.From = "info@miosito.com"

Mentre io vorrei che il mittente fosse dato da
objMail.From = Request.Form("Email")
Ovvero da chi mette il suo indirizzo e-mail nel campo "Email" del form....

Puoi aiutarmi?