Originariamente inviato da monaco91
Salve ragazzi vi scrivo xkè ho un grosso problema. ho la necessità che ad ogni nuovo inserimento di record nel database mi venga inviata una mail automaticamente, ma mi viene fuori questo errore, sia in locale, che in remoto:
The transport failed to connect to the server
Cosa devo fare? Ho provato a cercare anche in internet delle soluzioni, ma non ne funziona neanche una!
Uso ASP.NET 2.0 con Vbscript e IIS7 in locale, e penso che ci sia IIS 7 anche in remoto
HELPPP!
Ecco cmq il codice della pagina:
<%@ Page Language="VB" AspCompat="true" AutoEventWireup="false"%>
<%@Import Namespace="System.Web.Mail" %>
<%
Dim nome, cognome, nickname, email
nome = Request.Form ("Nome")
cognome = Request.Form ("Cognome")
nickname = Request.Form ("Nickname")
email = Request.Form ("Email")
'-----------------------------------------------------------------------------------
'Verifico che si inserisca Nickname ed e-mail
If nickname=Nothing Then
Response.Redirect ("errori/nonick.htm")
End If
If email=Nothing Then
Response.Redirect ("errori/nomail.htm")
End If
'-----------------------------------------------------------------------------------
Dim objConn,rsIscritti,strSQL
objConn = Server.CreateObject ("ADODB.Connection")
objConn.Open ("Data Source=" & Server.Mappath("centro_sociale.mdb") & ";Provider=Microsoft.Jet.OLEDB.4.0;")
rsIscritti = Server.CreateObject ("ADODB.Recordset")
strSQL = "SELECT * FROM Iscritti"
rsIscritti.Open (strSQL, objConn, adOpenForwardOnly, adLockOptimistic, adCmdText)
Do While NOT rsIscritti.EOF
IF rsIscritti("Nickname").value=nickname THEN
rsIscritti.Close
rsIscritti = Nothing
objConn.Close
objConn = Nothing
Response.Redirect("errori/samenick.htm")
END IF
rsIscritti.MoveNext
Loop
rsIscritti.AddNew
rsIscritti("Nome") = nome
rsIscritti("Cognome") = cognome
rsIscritti("Nickname") = nickname
rsIscritti("Email") = email
rsIscritti.Update
Try
'Creo l' oggetto msgEmail
dim msgEmail as new MailMessage()
'Imposto i vari parametri per msgEmail
msgEmail.To = email
msgEmail.CC = "joseph@masterdrive.it"
msgEmail.From = "monaco91@hotmail.it"
dim strSubject As string
strSubject = "Gentile "
strSubject = strSubject & nickname
strsubject = strSubject & ", grazie di esserti iscritto!"
msgEmail.Subject = strSubject
'Imposto il formato HTML
msgEmail.BodyFormat = MailFormat.HTML
'Creo il Corpo dell' Email
dim strBody as string
strBody = "<html><body><font face=Verdana><h1>GRAZIE PER ESSERTI ISCRITTO!
</h1>
Ti sei appena iscritto al Centro Sociale di Portogruaro!
>
Il tuo nickname è: "
strBody = strBody & nickname
strBody = strbody & ".
Verrai avvisato ad ogni ritrovo del gruppo, e ad ogni aggiornamento del sito!
"
strBody = strBody & "<font size=1>Se non ti sei iscritto e questo messaggio ti è arrivato per errore, segnalacelo a
monaco91@hotmail.it, e provvederemo al tutto!</font></font></body></html>"
msgEmail.Body = strBody
'Invio l'Email
smtpMail.SmtpServer = "locahost"
SMTPmail.Send(msgEmail)
rsIscritti.Close
rsIscritti = Nothing
objConn.Close
objConn = Nothing
Session("Nickname")=nickname
Session("Email")=email
Response.Redirect ("iscritto.aspx")
Catch exc As Exception
Response.Write("Errore nell'invio:
" & exc.ToString)
End Try
%>
Rispondi quotando
