Controllo esistenza record

[orcim]

Buongiorno a tutti.

Con questo codice asp controllo, prima dell'inserimento in un db mysql, l'esistenza dei record che si vogliono caricare da un foglio di lavoro excel.

 intCount = 0  
   contRighe = 1
 
set objRS = Server.CreateObject("ADODB.Recordset")
query_select = "SELECT * FROM TBL WHERE aut = '"& aut &"' AND tit = '"& tit &"'"
objRs.Open query_select, objConn
 
if not objRs.eof And not objRs.bof then
 
  response.write "Record già esistente, dunque escluso dall'inserimento:
"
  response.write objRs("id") &" - "& objRs("aut") &" - "& Rs("tit") &"

"
 
else
 
  strSQL = "INSERT INTO TBL (aut, tit) VALUES ('"& aut &"','"& tit &"')"
  objconn.execute strSQL
 
end if
 
    intCount = intCount + 1 
 
    contRighe = contRighe + 1

Per ogni record contenuto nel foglio di lavoro excel già esistente nel db mysql l'inserimento non avviene, se invece non esiste avviene l'inserimento; come faccio a sapere quanti sono (conteggio) i records che non vengono inseriti nel db mysql ?

Grazie-

[cilita]

un esempio....

<code>
Dim contaRecord
contaRecord=1

set objRS = Server.CreateObject("ADODB.Recordset")
query_select = "SELECT * FROM TBL WHERE aut = '"& aut &"' AND tit = '"& tit &"'"
objRs.Open query_select, objConn
Do While Not objRS.EOF
if not objRs.eof And not objRs.bof then

response.write "Record già esistente, dunque escluso dall'inserimento:
"
response.write objRs("id") &" - "& objRs("aut") &" - "& Rs("tit") &"

"
contaRecord=contaRecord+1
else

strSQL = "INSERT INTO TBL (aut, tit) VALUES ('"& aut &"','"& tit &"')"
objconn.execute strSQL

end if

objRS.MoveNext
Loop

response.write "Totale record esistenti: " & contaRecord
</code>

[orcim]

grazie !

[cilita]

scusa ho sbagliato
la variabile contaRecord ha valore iniziale pare a 0

[orcim]

Originariamente inviato da cilita
scusa ho sbagliato
la variabile contaRecord ha valore iniziale pare a 0

Si, l'avevo già corretto !