Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

pedrosantos

Acredito que seja complicado

Por , em ASP Clássico

Recommended Posts

pedrosantos    0

pedrosantos
Postado

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

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

basta tirar um dos dim

Compartilhar este post

Link para o post
Compartilhar em outros sites

DackAle    0

DackAle
Postado

Eu sempre vejo pessoal usando redim, alguem poderia me dar uma explicação basica para que serve o redim e quando deve ser usado, pq nos exemplos que vi só me complicou mais...rsabraços

Compartilhar este post

Link para o post
Compartilhar em outros sites

alphamek    2

alphamek
Postado

Mais fácil, vai no arquivo chamadas.asp e na Linha onde tem Dim i muda para Dim w Vai funcionar que é uma beleza. CUIDADO! Tu não está fechando os RecordSets.. então como terá o mesmo nome.. terá problemas novamente.. com o mesmo tipo de erro. OK! Abraços,

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Eu sempre vejo pessoal usando redim, alguem poderia me dar uma explicação basica para que serve o redim e quando deve ser usado, pq nos exemplos que vi só me complicou mais...rsabraços

redim é para redeclarar a variavel, no caso acima é inutil, pois como a variavel em ASP tem seu tipo definido em tempo de execução, basta delcarar com o dim e uma unica vezo redim é mais usado com arrays quando não sabemos quantos valores teremostipo assimDim NOMEARRAY(0)foi definido um array com uma posiçãocaso se necessário mudar o tamanho do arrayRedim NOMEARRAY(1)Neste caso o Redim apagará os valores preenchidos anteriormenteSe for necessário manter estes valores utilize preserveRedim preserve NOMEARRAY(1)

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito