carrello, non riesco ad inviare tutti gli ordini via mail

sera84

Nuovo Utente
21 Ott 2007
5
0
0
Ciao è da un pò di giorni che non riesco a risolvere questo problema:
Ho realizzato un carrello commerciale:
carrello.asp
<!--#include file="connessione.asp"-->
<!--#include file="verifica.asp"-->
<!--#include file="ADOVBS.INC"-->
<%
'Richiamo l' id del prodotto da inserire
id_prodotto = request("id")

'Aggiunta nuovo prodotto nel Carrello
'Controllo che il prodotto sia già presente nel carrello
if len(id_prodotto) <> 0 then
strSQL = "select id_prodotto, id_user from tbl_Carrello where id_prodotto = " & id_prodotto & " and id_user = " & session("id_utente")
set rs = con.execute(strSQL)
'Se il prodotto non esiste, lo aggiungo
'Altrimenti aggiorno la quantita' di 1 unità
if rs.eof then
'Aggiungo il prodotto
strSQL = "insert into tbl_Carrello(id_user, id_prodotto, quantita) values(" & session("id_utente") & ", " & id_prodotto & ", 1)"
con.execute(strSQL)
else
'Aggiorno la quantità
strSQL = "update tbl_Carrello set quantita = quantita + 1 where id_prodotto = " & id_prodotto & " and id_user = " & session("id_utente")
con.execute(strSQL)
end if
rs.close
set rs = nothing
end if
'Fine

'Aggiorno il carrello
if request("azione") = "aggiorna" then
'Controllo quali prodotti aggiornare o eliminare
set rs = Server.CreateObject("ADODB.Recordset")
rs.activeconnection = con
rs.cursortype = adOpenDynamic
rs.locktype = adLockOptimistic
strsql = "select * from tbl_Carrello where id_user = " & session("id_utente")
rs.open strsql

'Elenco dei prodotti nel carrello
'E modifica...
while not rs.eof
pc = request("pc_" & rs("id_prodotto"))

if isnumeric(pc) then
if pc = 0 then
rs.delete
else
rs("quantita") = pc
end if
end if

rs.movenext
wend
'Fine
rs.close
set rs = nothing
'Fine
end if


%>
<html>
<head>
<title>Il tuo carrello</title>
</head>

<body>

<h1>Il tuo Carrello</h1>
<hr>

<table align="center" width="500" border="1">
<form method="post" action="carrello.asp?azione=aggiorna">
<tr bgcolor="#C0C0C0">
<td align="center" width="300">Prodotto</td>
<td align="center" width="100">Quantita'</td>
<td align="center" width="100">Prezzo</td>
</tr>
<%
'Inizializzo le variabili per il prezzo totale
var_tot = 0

'Visualizzo tutti i prodotti del carrello
strSQL = "select id_prodotto, id_user, quantita from tbl_Carrello where id_user = " & session("id_utente")
set rs = con.execute(strSQL)

'Il carrello e' vuoto ?
if rs.eof then
%>
<tr>
<td colspan="3" align="center">
Il tuo carrello e' vuoto<br>
<a href="prodotti.asp">Torna ai prodotti</a>
</td>
</tr>
<%
end if

'Fine

'Elenco dei prodotti
while not rs.eof
'Prelevo tutti i dati dal carrello
id_prodotto = rs("id_prodotto")
qnt = rs("quantita")
'Richiamo le informazioni relative al prodotto
'e aggiorno il valore del prezzo totale
strSQL = "select nome, prezzo from tbl_Prodotti where id = " & id_prodotto
set rs2 = con.execute(strSQL)
nome = rs2("nome")
prezzo = rs2("prezzo")
var_tot = var_tot + (prezzo * qnt)


rs2.close

set rs2 = nothing

