questo è il codice:
codice:
dim strCodicep, strColli, strIdcontratto

strIdcontratto = rs1.Fields.Item("idcontratto").value
strColli = Trim(Request.Form("colli"))
strIdcolli = Trim(Request.Form("idcolli"))

splittatodue = split(strColli,",")
splittatoid = split(strIdcolli,",")

lunghezza = ubound(splittatodue)

set objconn= server.CreateObject("adodb.connection")
rs2 = server.CreateObject("adodb.recordset")
objconn.open MM_connh3g_STRING,0,3

strSQL = "SELECT * from tabprodcont"

set rs2 = objconn.execute(strSQL)

for i = 0 to lunghezza
strSQL2="SELECT  * FROM tabprodcont WHERE  id='"&splittatoid(i)&"'"

rs2.Fields("colli") = splittatodue(i)

objconn.execute(strSQL2)
rs2.update

response.Write(splittatodue(i)&"-----"&i&"
")
next
questo è l'errore:

Microsoft JET Database Engine error '80040e4d'

Impossibile avviare l'applicazione. Il file di informazioni sul gruppo di lavoro è mancante o aperto in modo esclusivo da un altro utente.

non so cosa farci!?! :master:

grazie!!