Guest Alexandre D Postado Maio 18, 2007 Denunciar Share Postado Maio 18, 2007 E ai galera. ..estou com um problema. ...Meu codigo esta dando o seguinte erro:Microsoft VBScript compilation error '800a0411'Name redefined/reso/adocao.asp, line 5Dim ANRec, ANConn, strANConn----^Essa página adocao.asp esta em um include. ..<!--#Include file="adocao.asp"-->O código da página adoção é:<head><meta http-equiv="Content-Type" content="text/html; charset=windows-1252" /></head><%Dim ANRec, ANConn, strANConnstrANConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/reso/ArgoNews/ArgoNews.mdb")%><TABLE WIDTH="100%"><%if Request.QueryString("SEARCH") = "" thenStickPos = Request.QueryString("stickpos")NormPos = Request.QueryString("normpos")Displayed = 0Set ANConn = Server.CreateObject ("ADODB.Connection")Set ANRec = Server.CreateObject ("ADODB.Recordset")ANConn.Open strANConnContentSQL = "SELECT * FROM Adocao WHERE Sticky = 'Yes' ORDER BY ID DESC"ANRec.Open ContentSQL, ANConnif ANRec.EOF thenResponse.Write "<!--EOF-->"elseANRec.Move StickPosdo while not ANRec.EOF and Displayed < 2%><TR><TD WIDTH=75% VALIGN=TOP><H3><FONT COLOR=WHITE>Sticky:</FONT> <%=ANRec("Headline")%></TD><TD WIDTH="25%"><DIV ALIGN=RIGHT>Autor: <A HREF=mailto:<%=ANRec("AuthorEmail")%>><%=ANRec("Author")%></A><BR><%=ANRec("DatePosted")%><NOBR> às <%=ANRec("TimePosted")%></TD></TR><TR><BR><TD WIDTH="100%" COLSPAN="2"><%=ANRec("Content")%></TD></TR><TR><TD><BR></TD></TR><%Displayed = Displayed + 1StickPos = StickPos + 1ANRec.MoveNextloopEnd ifend ifSet ANConn = Server.CreateObject ("ADODB.Connection")Set ANRec = Server.CreateObject ("ADODB.Recordset")ANConn.Open strANConnif Request.QueryString("SEARCH") <> "" thensearchStr = Request.QueryString("SEARCH")ContentSQL = "SELECT * FROM Adocao WHERE Sticky = 'No' AND Content LIKE '%" & Replace(searchStr, "'", "''") & "%' ORDER BY ID DESC"elseContentSQL = "SELECT * FROM Adocao WHERE Sticky = 'No' ORDER BY ID DESC"end ifANRec.Open ContentSQL, ANConnif ANRec.EOF thenResponse.Write "<!--EOF--><TR><TD COLSPAN=2><H3>Não há nenhum artigo nesta categoria.</H3></TD></TR>"elseANRec.Move NormPosdo while not ANRec.EOF and Displayed < 2%><TR><TD WIDTH=75% VALIGN=TOP><H3><%if ANRec("Sticky") = "Yes" then%><FONT COLOR=WHITE>Sticky: </FONT><%end if%><%=ANRec("Headline")%></TD><TD WIDTH="25%"><DIV ALIGN=RIGHT>Autor: <A HREF=mailto:<%=ANRec("AuthorEmail")%>><%=ANRec("Author")%></A><BR><%=ANRec("DatePosted")%><NOBR> às <%=ANRec("TimePosted")%></TD></TR><TR><TD WIDTH="100%" COLSPAN="2"><BR><%=ANRec("Content")%></TD></TR><TR><TD><BR></TD></TR><%Displayed = Displayed + 1NormPos = NormPos + 1ANRec.MoveNextloopend if%></TABLE><TABLE WIDTH="100%"><TR><TD WIDTH="50%"><FORM ACTION="adocao.asp" METHOD=GET><INPUT TYPE=TEXT NAME=SEARCH VALUE="Buscar por..."><INPUT TYPE=SUBMIT VALUE=Buscar!></FORM><%if not ANRec.EOF thenif NormPos = "" thenNormPos = 0end ifif StickPos = "" thenStickPos = 0end if%><TD WIDTH="50%"><DIV ALIGN=RIGHT><A HREF="adocao.asp?stickpos=<%=StickPos%>&normpos=<%=NormPos%>&SEARCH=<%=Request.QueryString("SEARCH")%>">Próxima página</A></DIV></TD></TR></TABLE><%elseResponse.Write "</TR></TABLE>"end ifANRec.CloseSet ANRec = NothingANConn.CloseSet ANConn = Nothing%></TABLE>alguém PODE PELO AMORRRR DE DEUS ME AJUDARRRRR????BRIGADU! Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 bareta Postado Maio 18, 2007 Denunciar Share Postado Maio 18, 2007 duvidas e problemas devem ser postadas em ASP, a sessão de tutoriais fica somente a tutos e dicas importantes...vlw...e quanto ao seu erro é o seguinteverifique estas vars Dim ANRec, ANConn, strANConn e veja se não estão repetindo...ou seja dim nome, por mais de uma vez Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Guest Alexandre D
E ai galera. ..estou com um problema. ...
Meu codigo esta dando o seguinte erro:
Microsoft VBScript compilation error '800a0411'
Name redefined
/reso/adocao.asp, line 5
Dim ANRec, ANConn, strANConn
----^
Essa página adocao.asp esta em um include. ..<!--#Include file="adocao.asp"-->
O código da página adoção é:
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252" />
</head>
<%
Dim ANRec, ANConn, strANConn
strANConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/reso/ArgoNews/ArgoNews.mdb")
%>
<TABLE WIDTH="100%">
<%
if Request.QueryString("SEARCH") = "" then
StickPos = Request.QueryString("stickpos")
NormPos = Request.QueryString("normpos")
Displayed = 0
Set ANConn = Server.CreateObject ("ADODB.Connection")
Set ANRec = Server.CreateObject ("ADODB.Recordset")
ANConn.Open strANConn
ContentSQL = "SELECT * FROM Adocao WHERE Sticky = 'Yes' ORDER BY ID DESC"
ANRec.Open ContentSQL, ANConn
if ANRec.EOF then
Response.Write "<!--EOF-->"
else
ANRec.Move StickPos
do while not ANRec.EOF and Displayed < 2
%>
<TR><TD WIDTH=75% VALIGN=TOP><H3><FONT COLOR=WHITE>Sticky:</FONT> <%=ANRec("Headline")%></TD><TD WIDTH="25%"><DIV ALIGN=RIGHT>Autor: <A HREF=mailto:<%=ANRec("AuthorEmail")%>><%=ANRec("Author")%></A><BR><%=ANRec("DatePosted")%><NOBR> às <%=ANRec("TimePosted")%></TD></TR><TR><BR><TD WIDTH="100%" COLSPAN="2"><%=ANRec("Content")%></TD></TR>
<TR><TD><BR></TD></TR>
<%
Displayed = Displayed + 1
StickPos = StickPos + 1
ANRec.MoveNext
loop
End if
end if
Set ANConn = Server.CreateObject ("ADODB.Connection")
Set ANRec = Server.CreateObject ("ADODB.Recordset")
ANConn.Open strANConn
if Request.QueryString("SEARCH") <> "" then
searchStr = Request.QueryString("SEARCH")
ContentSQL = "SELECT * FROM Adocao WHERE Sticky = 'No' AND Content LIKE '%" & Replace(searchStr, "'", "''") & "%' ORDER BY ID DESC"
else
ContentSQL = "SELECT * FROM Adocao WHERE Sticky = 'No' ORDER BY ID DESC"
end if
ANRec.Open ContentSQL, ANConn
if ANRec.EOF then
Response.Write "<!--EOF--><TR><TD COLSPAN=2><H3>Não há nenhum artigo nesta categoria.</H3></TD></TR>"
else
ANRec.Move NormPos
do while not ANRec.EOF and Displayed < 2
%>
<TR><TD WIDTH=75% VALIGN=TOP><H3>
<%
if ANRec("Sticky") = "Yes" then
%>
<FONT COLOR=WHITE>Sticky: </FONT>
<%
end if
%>
<%=ANRec("Headline")%></TD><TD WIDTH="25%"><DIV ALIGN=RIGHT>Autor: <A HREF=mailto:<%=ANRec("AuthorEmail")%>><%=ANRec("Author")%></A><BR><%=ANRec("DatePosted")%><NOBR> às <%=ANRec("TimePosted")%></TD></TR><TR><TD WIDTH="100%" COLSPAN="2"><BR><%=ANRec("Content")%></TD></TR>
<TR><TD><BR></TD></TR>
<%
Displayed = Displayed + 1
NormPos = NormPos + 1
ANRec.MoveNext
loop
end if
%>
</TABLE><TABLE WIDTH="100%">
<TR><TD WIDTH="50%"><FORM ACTION="adocao.asp" METHOD=GET>
<INPUT TYPE=TEXT NAME=SEARCH VALUE="Buscar por..."><INPUT TYPE=SUBMIT VALUE=Buscar!></FORM>
<%
if not ANRec.EOF then
if NormPos = "" then
NormPos = 0
end if
if StickPos = "" then
StickPos = 0
end if
%>
<TD WIDTH="50%"><DIV ALIGN=RIGHT><A HREF="adocao.asp?stickpos=<%=StickPos%>&normpos=<%=NormPos%>&SEARCH=<%=Request.QueryString("SEARCH")%>">Próxima página</A></DIV></TD></TR></TABLE>
<%
else
Response.Write "</TR></TABLE>"
end if
ANRec.Close
Set ANRec = Nothing
ANConn.Close
Set ANConn = Nothing
%>
</TABLE>
alguém PODE PELO AMORRRR DE DEUS ME AJUDARRRRR????
BRIGADU!
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.