Ciao,
ho creato tramite un tutorial un piccolo sistema di e-commerce. E' tutto da migliorare cmq.
La prima parte funziona. La seconda parte pure se non fosse perchè mi funziona con tutte le caselle email tranne con quella di Lycos.
La cosa strana che non riesco a capire è questa:
- Apro registrazione.asp e (fingendomi nuovo cliente) inserisco dei dati. Nella casella di testo email inserisco la casella email di Lycos e clicco su Invia.
Dopo un pò nella casella email ufficiale (quella che poi uso in objCDO.From), mi arriva una notifica automatica dicendo che l'invio è fallito. Praticamente come se non esistesse l'email.
Allora provo a mandare una email nella casella Lycos da quella ufficiale. E funziona!
Cosa succede? :master:
Ciao e grazie in anticipo
P.S.: Preghiamo tutti per il Papa
Adesso posto il codice:
da registraz_fine.asp (manda l'email dopo la registrazione)
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.From = "mail@mail.it" ' Mittente - indirizzo del negozio
objCDO.To = Request("email") ' Destinatario - indirizzo del cliente
objCDO.Subject = "registrazione"'oggetto
objCDO.Body = "La registrazione è avvenuta correttamente " & VbCrLf &_
"Ricorda la tua password: " & Request("pass") & VbCrLf &_
"e la tua username: " & Request("utente") & VbCrLf &_
"Grazie"
objCDO.Send() 'send mail
Set objCDO = Nothing 'chiude e libera le risorse
%>
da grazie.asp (manda l'email dopo aver effettuato l'ordine)
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
</head>
<%
Dim RsOrdini__MMColParam
RsOrdini__MMColParam = "1"
If (Session("OrdiniID") <> "") Then
RsOrdini__MMColParam = Session("OrdiniID")
End If
%>
<%
Dim RsOrdini
Dim RsOrdini_numRows
Set RsOrdini = Server.CreateObject("ADODB.Recordset")
RsOrdini.ActiveConnection = MM_cnnSWDTutorial3_STRING
RsOrdini.Source = "SELECT * FROM Ordini WHERE OrdiniID = " + Replace(RsOrdini__MMColParam, "'", "''") + ""
RsOrdini.CursorType = 0
RsOrdini.CursorLocation = 2
RsOrdini.LockType = 1
RsOrdini.Open()
RsOrdini_numRows = 0
%>
<%
Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.From = "mail@mail.it" ' Mittente - indirizzo del negozio
objCDO.To = RsOrdini("Email") ' Destinatario - indirizzo del cliente
objCDO.BCC = "mail@mail.it" ' Copia Carbone nascosta - indirizzo del negozio,
objCDO.Subject = "Ordine di acquisto"'oggetto
objCDO.Body = "L'ordine di acquisto" & VbCrLf &_
"eseguito da: " & RsOrdini("Nome") & " " & RsOrdini("Cognome") & VbCrLf &_
"è stato ricevuto correttamente"
objCDO.Send() 'send mail
Set objCDO = Nothing 'chiude e libera le risorse
%>
<% Response.Write("Grazie per aver scelto wwww.nomesito.it! :-) L'inserimento è avvenuto correttamente. Torna a trovarci!") %>
<%
RsOrdini.Close()
Set RsOrdini = Nothing
%>
</html>
Chiaramente per privacy non ho messo l'indirizzo ufficiale
Rispondi quotando
E' impazzito!! :master: 
