problemi con CDOSYS

[melfo]

cari tutti
ho un piccolo problema con cdosys che non riesco a risolvere
io ho questo codice(codice1), copiato da un sito, messo in linea funziona,
se lo modifico per adattarlo alla mia necessità no funziona codice2

mi date un aiuto vi prego

grazie a tutti anticipatamente

melfo


[codice1
<%

// Controlla invio
if Request.QueryString("invia") = "true" AND Request.Form("submit") = "invia" then

Dim objMail, objConfig
//Crea l'oggetto email
Set objMail = CreateObject("CDO.Message")
//Dimensiona l'oggetto configurazione
Set objConfig = Server.CreateObject ("CDO.Configuration")

//Imposta le configurazioni
With objConfig

//Server SMTP di uscita
//ATTENZIONE! Usare il proprio indirizzo di server email!
//' E' FONDAMENTALE per l'invio della email
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.xxx.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
objMail.From = "xx@libero.it" //' Mittente
objMail.To = Request.Form("email") //' Destinatario
objMail.Subject = Request.Form("oggetto") //' Oggetto
objMail.HTMLBody = Request.Form("messaggio") //' Messaggio

//' Invia l'email
objMail.Send()

Set objMail = Nothing

Response.Write("Email inviata correttamente ")
Response.Write("all'indirizzo ")
Response.Write(Request.Form("email"))

else %>
<form name="formail" method="post" action="email.asp?invia=true">
<table align="center" cellpadding="3" cellspacing="1">
<tr>
<td>Email</td>
<td><input type="text" name="email" /></td>
</tr>
<tr>
<td>Oggetto</td>
<td><input type="text" name="oggetto" /></td>
</tr>
<tr>
<td>Messaggio</td>
<td><textarea name="messaggio"></textarea></td>
</tr>
<tr>
<td colspan="2"> <input type="submit" value="invia" name="submit" /> </td>
</tr>
</table>
</form>
<% end if %>]



[codice2

var objConfig = Server.CreateObject ("CDO.Configuration")
objConfig.Fields("cdoSMTPServerName") = "mail.scazzamariello.com"
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.xxx.com"
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objConfig.Fields.Update
objMail.Configuration = objConfig

objMail.From = "xx@libero.it"; //' Mittente
objMail.To = "xx@libero.it"; //' Destinatario
objMail.Subject ="oggetto"; //' Oggetto
objMail.TextBody ="corpo";//' Messaggio
objMail.Send()

objMail = Nothing

%>]

[cavicchiandrea]

Andiamo per ordine:
[list=1][*]Benvenuto sul forum di html[*]Hai postato sul forum sbagliato dato che lo script e asp dovevi postare su quel forum[*]Sicuro che sul server sia installato CDOSYS?[*]Sicuro che il sito utilizzi mail x l'invio della posta?[*]Non funziona che errore restituisce?[/list=1]

Ti prego di leggere tutte le domande e di fornire le relative risposte, ricordandoti che maggiori informazioni ci fornirai migliore e + rapida sarà la risposta.
Probbabilmente è meglio se chiedi ad un moderatore di essere spostato nel forum competente.

Ciao

[melfo]

Grazie del benvetuto,

risponderò brevemente alle domande,
sul server è istallato windows server 2003
si vengono utilizzate mail,
l'errore sulla riga objConfig.Fields.Update.

grazie anticipatamente e scusate delle irregolarità

[cavicchiandrea]

Originariamente inviato da melfo
Grazie del benvetuto,

risponderò brevemente alle domande,
sul server è istallato windows server 2003
si vengono utilizzate mail,
l'errore sulla riga objConfig.Fields.Update.

grazie anticipatamente e scusate delle irregolarità

Per non fare degli errori qui trovi spiegazioni ed esempi:
link

Ciao