Microsoft Vbscript Compilation Error '800a03f6'

[Gnomo]

alguém ai sabe porque ta dando esse erro ai? Abaixo o Codigo da pagina q ta dando Erro:

<!-- #include file="local.asp" -->
<%
Sub Cabecalho(Titulo, Pagina, Banner)
%>
<%
CategoriaPrincipal = 3
Set rs = CreateObject("ADODB.Recordset")
If Request("CT") <= 1 Then
	CategoriaAtiva = CategoriaPrincipal
	Where = "WHERE NOTCategoria = " & CategoriaAtiva
	Destaque = "Notícias em Destaque"
Else
	CategoriaAtiva = Request("CT")
	rs.Open "SELECT CATNome FROM Categorias WHERE CATCodigo = " & CategoriaAtiva & ";", conn
	Destaque = "Notícias em Destaque em " & rs("CATNome")
	Where = "WHERE NOTCategoria = " & CategoriaAtiva
	rs.Close()
End If
SelecionaPaginas()

Dim Dias(7)
Dias(1) = "Domingo"
Dias(2) = "Segunda-feira"
Dias(3) = "Terça-feira"
Dias(4) = "Quarta-feira"
Dias(5) = "Quinta-feira"
Dias(6) = "Sexta-feira"
Dias(7) = "Sábado"
Dim Mes(12)
Mes(1) = "Janeiro"
Mes(2) = "Fevereiro"
Mes(3) = "Março"
Mes(4) = "Abril"
Mes(5) = "Maio"
Mes(6) = "Junho"
Mes(7) = "Julho"
Mes(8) = "Agosto"
Mes(9) = "Setembro"
Mes(10) = "Outubro"
Mes(11) = "Novembro"
Mes(12) = "Dezembro"
If Request("CD") <> "" Then
	rs.Open "SELECT CATNome, CATLink, NOTCategoria, NOTData, NOTTitulo, NOTTexto, NOTFonte, NOTImagem2 FROM Categorias 

INNER JOIN Noticias ON Categorias.CATCodigo = Noticias.NOTCategoria WHERE NOTCodigo = " & Request("CD") & ";", conn
	CategoriaAtiva = rs("NOTCategoria")
	Titulo = rs("NOTTitulo")
	Cabecalho Titulo, PagCat, PagBan
%>




<Span Style=titulonoticia><%=Titulo%></Span>
<P><%=(Dias(WeekDay(rs("NOTData"))) & ", " & Day(rs("NOTData")) & " de " & Mes(Month(rs("NOTData"))) & " de " & 

Year(rs("NOTData")) & ", " & Zera(Hour(rs("NOTData"))) & "h" & Zera(Minute(rs("NOTData"))) & "min")%></P>

<TABLE border=0 width=100% cellpadding=0 cellspacing=0>
<TR><TD>
<DIV class=nc>
<P>
<%If rs("NOTImagem2") <> "" Then%>
<IMG src="<%=rs("NOTImagem2")%>" align=right vspace=5 hspace=5>
<%End If%>

<%=rs("NOTTexto")%>

<%If rs("NOTFonte") <> "" Then%>
<P><B>Fonte: <%=rs("NOTFonte")%></B>
<%End If%>

</DIV></TD></TR></TABLE>
<%
	rs.Close()
	rs.Open "SELECT NOTCodigo, NOTTitulo FROM Noticias WHERE NOTCategoria = " & CategoriaAtiva & " ORDER BY NOTData 

DESC;", conn
	If Not rs.EOF Then
%>
<P><BR><TABLE border=0 cellpadding=2 cellspacing=0 width=100%>
<TR><TD class=lista-ti>Últimas Notícias</TD></TR>
<TR><TD>
<%
  Cont = 0
  While Not rs.EOF And Cont < 5
  	Response.Write("<span class=marc> » </span> <A class=link-not href=Noticias.asp?CD=" & 

rs("NOTCodigo") & "> " & rs("NOTTitulo") & "</A>")
  	Cont = Cont + 1
  	rs.MoveNext()
  Wend
%>
</TD></TR>
</TABLE>
<P><A href=Noticias.asp class=link-not>Veja Mais Notícias>></A>
<%
	End If
	rs.Close()
	Rodape()
Else
	Cabecalho "Notícias", PagCat, PagBan
	rs.CursorLocation = adUseClient
%>

<TABLE border=0 cellpadding=2 cellspacing=0 width=100%>
<TR><TD class=lista-ti>Notícias em Destaque</TD></TR>
</TABLE>
<P><TABLE width=100% border=0 cellpadding=3 cellspacing=0>
<%
	rs.Open "SELECT NOTCodigo, NOTTitulo, Mid(NOTTexto,1,200) & '<P>...' AS CampoTexto, NOTImagem1 FROM Noticias " & 

Where & " ORDER BY NOTData DESC;", conn
	Cont = 0
	While Not rs.EOF And Cont < 5
  CampoTexto = TiraHTML(rs("CampoTexto"))
  If rs("NOTImagem1") <> "" Then Imagem = "<A href=""Noticias.asp?CD=" & rs("NOTCodigo") & """><IMG src=""" & 

rs("NOTImagem1") & """ align=left hspace=3 vspace=3 border=0></A>" Else Imagem = ""
  Response.Write("<TR><TD valign=top><span class=marc> » </span></TD><TD><A class=link-not 

href=""Noticias.asp?CD=" & rs("NOTCodigo") & """>" & rs("NOTTitulo") & "</A><BR>" & Imagem & CampoTexto & "</TD></TR>")
  Cont = Cont + 1
  rs.MoveNext()
	Wend
	Response.Write("</TABLE>")
%>
<P><BR><TABLE border=0 cellpadding=2 cellspacing=0 width=100%>
<TR><TD class=lista-ti>Últimas Notícias</TD></TR>
<TR><TD>
<%
	While Not rs.EOF
  Response.Write("<A class=lista-item href=Noticias.asp?CD=" & rs("NOTCodigo") & "><IMG src=img/ponta.gif 

border=0 align=absmiddle> " & rs("NOTTitulo") & "</A>")
  Cont = Cont + 1
  rs.MoveNext()
	Wend
	rs.Close()
%>
</TD></TR>
</TABLE>
<%
	Rodape()
 End If 'line 129
%>

Valeu ai...

Utilize sempre a tag CODE para formatar o seu código

[[ GuTo ]]

Que erro?

Informe-nos o erro gerado e a linha do mesmo!

[dark0]

qual erro dá?

[Gnomo]

Microsoft Vbscript Compilation Error '800a03f6'

Expected 'End'

/teste2/Noticias.asp, line 129

Tava no titulo do post aheiahehaohe mais e esse erro q da ai... valeu!!!