'Fine
'Visualizzo i prodotti nella tabella
%>
<tr>
<td><%=nome%></td>
<td><input type="text" name="pc_<%=id_prodotto%>" value="<%=qnt%>" size="2" maxlength="2"></td>
<td><%=formatnumber(prezzo, 2)%> €</td>
</tr>
<%

if request("azione") = "invia" then
%>
<!-- inizio invio email -->
<!-- #include file ="invioordine.asp" -->
<!-- fine invio email -->
<% end if

rs.movenext
wend
rs.close
set rs = nothing

'Fine


%>

<tr>

<td colspan="2" bgcolor="#C0C0C0" align="center"> <input type="submit" name="Submit2" value="Aggiorna Carrello"></td>
<td>
Tot. <%=formatnumber(var_tot, 2)%> €
</td>
</tr>
<tr>
<td colspan="2" bgcolor="#C0C0C0" align="center"> <p><a href="cancella.asp">svuota
carrello</a>
</tr>
</form>
</form>
</table>
<table align="center" width="500" border="1">
<form method="post" action="carrello.asp?azione=invia">

<tr>

<td> <div align="center">
<input type="submit" name="Submit" value="Invia ordine">
</div></td>
</tr>
</form>
</table>

<p><a href="prodotti.asp">prodotti</a></p>
</body>
</html>


ora vorrei inviare gli ordini che il cliente fa via mail, ma mi invia soltanto un ordine, mi spiego meglio:
se un cliente mette nel carrello 2 prodotti diversi (un divano e una sedia) poi nell'invio mail dell'ordine mi compare soltanto un prodotto i lsecondo non riesco a visualizzarlo, oppure mi compare il secondo e il primo no (cambia in base alla posizione di <!-- #include file ="invioordine.asp" -->).
Ho provato davvero di tutto, ma non so proprio come risolvere la situazione.
invioordine.asp

<!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows 2000 Type Library" -->
<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" -->

<%



'============Linkbruttocane su specifiche MSDN================
'* il corpo finale del messaggio contiene tutti i campi *
'* inseriti nella pagina html, in pratica puoi mettere *
'* tutti i campi che ti servono nel modulo di invio senza *
'* fare altre configurazioni aggiuntive. *
'=============================================================

DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo

'* voce da modificare con il proprio indirizzo email

regmail ="[email protected]"

'* voce da modificare con un indirizzo email che funga da mittente:
'* in caso di errore riceverete notifica a questo indirizzo un MAILER-DAEMON
'* dato che cdosys supporta questa notifica

miamail = "[email protected]"

'------------fine modifiche necessarie------------------

nomeDominio = Request.ServerVariables("HTTP_HOST")
indirizzoIp = Request.ServerVariables("REMOTE_ADDR")
modulo = Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo = Request.ServerVariables("HTTP_USER_AGENT")

'*rilevo i campi del form

FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
IF NOT Request.Form(numeroCampi) = "" THEN
corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))
END IF
NEXT

'* creo gli oggetti cdosys sul server e li gestisco

DIM iMsg, Flds, iConf

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update


strSQL = "select id_prodotto, id_user, quantita from tbl_Carrello where id_user = " & session("id_utente")
set rs = con.execute(strSQL)

strSQL = "select nome, prezzo from tbl_Prodotti where id = " & id_prodotto
set rs2 = con.execute(strSQL)


'mail a me da chi si registra
With iMsg
Set .Configuration = iConf
.To = miamail
.From = regmail
.Sender = regmail
.Subject = "Nuovo ordine"
while not rs.eof
.TextBody = "Un utente ha effettuato un nuovo ordine: "& Chr(13)&Chr(10)&_
"nome: " &nome& Chr(13)&Chr(10)&_
"quantita: " &qnt& Chr(13)&Chr(10)&_
"prezzo: " &prezzo & Chr(13)&Chr(10)&_
"totale: " &var_tot
rs.movenext
wend
.Send
End With



'mail a chi si è registrato

