Aiutino X E-mail

[flash20]

Ho compilato il seguente codice x inviare delle e-mail, xò mi sono imbattuto in un problemino, il codice ke ho utilizzato è:

<%@LANGUAGE="VBSCRIPT"%>
<%
Dim Body
Body = Body & "Nome: " & Request.Form("pagamento") & VbCRlf
set conn=server.createobject("ADODB.connection")
conn.provider="Microsoft.jet.OLEDB.4.0"
conn.open ("e:/inetpub/wwwroot/e-commerce/negozio.mdb")
set tabella=server.createobject ("ADODB.recordset")
tabella.activeconnection=conn
tabella.source="carrello"
tabella.open()
set tabella2=server.createobject ("ADODB.recordset")
tabella2.activeconnection=conn
tabella2.source="login"
tabella2.open()
u=request.form("ut")
p=request.form("pw")
sql="select * from login where (id='"&u&"' and password='"&p&"')"
set exe=conn.execute(sql)
o=request.querystring("o")
if o="" then
sql="select max(ordine) as mo from carrello"
set res=conn.execute(sql)
o=res("mo")+1
end if
t=request.querystring("t")
dim s
dim prt
prt=0
dim pt
pt=0
dim iva
iva=0
dim tot
tot=0
s="select * from carrello where ordine="&o
set r=conn.execute(s)
do while not r.eof
prt=prt+r("prezzo")*r("quantità")
pt=r("prezzo")*r("quantità")
iva=prt*20/100
tot=prt+iva
dim totale
dim parziale
dim iv
dim prezzo
dim somma
prezzo=formatnumber(r("prezzo"),2)
somma=formatnumber(pt,2)
totale=formatnumber(tot,2)
parziale=formatnumber(prt,2)
iv=formatnumber(iva,2)
Body = Body & exe("nome") & VbCRlf
Body = Body & exe("cognome") & VbCRlf
Body = Body & exe("via") & VbCRlf
Body = Body & exe("citta") & VbCRlf
Body = Body & r("articolo") & VbCRlf
Body = Body & r("quantità") & VbCRlf
Body = Body & (prezzo) & VbCRlf
Body = Body & (somma) & VbCRlf
r.movenext
loop
Body = Body & "Totale: " (parziale) & "Iva: " (iv) & VbCRlf
Body = Body & "Totale Ordine: " (totale) & VbCRlf
tabella.close
set tabella=nothing
tabella2.close
set tabella2=nothing
conn.close
set conn=nothing
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.sito.com"
Mail.From = "ordini@sito.it"
Mail.FromName = "sito"
Mail.AddAddress ("info@sito.com")
Mail.AddAddress ("info2@sito.it")
Mail.Subject = "ordine n° " (o)
Mail.Body = Body
Mail.Send
%>


mi da come errore:
Tipo di errore:
(0x80020009)
Eccezione.
/e-commerce/send.asp, line 53

sarebbe nel punto: Body = Body & exe("nome") & VbCRlf

e un altro errore ke mi da è:
Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A000D)
Tipo non corrispondente: '[string: "Totale: "]'
/e-commerce/send.asp, line 63


dove nel codice ho: Body = Body & "Totale: " (parziale) & "Iva: " (iv) & VbCRlf

Sapreste mica aiutarmi??, mi fareste un piacere enorme

Grazie

:master:

[weppos]

Body = Body & exe("nome") & VbCRlf

Che comando è exe ? :master:

Body = Body & "Totale: " (parziale) & "Iva: " (iv) & VbCRlf

(parziale) e (iv) li hai inseriti (non correttamente) con lo stile di una esecuzione asp.

Cosa sono? Funzioni, variabili, valori, paramentri?

[flash20]

exe è l'esecuzione della stringa sql:

sql="select * from login where (id='"&u&"' and password='"&p&"')"
set exe=conn.execute(sql)


(parziale) e (iv) sono variabili

Come devo fare?

[weppos]

Quel codice è un incubo! VVoVe:

Per cominciare i nomi variabile che io sappia non possono contenere parentesi.

Se si chiama (parziale) allora dovrai chiamarlo parziale e così via.

Per continuare una variabile va inserita tra &

Body = Body & "Totale: " & miavariabile & "Iva: " & altravariabile & VbCRlf

Inotre nel codice definisci numerosi oggeti che poi mai distruggi!
Il tuo server non ne sarà molto felice.

Che senso ha gestire tutte quelle esecuzioni assieme?
Vedo che hai più recordset.. pulisci in

- crea recordset

- crea query
- esegui query
- apri recordset
- chiudi recordset


- crea query
- esegui query
- apri recordset
- chiudi recordset

[...]

- distruggi recordset


Avrai così un codice snello e leggero.

Inoltre dacci un po' di leggibilità ed un po' di ordine.
Dichiara le variabili all'inizio e poi spazia a gruppi le esecuzioni.
PEr comprendere quel codice ci vuole una laurea in astrofisica nuclare ( )...