Problemas com código

[Sérgio H. Martins 0]

Olá pessoal estou tendo problemas com um código da loja que estou montando. Poderiam me ajudar, o erro que aparece é esse:

 

Microsoft VBScript compilation error '800a03f6'

 

Expected 'End'

 

/loja/baixo.asp, line 177

 

 

ASP

<%

 

'INÍCIO DO CÓDIGO

 

%>

          </td></tr></table>

        </table>

               

 

<!-- ////   Sombra do Rodape -->

 

 

<TABLE cellSpacing=0 cellPadding=0 width="780" border=0>

  <TBODY>

  <TR>

    <TD bgColor=#808080><IMG height=1

      src="<%= dirlingua %>/imagens/spacer.gif" width=1></TD></TR></TBODY></TABLE>

 

<!-- ////   Fim da Sombra do Rodape -->

 

 

<!--   /////   Rodape    -->

 

 

<TABLE cellSpacing=0 cellPadding=0 width="780" bgColor=#f0f0f0 border=0>

  <TBODY>

  <TR>

    <TD align=middle><IMG height=3

      src="<%= dirlingua %>/imagens/spacer_1x1.gif" width=1 border=0><BR>

      <TABLE cellSpacing=0 cellPadding=2 width="50%" border=0>

        <TBODY>

        <TR>

          <TD align="center"><a href="default.asp"  onMouseOut="window.status='';return true;" onMouseOver="window.status='<%=strLg4%>';return true;"><FONT

                        face="verdana, arial, helvetica" color=#0000ff

                        size=1><%=strLg4%></font></a><SPAN

            > | </SPAN>

<%

Set menui = abredb.Execute("SELECT * FROM sessoes WHERE ver='s' ORDER by nome;")

While Not menui.EOF%>

                                                <a href="sessoes.asp?item=<%= menui("id") %>"  onMouseOut="window.status='';return true;" onMouseOver="window.status='<%= menui("nome") %>';return true;"><FONT

                        face="verdana, arial, helvetica" color=#0000ff

                        size=1><%= menui("nome") %></font></a> <SPAN> | </SPAN>

<%menui.MoveNext

Wend

menui.Close

Set menui = Nothing%>

</TD></TR><TR>

          <TD noWrap align="center">

                  <br>

                  <a href="quemsomos.asp"  onMouseOut="window.status='';return true;" onMouseOver="window.status='<%=strLg20%>';return true;"><FONT

                        face="verdana, arial, helvetica" color=#0000ff

                        size=1><%=strLg20%></font></a><SPAN > | </SPAN>

                        <a href="seguranca.asp"  onMouseOut="window.status='';return true;" onMouseOver="window.status='<%=strLg19%>';return true;"><FONT

                        face="verdana, arial, helvetica" color=#0000ff

                        size=1><%=strLg19%></font></a><SPAN

            > | </SPAN>

                        <a href="como.asp"  onMouseOut="window.status='';return true;" onMouseOver="window.status='<%=strLg16%>';return true;"><FONT

                        face="verdana, arial, helvetica" color=#0000ff

                        size=1><%=strLg16%></font></a><SPAN

            > | </SPAN>

                        <a href="carrinhodecompras.asp"  onMouseOut="window.status='';return true;" onMouseOver="window.status='<%=strLg51%>';return true;"><FONT

                        face="verdana, arial, helvetica" color=#0000ff

                        size=1><%=strLg51%></font></a><SPAN

            > | </SPAN>

                        <a href="<%=link%>"  onMouseOut="window.status='';return true;" onMouseOver="window.status='<%=strLg8%>';return true;"><FONT

                        face="verdana, arial, helvetica" color=#0000ff

                        size=1><%=strLg8%></font></a><SPAN

            > | </SPAN><a href="registro.asp"  onMouseOut="window.status='';return true;" onMouseOver="window.status='<%=strLg5%>';return true;"><FONT

                        face="verdana, arial, helvetica" color=#0000ff

                        size=1><%=strLg5%></font></a>

                        <SPAN ></SPAN></TD></TR></TBODY></TABLE>

     <br></TD></TR></TBODY></TABLE>

 

 

 

<!-- ////   Sombra do Rodape -->

 

 

<TABLE cellSpacing=0 cellPadding=0 width="780" border=0>

  <TBODY>

  <TR>

    <TD bgColor=#808080><IMG height=1

      src="<%= dirlingua %>/imagens/spacer.gif" width=1></TD></TR></TBODY></TABLE>

 

<!-- ////   Fim da Sombra do Rodape -->

                       

<TABLE cellSpacing=0 cellPadding=0 width="780" border=0>

  <TBODY>

  <TR>

    <TD bgColor=#ffffff><IMG height=30

      src="<%= dirlingua %>/imagens/spacer.gif" width=1></TD></TR></TBODY></TABLE>

                       

 

<!-- ////   Sombra da Barra de Botoes -->

 

 

<TABLE cellSpacing=0 cellPadding=0 width="780" border=0>

  <TBODY>

  <TR>

    <TD bgColor=#808080><IMG height=1

      src="<%= dirlingua %>/imagens/spacer.gif" width=1></TD></TR></TBODY></TABLE>

 

<!-- ////   Fim da Sombra da Barra de Botoes -->

 

                       

<TABLE cellSpacing=0 cellPadding=0 width="780" bgColor=<%= Cor_principal%> border=0>

  <TBODY>

  <TR>

    <TD align=middle><IMG height=3

      src="<%= dirlingua %>/imagens/spacer_1x1.gif" width=1 border=0><BR>

      <TABLE cellSpacing=0 cellPadding=2 width="50%" border=0>

        <TBODY>

        <TR>

          <TD noWrap align="center"><br>

<font size="1" color="#ffffff"><%= nomeloja %> - <%= Slogan_da_sua_loja %><br>

</TD></TR></TBODY></TABLE><br>

      </TD></TR></TBODY></TABLE>

                       

                       

 

<!--   /////   Fim do Rodape    -->

<%

'Fecha o banco de bados

abredb.close

set abredb = nothing

%>

 

Se poderem me ajudar eu agradeço, não consigo achar o erro. Obrigado

 

Att

Sérgio Martins

[gUiTaR_mAn 0]

velhao... c tem certeza que o erro é nesse codigo ai mesmo??

esse erro ocorre quando esquecemos de finalizar uma condição... ou seja... fazemos um If e esquecemos de por o End if pra finalizar..

mas procurei no seu código e não há nenhum If, nem Function, nem Select Case, nada...

 

da uma verificada cara.. pelo que parece o erro nao está nesse código ai nao..

vlw

[Sérgio H. Martins 0]

Ola amigo tudo bem? Achei estranho que na pagina aparece o erro referente a esse arquivo: /loja/baixo.asp, line 177

 

O que pode ser?

 

Att Sergio

[gUiTaR_mAn 0]

cara... faz um teste... não é garantido que vá funcionar mas testa aí...

coloca:

 

<%

End if

%>

 

na linha 177 e dizae o que acontece

[Sérgio H. Martins 0]

Ola, continua com o erro e a linha q me mostra o erro 177 do codigo q lhe passei acima é esse codigo

 

set abredb = nothing

[Ted k' 126]

como é que está agora?

[Mário Monteiro 179]

tem alguma estrutura aberta

 

nao necessariamente é um IF

[jrcardozo 4]

tem mais coisa antes nesse codigo, posta o restante