se email non è valida non spedisce la richiesta d'ordine

[Fedina]

Ciao a tutti. Ho scaricato uno script per l'ecommerce. Ho notato però (con molto rammarico) che se nel momento dell'invio del form il cliente (che non si logga tramite user e pass) indica una email non valida, l'ordine non viene spedito.

E' normale che sia così, oppure c'è qualche problema nello script che ho scaricato?

Qualcuno mi sa dare una dritta?

Grazie in anticipo.
FEde

[Roby_72]

1) Non conoscendo lo script è difficile...
2) Il cliente mette la sua email e questa serve per inviare a lui l'ordine? Oppure la usi come email di partenza dell'ordine stesso? In pratica colui che inserisce l'email diventa destinatario o mittente dell'ordine?

Roby

[Fedina]

allora:

premesso che l'utente non si logga (perchè non c'è una parte amministrativa per catalogare i clienti)

il cliente inserisce nome cognome via nrtel fax citta provincia ecc..e alla fine inserisce l'email. poi conferma l'ordine e tramite cdonts invia l'email a me. Chi inserisce la mail è chi vuole ordinare i prodotti...mi sono spiegata?

[Roby_72]

La mail non parte solo nel caso in cui utilizzi la sua email come mittente oltre che come destinatario.
Se la usssi solo come destinatario al massimo non sarebbe recapitato l'ordine ma la mail partirebbe.
Quindi a mio avviso nel

objMail.FROM

lo script che hai preso inserisce la mail dell'utente o non quella del dominio!

Roby

[Fedina]

ecco, forse mi sono spiegata male. Nel db l'ordine c'è, però non mi arriva la mail

> Se la usssi solo come destinatario al massimo non sarebbe recapitato l'ordine ma la mail partirebbe.

Allora se metto la stessa email, parte senza problemi. Se metto un email anche a caso ma con un dominio esistente (libero..virgilio..o qualsiasi altro) parte tranquillamente e arriva (anche se la mail non è corretta..) tipo se metto 123343554323412345@libero.it (che è un indirizzo che non esiste, la mail parte, viene registrata nel db e io la ricevo)
se metto la mia stessa mail cioè destinatario e mittente, la mail arriva tranquillamente.
Se metto l'email di un dominio inesistente tipo fdghaljkfjdkla.it (che non esiste) il programma non mi da errore, l'ordine viene registrato nel db, ma la email non arriva nella mia casella di posta!

[Fedina]

codice:


<td class="corpo" valign="top" align="center">

<link rel="STYLESHEET" type="text/css" href="stile.css">

<table border="0" width="100%" id="AutoNumber1" height="308" cellspacing="8" cellpadding="0" align="center">
<tr>
<td width="100%" height="50" colspan="3" align="center">
</td>
</tr>
<tr>
<td width="100%" height="30%" colspan="3"></td>
</tr>
<tr>
<td width="150" height="100%" rowspan="3" valign="top">


</td>
<td width="450" height="300" align="center">
<table border=0 cellpadding=0 cellspacing=0><tr><td class="corpo">
<%
SpeseDiSpedizione="5,16"
Session.LCID=1040
Set DatabaseWebStore = Server.CreateObject("ADODB.Connection")
DatabaseWebStore.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("mdb-database/webstore.mdb")

if len(Session("aperta")) > 0 Then
QuantiArticoliInScontrino = Session("QuantiArticoliInScontrino")
ScontrinoInScontrino = Session("ScontrinoInScontrino")
ScontrinoIDArticolo = Session("ScontrinoIDArticolo")
ScontrinoCodiceArticolo = Session("ScontrinoCodiceArticolo")
ScontrinoDenominazioneArticolo = Session("ScontrinoDenominazioneArticolo")
ScontrinoQuantitativoArticolo = Session("ScontrinoQuantitativoArticolo")
ScontrinoConfezioneArticolo = Session("ScontrinoConfezioneArticolo")
ScontrinoPrezzoArticolo = Session("ScontrinoPrezzoArticolo")
NOITEMSINSHOPPINGBASKET = Session("NOITEMSINSHOPPINGBASKET")
INFO_NOITEMSINSHOPPINGBASKET = Session("INFO_NOITEMSINSHOPPINGBASKET")
%>
<%
Dim idarticolo
'#################
Dim DBString
'#################

