Invio E-mail Al Cliente

[capitanrossi]

RISULTATO:

ADODB.Recordset error '800a0bb9' 

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another. 

/ecommerce/pannello_controllo/admin/invio_bonifico.asp, line 79

La riga 79 è questa:
objrecordset.open "clienti" ,db_connection,adOpenKeyset,adLockPessim

[Corinna]

objrecordset.open "clienti", objconnection, adOpenKeyset, adLockPessimistic

[capitanrossi]

Questi errori mi stanno dando ai nervi, risolto uno eccoti l'altro..

ADODB.Recordset error '800a0bcd'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record. 

/ecommerce/pannello_controllo/admin/invio_bonifico.asp, line 44

La linea 44 e 45 sono le seguenti:

rs.movefirst
do while not rs.eof

[Corinna]

scusa, colpa mia.
leva anche la riga in cui chiudi la connessione e spostala sotto alla chiusura del secondo recordset.

[capitanrossi]

scusa corinna parli di objrecordset.close o di objdbconnection.close

[Corinna]

connessione... connection... mettila in fondo....

[capitanrossi]

persiste questo maledetto errore:

ADODB.Recordset error '800a0bcd' 

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record. 

/ecommerce/pannello_controllo/admin/invio_bonifico.asp, line 44

objdbconnection.close l'ho inserito qui:

objrecordset.update
objrecordset.close
set objrecordset=nothing
objdbconnection.close 

' CDONTS Email
Set Mail = Server.CreateObject("CDONTS.NewMail")
'cosa crei a fare un oggetto cdonts se poi usi l'oggetto persits?

[capitanrossi]

AIUTOOOOOOOOOOOOOOOOO

Corinnnnnnnnnaaaaaaaaaa

[capitanrossi]

Ora la pagina non da errore...ma non viene inviata alcuna e-mail

PERCHE'???

Che sbaglio ora?

<% 
sql="select * from acquisti where id_session = '"&session.SessionID&"' "
set objdbconnection=server.createobject("ADODB.connection")
objdbconnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("..\database\db.mdb")
set rs=objdbconnection.execute(sql)

body=BODY&"<font color='black' style='font-weight:bold' face='Arial' size='2'>Hai effettuato un ordine dal sito www.dominio.it 
Di seguito ti elenchiamo i prodotti acquistati: </font>

"
body=body&"<table style='font-family:arial; font-size:11px'>"
body=body&"<tr align=center bgcolor=fec206 width=500>"
body=body&"<td>PRODOTTO</td>"
body=body&"<td>CODICE</td>"
body=body&"<td>QUANTITA</td>"
body=body&"<td>PREZZO</td>"
body=body&"</tr>"

rs.movefirst
do while not rs.eof

tot=rs("prezzo")*rs("quantita")

body=body&"<tr align=center>"
body=body&"<td>"&rs("nome")&"</td>"
body=body&"<td>"&rs("codice")&"</td>"
body=body&"<td>"&rs("quantita")&"</td>"
body=body&"<td>"&replace(tot,".",",")&"€</td>"
body=body&"</tr>"

totale=totale+tot
rs.movenext
loop 
rs.close
objdbconnection.close


nome=Request.Form("nome") 
cognome=Request.Form("cognome") 
indirizzo=Request.Form("indirizzo")
comune=Request.Form("comune") 
provincia=Request.Form("provincia") 
cap=Request.Form("cap") 
telefono=Request.Form("telefono") 
fax=Request.Form("fax") 
email=Request.Form("email")  
ragione_sociale=Request.Form("ragione_sociale") 
indirizzo_azienda=Request.Form("indirizzo_azienda") 
piva=Request.Form("piva") 


body=body&"</table>

"
body=BODY&"<font color='black' style='font-weight:bold' face='Arial' size='2'>Avete effettuato un ordine dal sito www.dominio.it. 
Di seguito vi elenchiamo i dati da Voi inseriti e i prodotti acquistati: </font>

"
body=BODY&"<font color='black' style='font-weight:bold' face='Arial' size='2'>Nome: </font><font color='black' face='Arial'  size='2'>"&nome&"</font>
"
body=BODY&"<font color='black' style='font-weight:bold' face='Arial' size='2'>Cognome: </font><font color='black' face='Arial'  size='2'>"&cognome&"</font>
"
body=BODY&"<font color='black' style='font-weight:bold' face='Arial' size='2'>Indirizzo: </font><font color='black' face='Arial'  size='2'>"&indirizzo&"</font>
"
body=BODY&"<font color='black' style='font-weight:bold' face='Arial' size='2'>Città: </font><font color='black' face='Arial'  size='2'>"&citta&"</font>
"
body=BODY&"<font color='black' style='font-weight:bold' face='Arial' size='2'>Provincia: </font><font color='black' face='Arial'  size='2'>"&provincia&"</font>
"
body=BODY&"<font color='black' style='font-weight:bold' face='Arial' size='2'>Cap: </font><font color='black' face='Arial'  size='2'>"&cap&"</font>
"
body=BODY&"<font color='black' style='font-weight:bold' face='Arial' size='2'>Telefono: </font><font color='black' face='Arial'  size='2'>"&telefono&"</font>
"
body=BODY&"<font color='black' style='font-weight:bold' face='Arial' size='2'>Email: </font><font color='black' face='Arial'  size='2'>"&email&"</font>

"
body=BODY&"<font color='black' style='font-weight:bold' face='Arial' size='2'>Riceverete una telefonata da un ns operatore per la conferma dell'ordine.
Il pagamento avverrà in contrassegno.</font>

"
body=BODY&"<font color='black'  face='Arial' size='2'>Questi sono i prodotti da Lei acquistati pe un costo iva compresa di: <font color=red>"&totale_ivato+spese_spedizione&" Eur</font>
(spese di spedizione incluse)</font>

"
body=body&"<font color='red' style='font-weight:bold' face='Arial' size='2'>Società Srl
</font>
"
body=body&"<font color='red' style='font-weight:bold' face='Arial' size='2'>ABI: 333333
</font>
"
body=body&"<font color='red' style='font-weight:bold' face='Arial' size='2'>CAB: 333333
</font>
"
body=body&"<font color='red' style='font-weight:bold' face='Arial' size='2'>N.C. 333333
</font>
"
body=body&"<font color='red' style='font-weight:bold' face='Arial' size='2'>CIN: 
</font>
"
body=body&"<font color='red' style='font-weight:bold' face='Arial' size='2'>Inviare la distinta a 1/2 fax al numero 800.800.800</font>

"
body=body&"<font color='black' style='font-weight:bold' face='Arial' size='2'>Vi auguriamo buon lavoro.</font>"

If Request("invia") <> "" Then
Set Mail = Server.CreateObject("Persits.MailSender")

Mail.Host = "mail.dominio.it"
Mail.From = "info@dominio.it" ' Indirizzo email del mittente
Mail.FromName = "Responsabile Web" ' Nome del mittente - opzionale
Mail.AddAddress Request("email") ' L'indirizzo del destinatario che ricaviamo dall'elemento "email" del form
Mail.body = body
Mail.Subject = "Nuovo acquisto da www.dominio.it"
Mail.IsHTML = True


strErr = ""
bSuccess = False
On Error Resume Next ' catch errors
Mail.Send ' send message
If Err <> 0 Then ' error occurred
strErr = Err.Description
else
bSuccess = True
End If
End If
%>

Grazie

[capitanrossi]

C'è qualcuno che possa perdere
il proprio tempo con un principiante come me??

Ho postato il codice, dove sbaglio????

Toc Toc!!!
C'è nessuno???