Sql Insert solo a determinate condizioni

[Enrique_Rojas]

Ho uno script che mi aggiorna dei records precaricati in un dbase access 2000; quando carico per la prima volta un nuovo record eseguo contemporaneamente una query insert su una tabella di un altro dbase dove salvo alcuni dei dati di quel record per utilizzarlo successivamente con un motore di ricerca interno...

Il problema è che quando cerco di aggiornare il record la query insert mi segnala giustamente che il record esiste già...

in questo caso la insert non andrebbe eseguita... avete un'idea?

Grazie

[optime]

prima di inserire il nuovo record cercalo: se esiste gia', salti l'inserimento. that easy!

[Enrique_Rojas]

Grazie, intendi una cosa del genere:?

strsql = "SELECT nome FROM tbl_login WHERE nome='" &request("nome")& "'" 
Set objRs = Server.CreateObject("ADODB.Recordset") 
objRs.Open strsql, strConn, 3, 3 

if not objRs.bof and not objRs.eof then 
'user esistente

[optime]

yess

[Enrique_Rojas]

ok ci provo e ti faccio sapere... peccato che aruba è down (come spesso del resto)...

[Enrique_Rojas]

niente da fare non va, restituisce.

SELECT title FROM URLIndex WHERE title = '6789'
user esistente
Operation is not allowed when the object is closed.

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

[optime]

embe'? ci sara' qualcosa dopo la End If... la prima parte pare funzionare bene (infatti ti restituisce 'user esistente'...)