idarticolo = Request.QueryString("idarticolo")
If Len(idarticolo) > 0 Then
Dim sqlquery
sqlquery = "select "
sqlquery = sqlquery & "ID, "
sqlquery = sqlquery & "Codice, "
sqlquery = sqlquery & "Denominazione, "
sqlquery = sqlquery & "Confezione, "
sqlquery = sqlquery & "Prezzo "
sqlquery = sqlquery & "from "
sqlquery = sqlquery & "[Catalogo, Articoli] "
sqlquery = sqlquery & "where "
sqlquery = sqlquery & "ID = " & idarticolo
Dim RecordsetArticolo
Set RecordsetArticolo = DatabaseWebStore.Execute(sqlquery)
Dim ID
Dim Codice
Dim Denominazione
Dim Confezione
Dim Prezzo
If Not RecordsetArticolo.EOF Then
ID = RecordsetArticolo("ID")
Codice = RecordsetArticolo("Codice")
Denominazione = RecordsetArticolo("Denominazione")
Confezione = RecordsetArticolo("Confezione")
Prezzo = RecordsetArticolo("Prezzo")
End If
RecordsetArticolo.Close
Set RecordsetArticolo = Nothing
DatabaseWebStore.Close
Set DatabaseWebStore = Nothing
Dim inscontrino
inscontrino = False
For i = 1 To QuantiArticoliInScontrino
If ScontrinoIDArticolo(i) = ID Then
ScontrinoQuantitativoArticolo(i) = ScontrinoQuantitativoArticolo(i) + 1
inscontrino = True
End If
Next
If inscontrino Then
Else
QuantiArticoliInScontrino = QuantiArticoliInScontrino + 1
ReDim Preserve ScontrinoInScontrino(QuantiArticoliInScontrino)
ReDim Preserve ScontrinoIDArticolo(QuantiArticoliInScontrino)
ReDim Preserve ScontrinoCodiceArticolo(QuantiArticoliInScontrino)
ReDim Preserve ScontrinoDenominazioneArticolo(QuantiArticoliInSco ntrino)
ReDim Preserve ScontrinoConfezioneArticolo(QuantiArticoliInScontr ino)
ReDim Preserve ScontrinoQuantitativoArticolo(QuantiArticoliInScon trino)
ReDim Preserve ScontrinoPrezzoArticolo(QuantiArticoliInScontrino)
ScontrinoInScontrino(QuantiArticoliInScontrino) = True
ScontrinoIDArticolo(QuantiArticoliInScontrino) = ID
ScontrinoCodiceArticolo(QuantiArticoliInScontrino) = Codice
ScontrinoDenominazioneArticolo(QuantiArticoliInSco ntrino) = Denominazione
ScontrinoQuantitativoArticolo(QuantiArticoliInScon trino) = 1
ScontrinoConfezioneArticolo(QuantiArticoliInScontr ino) = Confezione
ScontrinoPrezzoArticolo(QuantiArticoliInScontrino) = Prezzo
End If
NOITEMSINSHOPPINGBASKET = False
Session("QuantiArticoliInScontrino") = QuantiArticoliInScontrino
Session("ScontrinoInScontrino") = ScontrinoInScontrino
Session("ScontrinoIDArticolo") = ScontrinoIDArticolo
Session("ScontrinoCodiceArticolo") = ScontrinoCodiceArticolo
Session("ScontrinoDenominazioneArticolo") = ScontrinoDenominazioneArticolo
Session("ScontrinoQuantitativoArticolo") = ScontrinoQuantitativoArticolo
Session("ScontrinoPrezzoArticolo") = ScontrinoPrezzoArticolo
Session("ScontrinoConfezioneArticolo") = ScontrinoConfezioneArticolo
Session("SpeseDiSpedizione") = SpeseDiSpedizione
Session("NOITEMSINSHOPPINGBASKET") = NOITEMSINSHOPPINGBASKET
Response.Redirect "carrello.asp"
End If%>
<%
Dim Requirement
Requirement = Request.Form("ricalcola.x")
If Len(Requirement) > 0 Then
If Requirement = "Annulla" Then
QuantiArticoliInScontrino = 0
NOITEMSINSHOPPINGBASKET = True
Else
Dim QuantiArticoliInNuovoScontrino
Dim Quantitativo
For i = 1 To QuantiArticoliInScontrino
If Request.Form("checked" & CStr(i)) = "ok" Then
ScontrinoInScontrino(i) = True
Else
ScontrinoInScontrino(i) = False
End If
If ScontrinoInScontrino(i) Then
Quantitativo = Trim(Request.Form("quantitativo" & CStr(i)))
If IsNumeric(Quantitativo) Then
ScontrinoQuantitativoArticolo(i) = Abs(CLng(Quantitativo))
Else
ScontrinoQuantitativoArticolo(i) = 1
End If
QuantiArticoliInNuovoScontrino = QuantiArticoliInNuovoScontrino + 1
ScontrinoInScontrino(QuantiArticoliInNuovoScontrin o) = ScontrinoInScontrino(i)
ScontrinoIDArticolo(QuantiArticoliInNuovoScontrino ) = ScontrinoIDArticolo(i)
ScontrinoCodiceArticolo(QuantiArticoliInNuovoScont rino) = ScontrinoCodiceArticolo(i)
ScontrinoDenominazioneArticolo(QuantiArticoliInNuo voScontrino) = ScontrinoDenominazioneArticolo(i)
ScontrinoConfezioneArticolo(QuantiArticoliInNuovoS contrino) = ScontrinoConfezioneArticolo(i)
ScontrinoQuantitativoArticolo(QuantiArticoliInNuov oScontrino) = ScontrinoQuantitativoArticolo(i)
ScontrinoPrezzoArticolo(QuantiArticoliInNuovoScont rino) = ScontrinoPrezzoArticolo(i)
End If
Next
QuantiArticoliInScontrino = QuantiArticoliInNuovoScontrino
If QuantiArticoliInScontrino > 0 Then
ReDim Preserve ScontrinoInScontrino(QuantiArticoliInScontrino)
ReDim Preserve ScontrinoIDArticolo(QuantiArticoliInScontrino)
ReDim Preserve ScontrinoCodiceArticolo(QuantiArticoliInScontrino)
ReDim Preserve ScontrinoDenominazioneArticolo(QuantiArticoliInSco ntrino)
ReDim Preserve ScontrinoConfezioneArticolo(QuantiArticoliInNuovoS contrino)
ReDim Preserve ScontrinoQuantitativoArticolo(QuantiArticoliInScon trino)
ReDim Preserve ScontrinoPrezzoArticolo(QuantiArticoliInScontrino)
End If
If QuantiArticoliInScontrino = 0 Then
NOITEMSINSHOPPINGBASKET = True
End If
Session("QuantiArticoliInScontrino") = QuantiArticoliInScontrino
Session("ScontrinoInScontrino") = ScontrinoInScontrino
Session("ScontrinoIDArticolo") = ScontrinoIDArticolo
Session("ScontrinoCodiceArticolo") = ScontrinoCodiceArticolo
Session("ScontrinoDenominazioneArticolo") = ScontrinoDenominazioneArticolo
Session("ScontrinoConfezioneArticolo") = ScontrinoConfezioneArticolo
Session("ScontrinoQuantitativoArticolo") = ScontrinoQuantitativoArticolo
Session("ScontrinoPrezzoArticolo") = ScontrinoPrezzoArticolo
Session("NOITEMSINSHOPPINGBASKET") = NOITEMSINSHOPPINGBASKET
End If
End If
%>
<% If NOITEMSINSHOPPINGBASKET = True Then%>
<%=INFO_NOITEMSINSHOPPINGBASKET%>

