NOVO ERRO Microsoft VBScript compilation error '800a03f6'

[lezão 0]

Galera um novo erro agora para excluir...

 

erro

Microsoft VBScript compilation error '800a03f6'

Expected 'End'

/public_html/dedetinseto/site/painel/categoria/action_excluir.asp, line 35

Linha

<%
'Option Explicit
Response.Expires = 0
Dim objConn, stringSQL, strConnection, array_id, i, sql_id, id
id = Request.QueryString("checkbox")
'Caso ocorra algum erro os precessos não são interrompidos 
'e é passado para a próxima linha de comando
'On error Resume Next
' Conectando com o banco de dados contato.mdb
Set objConn =  Server.CreateObject("ADODB.Connection")
objConn.Open "DBQ=" & Server.MapPath("../../DataBase/DataBase11.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"
'Deletando registro da tabela contato onde esta a id
' Redireciona após 5 segundos
response.write "<meta http-equiv='refresh' content='1; url=categoria.asp'/>"
	%>


<% 
		if err = 0 and id <> "" then
			array_id = split(id,",")
			For i=0 to ubound(array_id)
				sql_id = sql_id & "Categorias.id = " & Trim(array_id(i)) & " OR "
														 'campo texto, entao" & Trim(array_id(i)) & " OR "
														 'caso numerico '" & Trim(array_id(i)) & "' OR "
			Next
			sql_id = left(sql_id,(len(sql_id)-4))
			stringSQL = "DELETE * FROM Categorias WHERE "&sql_ID&""
			objConn.Execute(stringSQL)
			objConn.close
LINHA 35 COM ERRO >>    Set objConn = Nothing
		  
%>

[Mário Monteiro 179]

Onde está o END IF deste IF

 

if err = 0 and id <> "" then

[lezão 0]

VDD faltou isso mesmo

<%else%>  <%End if%>

agora sim deu certo

 

 

thank's...