ERRO ao verificar existencia de pasta

[Willian Quideroli 0]

Galera estou com um pequeno problema estou montando um sisteminha aqui onde ele cadastra linha, modelos e cor de produtos porem ao excluir a linha ele precisa excluir todas as cores e modelos que estão vinculadas a esta linha.

os produtos são separados da seguinte maneira

 

Linha (onde só registra no banco de dados as informações da mesma)

Modelo (onde registra no banco de dados as informações e tem uma pasta (Produtos/"modelo") que ficam todas as cores do produto referente ao modelo

Cor (onde só registra no banco de dados as informações da mesma)

 

o problema esta na exclusão da pasta e dos registros dos modelos o codigo esta abaixo onde estou errando?

 

if request.QueryString("excluirlinha") = "sim" then
	  
	referente = "Produtos"		
							
	SQLCaminho = "Select * from tbl_caminho where referente = '"&referente&"'"
	Set RSCaminho = conexao.execute(SQLCaminho)
	caminho = RSCaminho("caminho")
	
	Set fso = server.CreateObject("Scripting.FileSystemObject")
		
	if RSCaminho.eof then
		
		mensagem = "<strong>ERRO 80057730</strong><br> Por favor contate o administrador"
	
	else
	
				If fso.FolderExists(caminho) Then

						SQLmod = "Select * from tbl_modelos where codigo_linha = "&Request.QueryString("id")&""
						Set RSmod = conexao.execute(SQLmod)
												
								while not RSmod.eof
								
								caminhomodelo = caminho&RSMod("modelo")
								
								If fso.FolderExists(caminhomodelo) Then
								
								SQLdelModelos = "Delete from tbl_modelos where cod_modelo = "&RSMod("cod_modelo")&""
								conexao.execute(SQLdelModelos)
								
								fso.DeleteFolder (caminhomodelo), TRUE
								
								SQLCores = "Select * from tbl_cores where codigo_modelo = "&RSMod("cod_modelo")&""
								Set RSCores = conexao.execute(SQLCores)
								
										while not RSCores.EOF
														
										SQLSelCor = "Select * from tbl_cores where codigo_modelo = "&RSmod("cod_modelo")&""
										Set RSSelCor = conexao.execute(SQLSelCor)			
													
										SQLdelCores = "Delete from tbl_cores where codigo_modelo = "&RSmod("cod_modelo")&" "
										conexao.execute(SQLdelCores)
														
										RSCores.movenext()
										wend
										
								else
								paste = RSMod("modelo")								
								mensagem = "<strong>ERRO 80057733</strong><br> Por favor contate o administrador <BR>Informe o número do ERRO e o código identificador a seguir: <strong>FLR-"&paste&"</strong>"
								end while
								end if	
																
								RSMod.movenext()
								Wend
										
						SQLdelLinha = "Delete from tbl_linhas where cod_linha = "&Request.QueryString("id")&" "
						conexao.execute(SQLdelLinha)
								
						mensagem = "A linha <strong>"&Request.QueryString("linha")&"</strong> foi exclusa com sucesso!"

						set fso = nothing
						
	end if
end if

o erro que mostra é o seguinte:

Microsoft VBScript compilation error '800a03f4'

 

Expected 'If'

 

/sistema/site/funcoes.asp, line 106

 

end while

----^

 

[Mário Monteiro 179]

Não sei se vi demais mas

 

end while
                                                                end if  
                                                                                                                                
                                                                RSMod.movenext()
                                                                Wend

Aparentemente voce fecha duas vezes o while

 

Se for isso mesmo pode excluir o primeiro e deixar só o wend

[augustoclaro 2]

Como o Mário Monteiro falou, apenas tire o end while.

 

Acho que não se usa end while.

[xanburzum 169]

sem sombra de dúvida esse erro é por causa é provavelmente indicando que você usou uma declaração final sem a associar ao SE, ou mal aninhada.