CDOSYS [era: aiuto help me]

[michelet]

tutto ad un tratto mi da qusto errore che prima non dava che cosa può essere?

CDO.Message.1 error '80040220'

Il valore di configurazione "SendUsing" non è valido.

/Formmail/corso.asp, line 33

[seafarer]

cdonts/cdosys? qual è lo script?controlla il server.

[Roby_72]

Complimenti vivissimi per il titolo dato alla discussione.
Suggerisco questa fonte normativa: http://forum.html.it/forum/showthrea...threadid=97487

Roby

[michelet]

potrebbe essere un problema del server?

ecco il codice

<%
Response.Buffer = True
Response.Expires = 0

' pagina su cui reindirizzare
p = "http://www.pubblicaassistenzapisa.it/Formmail/errore.htm"

' per evitare che la pagina sia richiamata direttamente
If Request.Form("email") = "" Then Response.Redirect(p)

For Each Campo in Request.Form
If Request.Form(campo) = "" Then
Response.Redirect(p)
End If
Next

Testo = "Contenuto del messaggio...

"
Testo = Testo & "Cognome e Nome: " & Request.Form("realname") & "

"
Testo = Testo & "Via: " & Request.Form("via") & "

"
Testo = Testo & "Città: " & Request.Form("citta") & "

"
Testo = Testo & "Prov.: " & Request.Form("prov") & "

"
Testo = Testo & "Sesso: " & Request.Form("sesso") & "

"
Testo = Testo & "Età: " & Request.Form("eta") & "

"
Testo = Testo & "Telefono: " & Request.Form("telefono") & "

"
Testo = Testo & "Messaggio:" & Request.Form("messaggio") & "

"

Set eMail = Server.CreateObject("CDO.Message")
With eMail
.From = Request.Form("email")
.To = "webmaster@pubblicaassistenzapisa.it"
.Subject = Request.Form("oggetto")
.TextBody = testo
.Send()
End With
Set eMail = Nothing
Nome = Request.Form("realname")%>

[Roby_72]

Hai usato uno script CDOSYS monco.
Manca un pezzo della sua sintassi.
Cerca nel forum.

Roby

[michelet]

ma fino a ieri funzionava come mai dove devo cercare con precisione grazie

[weppos]

Originariamente inviato da michelet
ma fino a ieri funzionava come mai dove devo cercare con precisione grazie

Mai come in questi casi la frase nella mia firma ha senso.
(dovrei mettere il copyright, mi hanno copiato pure questa )

Per la ricerca

> CDO.Message

[michelet]

non capisco non trovo niente aiuto.............

[Roby_72]

http://www.weppos.com/asp/script/scr....asp?script=17

Roby

[michelet]

ho riscritto il codice ma mi da questo errore come mai?

Errore di compilazione di Microsoft VBScript error '800a0400'

Prevista istruzione

/Formmail/corso.asp, line 29

<SPAN class=comm>' Porta SMTP</SPAN>


il codice riscritto è questo dove sbaglio?


<%
Response.Buffer = True
Response.Expires = 0

' pagina su cui reindirizzare
p = "http://www.pubblicaassistenzapisa.it/Formmail/errore.htm"

' per evitare che la pagina sia richiamata direttamente
If Request.Form("email") = "" Then Response.Redirect(p)

For Each Campo in Request.Form
If Request.Form(campo) = "" Then
Response.Redirect(p)
End If
Next

Testo = "Contenuto del messaggio...

"
Testo = Testo & "Cognome e Nome: " & Request.Form("realname") & "

"
Testo = Testo & "Via: " & Request.Form("via") & "

"
Testo = Testo & "Città: " & Request.Form("citta") & "

"
Testo = Testo & "Prov.: " & Request.Form("prov") & "

"
Testo = Testo & "Sesso: " & Request.Form("sesso") & "

"
Testo = Testo & "Età: " & Request.Form("eta") & "

"
Testo = Testo & "Telefono: " & Request.Form("telefono") & "

"
Testo = Testo & "Messaggio:" & Request.Form("messaggio") & "

"

.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.pubblicaassistenzapisa.it"

<SPAN class=comm>' Porta SMTP</SPAN>
_ .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

<SPAN class=comm>' Porta CDO</SPAN>
_ .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

<SPAN class=comm>' Timeout</SPAN>
_ .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
_ .Fields.update
End With


Set eMail = Server.CreateObject("CDO.Message")
With eMail
.From = Request.Form("email")
.To = "webmaster@pubblicaassistenzapisa.it"
.Subject = Request.Form("oggetto")
.TextBody = testo
.Send()
End With
Set eMail = Nothing
Nome = Request.Form("realname")%>