Invio mail da sito. Dove sbaglio?

momotata

Invio mail da sito. Dove sbaglio?

Questo è l'errore:

CDO.Message.1 error '80040213'
The transport failed to connect to the server.
/mail.asp, line 70

Il codice della mia pagina ".asp" è questo

<html>

<head>
    <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
    <title>Complimenti! Messaggio inviato.</title>
</head>

<%
If Request.Form("mail") = "" or Request.Form("cognome") = "" Then
Response.Write("<body bgcolor='FFFF99'</body> <center>Ricompila il modulo facendo attenzione ai campi contrassegnati dall'asterisco. Premi <A href=" & "'javascript:history.back()'" & "> Indietro </a>. </center>")
Else

%>

<body bgcolor="#99CCFF" leftmargin="0" topmargin="0">
<table width="730" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="117"> </td>
<td width="153"> </td>
<td width="460" valign="top"> </td>
</tr>
</table>
<table border="0" cellpadding="10" cellspacing="0" width="730" height="300">
<tr>
<td>
<%
x = "Nome: " & request.form("nome") & chr(10)
x = x & "Cognome: " & request.form("cognome") & chr(10) & chr(10)
x = x & "Indirizzo E-mail: " & request.form("mail") & chr(10) & chr(10)
x = x & "Oggetto: " & request.form("oggetto") & chr(10) & chr(10)
x = x & "Messaggio: " & request.form("messaggio") & chr(10)

//testo mail

dim objConfig

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

With objConfig

    .Fields("...schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.axiomenet.com"

    .Fields("...schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

    .Fields("...schemas.microsoft.com/cdo/configuration/sendusing") = 2

    .Fields("...schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

    .Fields.update

End With

Dim objMail

Set objMail = Server.createObject("CDO.Message")

Set objMail.Configuration = objConfig

objMail.From = "[email protected]"

objMail.To = " [email protected]; [email protected] "

objMail.Subject = "Oggetto"

objMail.Fields("urn:schemas:httpmail:importance").Value = 1

objMail.Fields.update()

objMail.HTMLBody = "Testo"

objMail.Send

Set objMail = Nothing

%>Egregio signore/a 
<%Response.Write(request.Form ("cognome"))%> 
Abbiamo ricevuto la Sua e-mail. 
Sarà ricontattato al più presto. 
 
RIEPILOGO DATI INVIATI 
 
Nome: <%Response.Write(request.Form ("nome"))%> 
Cognome: <%Response.Write(request.form("cognome"))%> 
Indirizzo E-mail: <%Response.Write(request.Form ("mail"))%> 
Oggetto: <%Response.Write(request.form ("oggetto"))%> 
Messaggio: <%Response.Write(request.Form ("messaggio")) end if
%>

            </td>
        </tr>
    </table>
    </body>

</html>

Dove sbaglio?
aiutoooooo!!!
grazie
momotata

squib

devi innanzitutto vedere se il tuo hosting ha l'oggetto CDO.Message, in genere è win 2003 che ha questo oggetto per inviare email.

Informati su questo

momotata

Sì, è stato lui che mi ha fornito questo codice, ma non riesco a farlo funzionare!!!!!!!!!!!!!:(

squib

Prova con questo script se invia l'email

Set myMail=CreateObject("CDO.Message")
myMail.Subject="Contatto"
myMail.From=email
myMail.To="[email protected]"
myMail.TextBody = "nome: " & nome & vbCrLf & _
"email: " & email"
myMail.Configuration.Fields.Item ("http:**schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item ("http:schemas.microsoft.com/cdo/configuration/smtpserver") ="smtp.tuosito.com"
'Server port
myMail.Configuration.Fields.Item ("http: schemas.microsoft.com/cdo/configuration/smtpserverport") =25
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing