Avaliem meu script

[Thiagojpa 0]

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

[xanburzum 169]

qual numero de erro é gerado ?!?!?