With iMsg
Set .Configuration = iConf
.To = regmail
.From = miamail
.Sender = regmail
.Subject = "ordine dal sito www.taras_store.com"
.TextBody = "Un utente ha effettuato un nuovo ordine: "& Chr(13)&Chr(10)&_
"nome: " & Request.form("nome")& Chr(13)&Chr(10)&_
"quantita: " &qnt& Chr(13)&Chr(10)&_
"prezzo: " &prezzo & Chr(13)&Chr(10)&_
"totale: " &var_tot
.Send
End With
On Error Resume Next

response.redirect "invio_ok.htm"

%>

Spero che qualcuno mi aiuti.

grazie
 

sera84

Nuovo Utente
21 Ott 2007
5
0
0
ancora errori...

ho provato a modificare il codice in modo da scirvere gli ordini nel database ma mi da questo errore


Microsoft VBScript compilation error '800a0401'

Expected end of statement

/unione2/invioordine.asp, line 74

"email: "request.form("mail") Chr(13)&Chr(10)&_

posto il codice:

carrello.asp
<!--#include file="connessione.asp"-->
<!--#include file="verifica.asp"-->
<!--#include file="ADOVBS.INC"-->
<%
'Richiamo l' id del prodotto da inserire
id_prodotto = request("id")
mail=request("email")
utenteordine=("nome")

'Aggiunta nuovo prodotto nel Carrello
'Controllo che il prodotto sia già presente nel carrello
if len(id_prodotto) <> 0 then
strSQL = "select id_prodotto, id_user from tbl_Carrello where id_prodotto = " & id_prodotto & " and id_user = " & session("id_utente")
set rs = con.execute(strSQL)
'Se il prodotto non esiste, lo aggiungo
'Altrimenti aggiorno la quantita' di 1 unità
if rs.eof then
'Aggiungo il prodotto
strSQL = "insert into tbl_Carrello(id_user, id_prodotto, quantita) values(" & session("id_utente") & ", " & id_prodotto & ", 1)"
con.execute(strSQL)
else
'Aggiorno la quantità
strSQL = "update tbl_Carrello set quantita = quantita + 1 where id_prodotto = " & id_prodotto & " and id_user = " & session("id_utente")
con.execute(strSQL)
end if
rs.close
set rs = nothing
end if
'Fine

'Aggiorno il carrello
if request("azione") = "aggiorna" then
'Controllo quali prodotti aggiornare o eliminare
set rs = Server.CreateObject("ADODB.Recordset")
rs.activeconnection = con
rs.cursortype = adOpenDynamic
rs.locktype = adLockOptimistic
strsql = "select * from tbl_Carrello where id_user = " & session("id_utente")
rs.open strsql

'Elenco dei prodotti nel carrello
'E modifica...
while not rs.eof
pc = request("pc_" & rs("id_prodotto"))

if isnumeric(pc) then
if pc = 0 then
rs.delete
else
rs("quantita") = pc
end if
end if

rs.movenext
wend
'Fine
rs.close
set rs = nothing
'Fine
end if


%>
<html>
<head>
<title>Il tuo carrello</title>
</head>

<body>

<h1>Il tuo Carrello</h1>
<hr>

<table align="center" width="500" border="1">
<form method="post" action="carrello.asp?azione=aggiorna">
<tr bgcolor="#C0C0C0">
<td align="center" width="300">Prodotto</td>
<td align="center" width="100">Quantita'</td>
<td align="center" width="100">Prezzo</td></tr>
<%
'Inizializzo le variabili per il prezzo totale
var_tot = 0

'Visualizzo tutti i prodotti del carrello
strSQL = "select id_prodotto, id_user, quantita from tbl_Carrello where id_user = " & session("id_utente")
set rs = con.execute(strSQL)

'Il carrello e' vuoto ?
if rs.eof then
%>
<tr>
<td colspan="3" align="center">
Il tuo carrello e' vuoto<br>
<a href="prodotti.asp">Torna ai prodotti</a>
</td>
</tr>
<%
end if