<%End If%>
<%If NOITEMSINSHOPPINGBASKET = True Then%>
<%Else%>
<FORM ACTION="carrello.asp" METHOD="POST">
<TABLE CELLPADDING=3 CELLSPACING=1 BORDER=0 width="450">
<tr>
<Td class="corpo"></TH>
<Td class="corpo" width="90">Codice</TH>
<Td nowrap class="corpo" width="100">Descrizione</TH>
<Td class="corpo" width="100">Importo &euro;</TH>
<Td class="corpo" width="20">Q.t&agrave;</TH>
<Td class="corpo" width="100">Totale &euro;</TH>
</TR>
<TR><TD COLSPAN=6><HR SIZE=1></TD></TR>
<%
Dim Importo
Importo = 0
%>
<% Dim i%>
<% For i = 1 To QuantiArticoliInScontrino%>
<TR>
<TD ALIGN="center" bgcolor="#DDE8FF" class="corpo">

<INPUT TYPE="CHECKBOX" NAME="<%="checked" & CStr(i)%>" VALUE="ok" CHECKED>
</TD>
<TD bgcolor="#DDE8FF" align="center" class="corpo">

<%=ScontrinoCodiceArticolo(i)%>

</TD>
<TD nowrap bgcolor="#DDE8FF" align="center" class="corpo">

