Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Galera..
Estou com uma dor de cabeça...
Eu tenho uma página INDEX.ASP....essa página puxa 2 outras páginas atravez de Include.....a destaque.asp e a chamadas.asp.....essas 2 páginas estão ligadas ao mesmo BD mas em tabelas diferentes.....
cada uma com sua própia caracteristica..
O problema é que qndo rodo a INDEX.ASP dá a seguinte mensagem de erro:
Microsoft VBScript compilation error '800a0411'
Name redefined
/jv/chamadas.asp, line 27
dim i----^
O mais interesante é q a página chamadas.asp roda normalmente sozinha...
e a destaque.asp roda normal..
qndo elas estão na index sozinhas rodam normal...mas qndo estão juntas dá esse erro.........
Estou postando meu código da Index...
ASP [/tr][tr]<STYLE type="text/css">a{text-decoration:none; font-family: Verdana, Arial, Helvetica, sans-serif; color: black}
a:hover{text-decoration:underline; font-family: Verdana, Arial, Helvetica, sans-serif; color: black}
td {font-family:Verdana, Arial, Helvetica; font-size:9px; color: black}
</STYLE>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>:: PORTAL JV NA ESTRADA ::</title>
<body bgcolor="#F2F2F2" text="#000000" link="#000000" vlink="#000000" alink="#000000" leftmargin="0" topmargin="0">
<table width="700" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF">
<tr>
<td valign="top" bgcolor="#FFFFFF"><img src="imagens/topo.gif" width="700" height="143"></td>
</tr>
<tr>
<td valign="top" bgcolor="#FFFFFF">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="20%" valign="top"><table width="150" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<!--#include file="links.asp" --></td>
</tr>
</table></td>
<td width="80%" valign="top"><table width="100%" border="0" cellspacing="10" cellpadding="0">
<tr>
<td height="18" valign="top"><!--#include file="destaque.asp" --></td>
</tr>
<tr>
<td height="4" valign="top"><p>
<!--#include file="chamadas.asp" --></p>
<p> </p></td>
</tr>
<tr>
<td height="4" valign="top"> </td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td valign="top" bgcolor="#FFFFFF"> </td>
</tr>
</table>[/tr]
E vou postar o código da Chamadas e Destaque
Chamadas
ASP [/tr][tr]<%cnpath="DBQ=" & Server.MapPath("bd/bd.mdb")
DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open DataSource
'Abre o Recordset
Set RS = Server.CreateObject( "ADODB.Recordset" )
RS.ActiveConnection = conn
RS.open "SELECT * FROM chamada ORDER BY id DESC"
%>
<STYLE type="text/css">
a{text-decoration:none; font-family: Verdana, Arial, Helvetica, sans-serif; color: black}
a:hover{text-decoration:underline; font-family: Verdana, Arial, Helvetica, sans-serif; color: black}
td {font-family:Verdana, Arial, Helvetica; font-size:9px; color: black}
</STYLE>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>:: PORTAL JV NA ESTRADA ::</title><body bgcolor="#FFFFFF" text="#000000" link="#000000" vlink="#000000" alink="#000000" leftmargin="0" topmargin="0">
<div align="center">
<table width="286" border="0" cellspacing="0" cellpadding="0"><br>
<tr><%
if not rs.eof then
dim i
i = 0
while i < 3
%>
<td width="133" valign="top"><table width="153" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="150" valign="top"><img src="imagens/chamatopo.gif" width="153" height="42"></td>
</tr>
<tr>
<td width="150" valign="top" background="imagens/chamafundo.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="17" rowspan="2"> </td>
<td width="120"><div align="center"><img src="<%=rs("imagem")%>" width="104" height="62" hspace="3" vspace="3" border=1></div></td>
<td width="16" rowspan="2"> </td>
</tr>
<tr>
<td><div align="center"><strong><font size="2" face="Arial, Helvetica, sans-serif"><%=rs("manchete")%><a href="<%=rs("link")%>"><br>
</a></font></strong><font size="1
"
face="Arial, Helvetica, sans-serif"><a href="<%=rs("link")%>"><%=rs("chamada")%></a></font></div></td> </tr>
</table></td>
</tr>
<tr>
<td width="150" valign="top"><img src="imagens/chamadarodape.gif" width="153" height="22"></td>
</tr>
</table></td>
<td width="153" valign="top">
<%i = i+1
rs.Movenext
wend
end if
%>
</td>
</tr>
</table>
<strong><font size="2" face="Arial, Helvetica, sans-serif"> </font></strong></div>[/tr]
Destaque:
ASP [/tr][tr]<%cnpath="DBQ=" & Server.MapPath("bd/bd.mdb")
DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open DataSource
'Abre o Recordset
Set RS = Server.CreateObject( "ADODB.Recordset" )
RS.ActiveConnection = conn
RS.open "SELECT * FROM principal ORDER BY id DESC"
%>
<STYLE type="text/css">
a{text-decoration:none; font-family: Verdana, Arial, Helvetica, sans-serif; color: black}
a:hover{text-decoration:underline; font-family: Verdana, Arial, Helvetica, sans-serif; color: black}
td {font-family:Verdana, Arial, Helvetica; font-size:9px; color: black}
</STYLE>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>:: PORTAL JV NA ESTRADA ::</title><body bgcolor="#FFFFFF" text="#000000" link="#000000" vlink="#000000" alink="#000000" leftmargin="0" topmargin="0">
<div align="center">
<table width="500" border="0" cellspacing="0" cellpadding="0"><br><%
if not rs.eof then
dim i
i = 0
while i < 1
%>
<tr>
<td valign="top"><img src="imagens/destaque_borda.gif" width="500" height="27"></td>
</tr>
</table>
<table width="500" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="204" valign="top"> <div align="center"><img src="<%=rs("imagem")%>" width="200" height="150" hspace="5" vspace="5" border=0></div></td>
<td width="296" valign="top"><p align="justify"><font color="#577001" size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong><%=rs("data")%>
- <%=rs("tipo")%></strong></font><br>
<font color="#000000" size="3" face="Verdana, Arial, Helvetica, sans-serif"><strong><%=rs("manchete")%></strong></font><br>
<font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="verdestaque.asp?id=<%=rs("id")%>"><%=rs("chamada")%></a></font>
</td>
</tr>
</table>
<%i = i+1
rs.Movenext
wend
end if
%>
</div>
[/tr]
está ai!!
Abraços!!
Pedro!!! http://forum.imasters.com.br/public/style_emoticons/default/clap.gif
Carregando comentários...