'Fine

'Elenco dei prodotti
while not rs.eof
'Prelevo tutti i dati dal carrello
id_prodotto = rs("id_prodotto")
qnt = rs("quantita")
'Richiamo le informazioni relative al prodotto
'e aggiorno il valore del prezzo totale
strSQL = "select nome, prezzo from tbl_Prodotti where id = " & id_prodotto
set rs2 = con.execute(strSQL)
nome = rs2("nome")
prezzo = rs2("prezzo")
var_tot = var_tot + (prezzo * qnt)


rs2.close

set rs2 = nothing

'Fine
'Visualizzo i prodotti nella tabella
%>
<tr>
<td><%=nome%></td>
<td><input type="text" name="pc_<%=id_prodotto%>" value="<%=qnt%>" size="2" maxlength="2"></td>
<td><%=formatnumber(prezzo, 2)%> €</td>
</tr>
<%

if request("azione") = "invia" then
%>
<!-- inizio invio email -->
<!-- #include file ="invioordine.asp" -->
<!-- fine invio email -->
<%
strSQL = "select id_prodotto, id_user, quantita from tbl_Ordini where id_user = " & session("id_utente")
set rs3 = con.execute(strSQL)
rs3.AddNew
rs3("utenteordine")="utenteordine"
rs3(mail)="mail"
rs3(nome) = "nome"
rs3(prezzo)="prezzo"
rs3(quantita)="qnt"
rs3(totale)="var_tot"
'Aggiorno i valori nel RecordSet
rs.Update

end if

rs.movenext
wend
rs.close
set rs = nothing

'Fine


%>

<tr>

<td colspan="2" bgcolor="#C0C0C0" align="center"> <input type="submit" name="Submit2" value="Aggiorna Carrello"></td>
<td>
Tot. <%=formatnumber(var_tot, 2)%> €
</td>
</tr>
<tr>
<td colspan="2" bgcolor="#C0C0C0" align="center"> <p><a href="cancella.asp">svuota
carrello</a>
</tr>
</form>
</form>
</table>
<table align="center" width="500" border="1">>
<form method="post" action="carrello.asp?azione=invia">

<tr>

<td> <div align="center">
<input type="submit" name="Submit" value="Invia ordine">
</div></td>
</tr>
</form>
</table>

<p><a href="prodotti.asp">prodotti</a></p>
</body>
</html>

inviorodine.asp
<!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows 2000 Type Library" -->
<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" -->

<%



'============Linkbruttocane su specifiche MSDN================
'* il corpo finale del messaggio contiene tutti i campi *
'* inseriti nella pagina html, in pratica puoi mettere *
'* tutti i campi che ti servono nel modulo di invio senza *
'* fare altre configurazioni aggiuntive. *
'================================================= ============

DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo

strSQL = "select id_prodotto, id_user, quantita from tbl_Ordini where id_user = " & session("id_utente")
set rs3 = con.execute(strSQL)


'* voce da modificare con il proprio indirizzo email

regmail =requestform("mail")

'* voce da modificare con un indirizzo email che funga da mittente:
'* in caso di errore riceverete notifica a questo indirizzo un MAILER-DAEMON
'* dato che cdosys supporta questa notifica

miamail = "[email protected]"

'------------fine modifiche necessarie------------------

nomeDominio = Request.ServerVariables("HTTP_HOST")
indirizzoIp = Request.ServerVariables("REMOTE_ADDR")
modulo = Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo = Request.ServerVariables("HTTP_USER_AGENT")

'*rilevo i campi del form

FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
IF NOT Request.Form(numeroCampi) = "" THEN
corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))
END IF
NEXT

'* creo gli oggetti cdosys sul server e li gestisco

DIM iMsg, Flds, iConf

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update






