ciao,
non riesco a inviare dei dati prelevati da questa pagina:

<%

'Imposto una variabile bool che tiene traccia della presenza
'di elementi nell'array
if isArray(session("carrello"))=0 then
dim carrello()
presenti=0
else
carrello=session("carrello")
presenti=1
end if

'Verifico l'azione scelta dall'utente
if request("action")="Aggiorna carrello" then

'Verifico se l'utente ha eliminato degli articoli o variato alcune quantità
cancellaArt=request("elimina").count
if cancellaArt>0 then
cancellaArticoli
else
aggiornaDati
end if
end if

'Verifico se l'utente ha chiesto di svuotare il carrello
if request("action")="Svuota carrello" then
presenti=0
session("carrello")=null
else
'Verifico se ci sono nuovo articoli da inserire
nuoviArt=request("articoli").count

if nuoviArt>0 then aggiungiArticolo

end if

'Provvedo alla visualizzazione del contenuto dell'array costruendo la
'lista di codici_articolo da visualizzare con la query SQL
if presenti=0 then

response.write "<br><font color=red><b>Il carrello è vuoto.</b></font><br><br>"
session("carrello")=null
else

for c=0 to ubound(carrello,2)

codici=codici & "," & carrello(0,c)
next

codici=right(codici,len(codici)-1)

response.write "Contenuto del carrello:<br><br>"

'Riassegno all'oggetto SESSION il contenuto dell'array
session("carrello")=carrello

%>
</h2>
<form ACTION="carrello.asp" METHOD="post" onSubmit="return checkForm()">
<table border="1" width="0">
<tr>
<td width="58"><B>Elimina</B></td>
<td width="33"><B>Nome</B></td>
<td align=center width="64"><B>Quantità</B></td>
<td width="41"><B>Prezzo</B></td>
</tr>
<%
'Apro la connessione verso il database usando ADO e il provider OLE DB di Access 97
Set StrConn = server.createobject("ADODB.connection")
Set rsArticoli = Server.CreateObject("ADODB.RecordSet")
StrConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & "persist security info=false;data source=" & server.Mappath ("prodotti.mdb")
RsArticoli.open "select * from tabella_prodotti where codice in(" & codici & ")",StrConn

'where codice in(" & articoli & ")

'Costruisco la tabella articoli con una casella di conferma acquisto

'Assegno ad una variabile la collezione dei campi
Set campi=rsArticoli.fields

riga=0

for k=0 to ubound(carrello,2)
NewTd="<TD align=center><input type=checkbox name=elimina value=" & campi("CODICE") & ">"
NewTd=NewTd & "<TD width=150>" & campi("id_nome") & "</TD>"
NewTd=NewTd & "<TD align=center><input type=text size=3 name=qta value=" & carrello(1,k) & "></TD>"
totale=totale+campi("campo_prezzo")*carrello(1,k)
NewTd=NewTd & "<TD>" & formatCurrency(campi("campo_prezzo")*carrello(1,k)) & "</TD>"
NewRow="<TR>" & NewTd & "</TR>"
Response.write NewRow
rsArticoli.MoveNext
next

'Response.write "<td><a href=prova.asp?id_nome=" & rscount.fields.item("id_nome") &">" & rscount.fields.item("id_nome") & "</a></td>" & vbCRLF

response.write "<TR><TD colspan=3 align=right><b>Totale:</b><TD><font color=red>" & formatCurrency(totale) & "<font><TD></TR>"

RsArticoli.Close
Set RsArticoli=nothing
%>
</table>




ho provato a creare una pagina cosi:



<%
Dim strEmail
nome=request.form("nome")
password=request.form("password")
strEmail=Request("prova@prova.net")
Set objMail = Server.CreateObjecT("CDONTS.NewMail")
objMail.BodyFormat = 0
objMail.MailFormat = 0
ObjMail.from = "<da.p@linet.it>" 'str_from
ObjMail.to = strEmail 'str_to
ObjMail.subject = "Iscrizione effettuata" 'str_subject
ObjMail.body = "sono stati ordinati i seguenti prodotti "
'Apro la connessione verso il database usando ADO e il provider OLE DB di Access 97
Set StrConn = server.createobject("ADODB.connection")
Set rsArticoli = Server.CreateObject("ADODB.RecordSet")
StrConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & "persist security info=false;data source=" & server.Mappath ("prodotti.mdb")
RsArticoli.open "select * from tabella_prodotti where codice in(" & codici & ")",StrConn

'where codice in(" & articoli & ")

'Costruisco la tabella articoli con una casella di conferma acquisto

'Assegno ad una variabile la collezione dei campi
Set campi=rsArticoli.fields

riga=0

for k=0 to ubound(carrello,2)
NewTd="<TD align=center><input type=checkbox name=elimina value=" & campi("CODICE") & ">"
NewTd=NewTd & "<TD width=150>" & campi("id_nome") & "</TD>"
NewTd=NewTd & "<TD align=center><input type=text size=3 name=qta value=" & carrello(1,k) & "></TD>"
totale=totale+campi("campo_prezzo")*carrello(1,k)
NewTd=NewTd & "<TD>" & formatCurrency(campi("campo_prezzo")*carrello(1,k)) & "</TD>"
NewRow="<TR>" & NewTd & "</TR>"
Response.write NewRow
rsArticoli.MoveNext
next

'Response.write "<td><a href=prova.asp?id_nome=" & rscount.fields.item("id_nome") &">" & rscount.fields.item("id_nome") & "</a></td>" & vbCRLF

response.write "<TR><TD colspan=3 align=right><b>Totale:</b><TD><font color=red>" & formatCurrency(totale) & "<font><TD></TR>"

RsArticoli.Close
Set RsArticoli=nothing

%>


ma mi dice:

Oggetto Server errore
Impossibile eseguire il metodo Server.CreateObject

c'è qualcuno che mi puo aiutare?