deletar e mostrar banner

[zanelati2002 0]

criei uma pagina que mostra o banner do cara e crie um botão deletar banner olhem o codigo.

 

<!--#include file="urestrito.asp"--><!--#include file="conectar.asp"--><%CALL AbreConexao()%><% Sql = "SELECT * FROM banner WHERE Login = '" & session("Login") & "'"Set rs = Conexao.Execute(Sql)If NOT rs.EOF Then %><% AbreConexaoacao=request.querystring("acao")Select case acaoCase "deletar"login = request.querystring("login")Sql = "DELETE * FROM banner WHERE login="&login&""Conexao.Execute(Sql) %>                <p align="right"><a href="banners.asp?acao=deletar&login=<%=rs("login")%>"><font face="Verdana" size="1">Deletar Banner</font></a>                </td>              </tr>              <tr>                <td width="100%" valign="top">                <p align="center">                <font size="2" face="Verdana">Banner deletado com sucesso!<BR><% Case else %><%end if%><%CALL FechaConexao()%>

acontece que da este erro

 

Microsoft VBScript compilation error '800a03fe' Expected 'Select' /troca_banner/banners.asp, line 334 end if----^

sera que falt end if em algum lugar

[Mário Monteiro 179]

verifica se você não montou um select case e não fechou...se for isso deveria ser END SELECT e não END IF

[rOcKLoCo 0]

Cara, ao invés de End If não seria End Select ???

 

 

falows