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

%>]