'mail a me da chi si registra
With iMsg
Set .Configuration = iConf
.To = miamail
.From = regmail
.Sender = regmail
.Subject = "Nuovo ordine"
while not rs3.eof
.TextBody = "" & utenteordine& " ha effettuato un nuovo ordine: "& Chr(13)&Chr(10)&_
"email: "request.form("mail") Chr(13)&Chr(10)&_
"nome: "request.form("nome") Chr(13)&Chr(10)&_
"quantita: " request.form("quantita") Chr(13)&Chr(10)&_
"prezzo: " request.form("prezzo") & Chr(13)&Chr(10)&_
"totale: " request.form("totale")
rs3.movenext
wend
.Send
End With



'mail a chi si è registrato

With iMsg
Set .Configuration = iConf
.To = regmail
.From = miamail
.Sender = regmail
.Subject = "ordine dal sito www.taras_store.com"
.TextBody = "" & utenteordine& " ha effettuato un nuovo ordine: "& Chr(13)&Chr(10)&_
"email: "request.form("mail") Chr(13)&Chr(10)&_
"nome: "request.form("nome") Chr(13)&Chr(10)&_
"quantita: " request.form("quantita") Chr(13)&Chr(10)&_
"prezzo: " request.form("prezzo") & Chr(13)&Chr(10)&_
"totale: " request.form("totale")
.Send
End With
On Error Resume Next

response.redirect "invio_ok.htm"

%>

sicuramente ci saranno altri errori se potete aiutarmi...

grazie
 

PoLe

MRW Moderator
6 Giu 2005
2.210
3
0
37
.: Venezia :.
www.bzconsulting.it
Sbagli a costruire le stringhe.

Ti faccio un esempio. La riga:
Codice:
"email: "request.form("mail") Chr(13)&Chr(10)&_
non funziona perchè non inserisci l'operatore di somma delle stringhe, dovresti fare:
Codice:
"email: " [COLOR="Blue"][B]&[/B][/COLOR] request.form("mail") [COLOR="blue"][B]&[/B][/COLOR] Chr(13)&Chr(10)&_


Controllale tutte, correggile come ti ho detto, e se non ci sono altri errori e vedrai che fungerà tutto!
:byebye:
 

sera84

Nuovo Utente
21 Ott 2007
5
0
0
dati non corretti!!

Ti ringrazio molto per l'aiuto che mi stai dando.

Ho corretto come mihai detto infati ora non mi da più errori, solo che quando faccio che nelle mail non mi scrive niente.....

non riesce a recuperare gli ordini

ho provato ha fare molte prove ma niente!
se hai qualche suggerimento da darmi.....

ti posto i nuovi file ok?
carrello.asp
<!--#include file="connessione.asp"-->
<!--#include file="verifica.asp"-->
<!--#include file="ADOVBS.INC"-->
<%
'Richiamo l' id del prodotto da inserire
id_prodotto = request("id")
mail=request("email")
utenteordini=request("nome")


'Aggiunta nuovo prodotto nel Carrello
'Controllo che il prodotto sia già presente nel carrello
if len(id_prodotto) <> 0 then
strSQL = "select id_prodotto, id_user from tbl_Carrello where id_prodotto = " & id_prodotto & " and id_user = " & session("id_utente")
set rs = con.execute(strSQL)
'Se il prodotto non esiste, lo aggiungo
'Altrimenti aggiorno la quantita' di 1 unità
if rs.eof then
'Aggiungo il prodotto
strSQL = "insert into tbl_Carrello(id_user, id_prodotto, quantita) values(" & session("id_utente") & ", " & id_prodotto & ", 1)"
con.execute(strSQL)
else
'Aggiorno la quantità
strSQL = "update tbl_Carrello set quantita = quantita + 1 where id_prodotto = " & id_prodotto & " and id_user = " & session("id_utente")
con.execute(strSQL)
end if
rs.close
set rs = nothing
end if
'Fine

