niente da fare non va, restituisce.
SELECT title FROM URLIndex WHERE title = '6789'
user esistente
Operation is not allowed when the object is closed.
codice:
Set conn = Server.CreateObject("ADODB.Connection")
OpenStra = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("/mdb-database/SiteSearch.mdb")
conn.Open openStra

strsql = "SELECT title FROM URLIndex WHERE title = '" &request("denominazione")& "' " 
response.write strsql & "
"
Set objRs = Server.CreateObject("ADODB.Recordset") 
objRs.Open strsql, strConn, 3, 3 

if not objRs.bof and not objRs.eof then 
response.write "user esistente" & "
"

else

Dim ConnDown 
Set ConnDown=Server.CreateObject("ADODB.Connection") 
ConnDown.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath(path&"/mdb-database/webstore.mdb") 
Dim sql2, RECdown, sql3, RECdown2, strsql

conn.Open openStra
strsqla = "INSERT INTO URLIndex (title, description, summary, keywords, url)" 
strsqla = strsqla & " Values(" 
strsqla = strsqla & "'" & (request.form("Denominazione")) & "', " 
strsqla = strsqla & "'" & (request.form("Informazioniestese")) & "', "
strsqla = strsqla & "'" & (request.form("Informazioni")) & "', "
strsqla = strsqla & "'" & (RECDown2("Denominazione")) & "', "
strsqla = strsqla & "'" & (request.form("Riferimentodifoto")) & "')" 
response.write strsqla
conn.execute(strsqla) 

conn.close
set conn = Nothing
connDown.close
set connDown = Nothing

end if