<%=ScontrinoDenominazioneArticolo(i)%>

</TD>
<TD ALIGN="center" bgcolor="#DDE8FF" class="corpo">

<%=FormatNumber(ScontrinoPrezzoArticolo(i), 2, -1, 0, -1)%>

</TD>
<TD ALIGN="center" bgcolor="#DDE8FF" class="corpo">

<INPUT TYPE="TEXT" NAME="<%="quantitativo" & CStr(i)%>" VALUE="<%=ScontrinoQuantitativoArticolo(i)%>" SIZE=2 MAXLENGTH=3>
</TD>
<TD ALIGN="center" bgcolor="#DDE8FF" class="corpo">

<%=FormatNumber((ScontrinoPrezzoArticolo(i) * ScontrinoQuantitativoArticolo(i)), 2, -1, 0, -1)%>


</TD>
</TR>
<%Importo = Importo + (ScontrinoPrezzoArticolo(i) * ScontrinoQuantitativoArticolo(i))%>
<% Next%>
<TR><TD COLSPAN=6 class="corpo"><HR SIZE=1>
<p align="right"><font color="#008000">Spese di spedizione € </font><%=SpeseDiSpedizione%></TD></TR>
<TR>
<TD COLSPAN=5 ALIGN="RIGHT" class="corpo">

Totale &euro;
</TD>
<TD ALIGN="RIGHT" class="corpo">
<%=FormatNumber(Importo + SpeseDiSpedizione, 2, -1, 0, -1)%>
</TD>
</TR>
<TR><TD COLSPAN=6 class="corpo"></TD></TR>
<TR><TD COLSPAN=6 ALIGN="RIGHT" class="corpo">
<INPUT TYPE="image" SRC="icons/recalc.gif" NAME="ricalcola" ALT="Ricalcola il totale">
[img]icons/order.gif[/img]
</TD>
</TR>
</TABLE>
</FORM>
<%End If
else%>
<H4>La sessione è scaduta. Torna all'Home Page</H4>
<%End If
%>
</TD></TR>
<TR><TD align=left>
</TD></TR></table>
</td>
<td width="150" height="100%" rowspan="3" valign="top">


</td>
</tr>
<tr>
<td width="450" height="20" align="center">
Acquista ancora</td>
</tr>
<tr>
<td width="450" height="20"></td>
</tr>
<tr>
<td width="100%" height="55" colspan="3" align="center">
</td>
</tr>
</table>

[Roby_72]

Domanda: a cosa ti serve la mail del cliente per spedirti l'ordine con i dati presenti nel tuo db??
Se il dominio si chiama

pippo.it

destinatario e mittente dell'ordine deve essere una cosa del tipo:

ordine@pippo.it

Spero di essermi spiegato! Se la mail arriva a te, dell'indirizzo del mittente non ci fai assolutamente nulla!

Roby

[Fedina]

dunque..non ho capito..

io sono pinco pallino. voglio comprare un oggetto che ho visto sul tuo sito! compro, e inserisco i miei dati. il mio indirizzo email è pincopallino@libero.it

tu, ricevi l'ordine nella tua casella di posta che è Roby_72@libero.it . ok?

Se io metto una mail del cavolo, a te l'ordine non arriva. capita (spero sempre meno spesso) che un utente che fa un ordine non abbia l'indirizzo email. Quindi magari, come faccio io spesso quando non voglio pubblicità, metto un indirizzo del cavolo. Se il cliente che vuole fare l'ordine non ha un indirizzo email e mette una email fasulla che non esiste, l'ordine non arriva, e io non saprò mai che lui ha effettuato una richiesta di materiale...

non ho capito quello che mi vuoi dire tu..

[Roby_72]

La mail parte dal mio dominio perché tu hai fatto l'ordine dal mio sito. Non mi interessa nulla della tua email se non per poterti contattare successivamente non certo per inviare l'ordine.
Il mio dominio, creamweb.it ha la mail ecommerce@creamweb.it e la userò come mittente dell'ordine ed anche come destinatario visto che la leggo io!

Roby

[Fedina]

ok..ma in questo caso, quando mi arriva un ordine, mi arriva dall'email che il cliente mette (se è valida) altrimenti non mi arriva. E' uno script gia fatto..non ne ho idea bene di cosa faccia..

mi puoi aiutare a risolvere il problema?