'Aggiorno il carrello
if request("azione") = "aggiorna" then
'Controllo quali prodotti aggiornare o eliminare
set rs = Server.CreateObject("ADODB.Recordset")
rs.activeconnection = con
rs.cursortype = adOpenDynamic
rs.locktype = adLockOptimistic
strsql = "select * from tbl_Carrello where id_user = " & session("id_utente")
rs.open strsql

'Elenco dei prodotti nel carrello
'E modifica...
while not rs.eof
pc = request("pc_" & rs("id_prodotto"))

if isnumeric(pc) then
if pc = 0 then
rs.delete
else
rs("quantita") = pc
end if
end if

rs.movenext
wend
'Fine
rs.close
set rs = nothing
'Fine
end if


%>
<html>
<head>
<title>Il tuo carrello</title>
</head>

<body>

<h1>Il tuo Carrello</h1>
<hr>

<table align="center" width="500" border="1">
<form method="post" action="carrello.asp?azione=aggiorna">
<tr bgcolor="#C0C0C0">
<td align="center" width="300">Prodotto</td>
<td align="center" width="100">Quantita'</td>
<td align="center" width="100">Prezzo</td></tr>
<%
'Inizializzo le variabili per il prezzo totale
var_tot = 0

'Visualizzo tutti i prodotti del carrello
strSQL = "select id_prodotto, id_user, quantita from tbl_Carrello where id_user = " & session("id_utente")
set rs = con.execute(strSQL)

'Il carrello e' vuoto ?
if rs.eof then
%>
<tr>
<td colspan="3" align="center">
Il tuo carrello e' vuoto<br>
<a href="prodotti.asp">Torna ai prodotti</a>
</td>
</tr>
<%
end if

'Fine

'Elenco dei prodotti
while not rs.eof
'Prelevo tutti i dati dal carrello
id_prodotto = rs("id_prodotto")
qnt = rs("quantita")
'Richiamo le informazioni relative al prodotto
'e aggiorno il valore del prezzo totale
strSQL = "select nome, prezzo from tbl_Prodotti where id = " & id_prodotto
set rs2 = con.execute(strSQL)
nome = rs2("nome")
prezzo = rs2("prezzo")
var_tot = var_tot + (prezzo * qnt)


rs2.close

set rs2 = nothing

'Fine
'Visualizzo i prodotti nella tabella
%>
<tr>
<td><%=nome%></td>
<td><input type="text" name="pc_<%=id_prodotto%>" value="<%=qnt%>" size="2" maxlength="2"></td>
<td><%=formatnumber(prezzo, 2)%> €</td>
</tr>
<%

if request("azione") = "invia" then
%>
<!-- inizio invio email -->
<!-- #include file ="invioordine.asp" -->
<!-- fine invio email -->
<%
strSQL = "select * from tbl_Ordini where id_user = " & session("id_utente")
set rs3 = con.execute(strSQL)
rs3.AddNew
rs3("utenteordini")="utenteordini"
rs3(mail)=request("email")
rs3(nome) = "nome"
rs3(prezzo)=request("prezzo")
rs3(quantita)="qnt"
rs3(totale)="var_tot"
'Aggiorno i valori nel RecordSet
rs.Update

end if

rs.movenext
wend
rs.close
set rs = nothing

'Fine


%>

<tr>

<td colspan="2" bgcolor="#C0C0C0" align="center"> <input type="submit" name="Submit2" value="Aggiorna Carrello"></td>
<td>
Tot. <%=formatnumber(var_tot, 2)%> €
</td>
</tr>
<tr>
<td colspan="2" bgcolor="#C0C0C0" align="center"> <p><a href="cancella.asp">svuota
carrello</a>
</tr>
</form>
</form>
</table>
<table align="center" width="500" border="1">>
<form method="post" action="carrello.asp?azione=invia">

<tr>

<td> <div align="center">
<input type="submit" name="Submit" value="Invia ordine">
</div></td>
</tr>
</form>
</table>

<p><a href="prodotti.asp">prodotti</a></p>
</body>
</html>



