Grazie, ci sto provando... non dà errore ma non passa nella query il valore della sql3... :master:
codice:
Dim ConnDown 
Set ConnDown=Server.CreateObject("ADODB.Connection") 
ConnDown.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath(path&"/mdb-database/webstore.mdb") 

sql2 = "SELECT * FROM catalogo_articoli WHERE ID=" & IDLinea 
response.write sql2 &"
"
set RECdown = connDown.execute(sql2)

sql3 = "SELECT denominazione FROM catalogo_linee WHERE ID=" & RECDown("IDLinea")
response.write sql3 &"
"
set RECDown2 = connDown.execute(sql3)


'metti dentro al secondo database i campi: denominazione, informazioniestese, informazioni, riferimentodifoto 
Set conn = Server.CreateObject("ADODB.Connection")
OpenStra = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("/mdb-database/SiteSearch.mdb")
conn.Open openStra
strsqla = "INSERT INTO URLIndex (keywords, title, description, summary, url)" 
strsqla = strsqla & " Values(" 
strsqla = strsqla & "'" & (RECDown2("Denominazione")) & "', "
strsqla = strsqla & "'" & (request.form("Denominazione")) & "', " 
strsqla = strsqla & "'" & (request.form("Informazioniestese")) & "', "
strsqla = strsqla & "'" & (request.form("Informazioni")) & "', " 
strsqla = strsqla & "'" & (request.form("Riferimentodifoto")) & "')" 
response.write strsqla
conn.execute(strsqla) 

conn.close
set conn = Nothing

ConnDown.close
set ConnDown = Nothing