Sono alle prime armi, lo ammetto, ma questa stringa lo controllata e ricontrollata ma... non funziona!!
Con questa serie di informazione prendo i dati da una form
<%
Strzona = replace(Request("zona"),"'","''")
Strspecie1 = replace(Request("specie1"),"'","''")
Strassort1 = replace(Request("assort1"),"'","''")
Strspecie2 = replace(Request("specie2"),"'","''")
Strassort2 = replace(Request("assort2"),"'","''")
Strquant = replace(Request("quant"),"'","''")
Strmisura = replace(Request("misura"),"'","''")
Strreferente = replace(Request("referente"),"'","''")
Straltro = replace(Request("altro"),"'","''")

Ora apro la connessione DNS less

dbfile=Server.MapPath("piedi.mdb")
Set OBJdbConnection=Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbfile


E questa stringa dovrebbe inserirmi i dati nel database

SQL= "INSERT INTO lotti(zona, specie1, assort1, specie2, assort2, quant, misura, referente, altro)"
'VALUES ("&"" & Strzona & ","&"" & Strspecie1 &","&"" & Strassort1 &","&"" & Strspecie2 & ", "&"" & Strassort2 & ","&"" & Strquant & ","&"" & Strmisura & ","&"" & Strreferente & ","&"" & Straltro & ")'
Set rs1 = Server.CreateObject("ADODB.Recordset")

E con questa mando alla pagina defaul l'utente

Response.Redirect("default.asp")


Ringrazio tutti
Yoda

Grazie della rapidita' della risposta, ho cambiato codice e con il seguente va a meraviglia..
Gianluca

<%

zona=request.form("zona")

specie1=request.form("specie1")

assort1=request.form("assort1")

specie2=request.form("specie2")

assort2=request.form("assort2")

quant=request.form("quant")

misura=request.form("misura")

referente=request.form("referente")

altro=request.form("altro")

dbfile=Server.MapPath("piedi.mdb")

Set OBJdbConnection=Server.CreateObject("ADODB.Connection")

OBJdbConnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbfile

Set RS=Server.CreateObject("ADODB.Recordset")

RS.Open "lotti",OBJdbConnection,3,3

RS.AddNew

rs("zona")=zona

rs("specie1")=specie1

rs("assort1")=assort1

rs("specie2")=specie2

rs("assort2")=assort2

rs("quant")=quant

rs("misura")=misura

rs("referente")=referente

rs("altro")=altro

rs.update

RS.Close

OBJdbConnection.Close

%>

A me da errore ques'ultimo codice.
*************************************
ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/ins.asp, line 22
*************************************

posto anke il codice completo:
<%
Dim objconn

Set objconn=Server.CreateObject("ADODB.Connection")

objconn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("/public/news.mdb")

Dim objrecordset

Set objrecordset = Server.CreateObject("ADODB.Recordset")

objrecordset.Open "news",objconn,,3,&H0002

objrecordset.Addnew

objrecordset("titolo") = request("titolo")

objrecordset("data") = request("data")

objrecordset("corpo") = request("corpo")

objrecordset("anno") = request("anno")

objrecordsets.Update

objrecordset.Close

Set objrecordset = Nothing

objconn.Close

Set objconn = Nothing
%>

mi da errore dopo ke ho inserito i dati nei form della pagina (di cui nn posto il codice :-) xke se no nn finite +)di inserimento delle news.