inviorodine.asp
<!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows 2000 Type Library" -->
<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" -->

<%



'============Linkbruttocane su specifiche MSDN================
'* il corpo finale del messaggio contiene tutti i campi *
'* inseriti nella pagina html, in pratica puoi mettere *
'* tutti i campi che ti servono nel modulo di invio senza *
'* fare altre configurazioni aggiuntive. *
'================================================= ============

DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo

strSQL = "select * from tbl_Ordini where id_user = " & session("id_utente")
set rs3 = con.execute(strSQL)


'* voce da modificare con il proprio indirizzo email

regmail = "[email protected]"

'* voce da modificare con un indirizzo email che funga da mittente:
'* in caso di errore riceverete notifica a questo indirizzo un MAILER-DAEMON
'* dato che cdosys supporta questa notifica

miamail = "[email protected]"

'------------fine modifiche necessarie------------------

nomeDominio = Request.ServerVariables("HTTP_HOST")
indirizzoIp = Request.ServerVariables("REMOTE_ADDR")
modulo = Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo = Request.ServerVariables("HTTP_USER_AGENT")

'*rilevo i campi del form

FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
IF NOT Request.Form(numeroCampi) = "" THEN
corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))
END IF
NEXT

'* creo gli oggetti cdosys sul server e li gestisco

DIM iMsg, Flds, iConf

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update



'mail a me da chi si registra
With iMsg
Set .Configuration = iConf
.To = miamail
.From = regmail
.Sender = regmail
.Subject = "Nuovo ordine"
while not rs3.eof
.TextBody = " ha effettuato un nuovo ordine: "& Chr(13)&Chr(10)&_
"email: " &request.form("mail")& Chr(13)&Chr(10)&_
"nome: "& request.form("nome")& Chr(13)&Chr(10)&_
"quantita: " &request.form("quantita") &Chr(13)&Chr(10)&_
"prezzo: " &request.form("prezzo") & Chr(13)&Chr(10)&_
"totale: " &request.form("totale")
rs3.movenext
wend
.Send
End With
On Error Resume Next



'mail a chi si è registrato

With iMsg
Set .Configuration = iConf
.To = regmail
.From = miamail
.Sender = regmail
.Subject = "ordine dal sito www.taras_store.com"
'.TextBody = "" & utenteordini& " ha effettuato un nuovo ordine: "& Chr(13)&Chr(10)&_
while not rs3.eof
.TextBody = " ha effettuato un nuovo ordine: "& Chr(13)&Chr(10)&_
"email: " &request.form("mail")& Chr(13)&Chr(10)&_
"nome: "& request.form("nome")& Chr(13)&Chr(10)&_
"quantita: " &request.form("quantita") &Chr(13)&Chr(10)&_
"prezzo: " &request.form("prezzo") & Chr(13)&Chr(10)&_
"totale: " &request.form("totale")
rs3.movenext
wend
.Send
End With
On Error Resume Next


response.redirect "invio_ok.htm"

%>

se mi saprai aiutare anche questa volta te ne sarò molto grata
ciao e grazie
apsetto tuoi suggerimenti
 
Ultima modifica:

sera84

Nuovo Utente
21 Ott 2007
5
0
0
scusami hai ragione,

il problema è che quando clicco su invia ordini, le mail mi arrivano, ma vuote senza testo, solo l'oggetto mail viene visualizzato, evidentemente non riesce a leggere dal database.

spero di essermi spiegata meglio ciao e grazie
 

PoLe

MRW Moderator
6 Giu 2005
2.210
3
0
37
.: Venezia :.
www.bzconsulting.it
Ma usare l'oggetto cdonts non è più semplice?
Non è questione di semplicità, il fatto è che l'oggetto CDONTS oramai è diventato obsoleto ed è bene non utilizzarlo più.

@sera84
Sorry, mi ero scordato di te :p

