Avaliem meu script

Tenho 2 tabela uma base do mes e outra chamada repetiçoes

quero que quando bairro da mes for igual bairro da tabela repetiçao, atualize para 1 a coluna repbai

o mesmo para logradouro.

consegui fazer para adiocionar 1 para iguais, mas queria que colocasse 0 para diferentes.

tentei

if NOT RsBai.EOF then

	Set RsUpBai1 = dbConn.execute("UPDATE "&mes&" SET REPBAI = '1' where FBAI = '" &RsBai("Bairros") & "'") else
	Set RsUpBai1 = dbConn.execute("UPDATE "&mes&" SET REPBAI = '0' where FBAI = '" &RsBai("Bairros") & "'")

end if
mas da erro de excessão no else.

e sera que essa é a melhor forma de fazer isso?

to achando que esta demorando para rodar.

o banco mes tem 175 mil registros

mes = request("mes")

	Sql = "SELECT ID, LOCF, CIRC, FMUN, FBAI, FREF, FNUM, DSCR FROM "&mes&";"

	Set Rs = dbConn.execute(Sql)

	Do While Not Rs.EOF

 LocfBase = Rs("LOCF")
 FbaiBase = Rs("FBAI")

 Sql_Bai = "SELECT Bairros FROM repeticoes where Bairros = '" & FbaiBase & "';"
 Set RsBai = dbConn.Execute(Sql_Bai)

 if Not RsBai.eof then
 Set RsUpBai1 = dbConn.execute("UPDATE "&mes&" SET REPBAI = '1' where FBAI = '" &RsBai("Bairros") & "'")
 end if

	Sql_Log = "SELECT Logradouros FROM repeticoes where Logradouros = '" & LocfBase & "';"
	Set RsLog = dbConn.Execute(Sql_Log)

 if Not RsLog.EOF then
 Set RsUpLog1 = dbConn.execute("UPDATE "&mes&" Set REPLOG = '1' where LOCF = '" &RsLog("Logradouros") & "';")
 end if

	Rs.MoveNext
	Loop
	Rs.close