Direi che il problema è nella costuzione del corpo della mail.
Prova a modificare così:
Codice:
...
Dim txtmail
txtmail = ""
while not rs3.eof
txtmail = txtmail & " ha effettuato un nuovo ordine: "& Chr(13)&Chr(10)&_ 
"email: " &request.form("mail")& Chr(13)&Chr(10)&_
"nome: "& request.form("nome")& Chr(13)&Chr(10)&_
"quantita: " &request.form("quantita") &Chr(13)&Chr(10)&_
"prezzo: " &request.form("prezzo") & Chr(13)&Chr(10)&_
"totale: " &request.form("totale")
rs3.movenext
wend
.TextBody = txtmail
...

te l'ho buttata là senza verificare, facci sapere :)
 
Discussioni simili
Autore Titolo Forum Risposte Data
D Pulsante aggiungi al carrello nello slider prodotti in offerta WordPress 2
gandalf1959 formattazione carrello plug-in WP Simple Paypal Shopping cart WordPress 2
H problema carrello woocommerce PHP 2
A Problema checkout carrello php PHP 2
Daniele_Carrara [PHP] Creazione Carrello PHP 1
maxnegri Sommare i prezzi dei prodotti aggiunti al carrello di diverse aziende con Select sum php mysqli PHP 10
MatteoRoma81 Cercasi web design per carrello elettronico Offerte e Richieste di Lavoro e/o Collaborazione 2
ANDREA20 problemi carrello in php PHP 0
ANDREA20 [PHP] Problemi carrello commerciale PHP 0
ANDREA20 [PHP] carrello commerciale PHP 7
ANDREA20 Creare carrello della spesa e applicare uno sconto E-Commerce 6
Rikk73 Carrello elettronico per e-commerce Snippet PHP 4
Z Consiglio nel creare il CARRELLO PHP 4
filomeni Aggiorna Carrello della spesa PHP 0
C Aggiungi al carrello PHP 0
W Wordpress + woocommerce rimuovere pacchetto prodotti dal conteggio del carrello WordPress 0
V E-commerce svuota carrello E-Commerce 1
I aggiungi al carrello con paypall Classic ASP 1
P Inserimento avviso sul carrello Magento 0
L Finto carrello virtuale blogger HTML e CSS 1
Z Pagina carrello PHP 1
D Implemento carrello simplecart senza l'inserimento del catalogo prodotti Javascript 0
Shyson Pulsante aggiungi al carrello jQuery 0
Shyson Carrello con pagamento elettronico E-Commerce 2
A Prezzo dinamico carrello e messaggio cancellazione Javascript 1
L eliminare un prodotto dal carrello tramite l'id della sessione PHP 1
R [Risolto] Passare Variabile importo carrello a Paypal Classic ASP 7
I Passare dei valori con submit (carrello) PHP 1
S carrello in javascript e xml Javascript 0
M Consiglio carrello per adobe dreamweaver E-Commerce 8
B carrello spesa PHP 9
neo996sps Carrello spesa minimale con php PHP 2
N Eliminazione prodotto carrello PHP 17
N Problema pulsant cancella ed aggiorna del carrello PHP 7
N Un carrello della spesa con PHP/MySQL PHP 2
filomeni Carrello della spesa PHP 1
filomeni Carrello della spesa Content Management System (CMS) 3
filomeni Carrello della spesa Discussioni Varie 4
neo996sps Problema con carrello elettronico PHP 2
Z tutorial carrello della spesa in php PHP 22
P metodo per carrello elettronico PHP 3
emanuelevt Carrello e-commerce E-Commerce 4
P Carrello ajax Ajax 0
B domanda carrello PHP 2
A Carrello via email Classic ASP 1
S come fare la somma degli articoli del carrello PHP 6
M Carrello elettronico Ajax-PHP Ajax 0
G Aiuto array - Carrello PHP 4
S Una specie di carrello php PHP 3
S Carrello PHP 2

Discussioni simili