Ir para conteúdo

POWERED BY:

Arquivado

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

Arlene Paula

[Resolvido] Pegar uma URL cadastrada no meu BD e colocar na minha

Recommended Posts

Olá pessoal! Enquanto não consigo uma solução pro meu outro tópico, quero pedir mais uma ajuda p vcs!

 

Eu tenho um banco de dados, onde minha tabela tblinks tem cadastro com logotipo, nome e URL de sites ou portais que divulgam nossa editora. Eu criei a página links.asp, onde eu quero que apareça o logotipo e o nome do site que divulgo e neles, quero linkar a URL desta tabela pra que ao clicar ou no logotipo ou no nome, eu direcione em uma nova janela, o internauta para a página que ele clicou.

 

Ficou confuso?

 

Seria +- isso:

 

[logotipo] Editora ComDeus - Servos da Imaculada

 

E quando eu clicasse nesse texto ou no logotipo, ele vai pra URL http://www.comdeus.org.br

 

Os campos onde estão os cadastros são:

 

CodTexto | Data | Titulo | chamada | Texto | foto

01 14/01/09 http://www.comdeus.org.br ComDeus teste imagens/logo1.jpg

 

Mas estou com os seguintes problemas:

 

- A imagem não aparece. Fica um "x" no lugar.

- Não consigo fazer ele encaminhar pra URL.

 

O que está errado?

 

Eis a página links.asp:

 

<%
Option Explicit

Dim Data, Chamada, Foto, conexao,str,reg,Numero,Pagina,max,cont
  
%>


<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<meta name="Keywords" content="Histórias, contos, pensamentos, reflexão" />
<title>ATN</title>

<STYLE type=text/css>
<!--
.centro {
	border-right-width: 2px;
	border-bottom-width: 2px;
	border-left-width: 2px;
	border-right-style: solid;
	border-bottom-style: solid;
	border-left-style: solid;
	border-right-color: #CCCCCC;
	border-bottom-color: #CCCCCC;
	border-left-color: #CCCCCC;
}
.base {
	border-bottom-width: 2px;
	border-bottom-style: solid;
	border-bottom-color: #CCCCCC;
}
.style6 {
	font-family: Arial, Helvetica, sans-serif;
	font-size: 13px;
	color: #333333;
}


a:link {
	color: #000000;
	text-decoration: none;
}
a:visited {
	text-decoration: none;
	color: #000000;
}
a:hover {
	text-decoration: underline;
	color: #000000;
}
a:active {
	text-decoration: none;
	color: #000000;
}
.style18 {
	font-family: Arial, Helvetica, sans-serif;
	font-size: 13px;
}
.style26 {
	font-family: Arial, Helvetica, sans-serif;
	font-size: 12px;
	color: #666666;
}
.style27 {font-size: 12px}
.style28 {font-family: Arial, Helvetica, sans-serif; font-size: 12px; }
.style1 {font-family: Arial, Helvetica, sans-serif;
	font-weight: bold;
	font-style: italic;
}
.style21 {font-size: 10px;
	font-family: Arial, Helvetica, sans-serif;
	color: #666666;
}
-->
</style>
</head>
<body >
<table width="765" height="601" border="0" cellpadding="0" cellspacing="0">
  <tr>
	<td height="142" colspan="11"><a href="http://www.comdeus.org.br"><img src="../imagens/faixa_logo.jpg" alt="ComDeus - Volte para a home!" width="760" height="141" border="0" /></a></td>
  </tr>
  <tr>
	<td width="15" height="19" background="../imagens/linhacanto.gif"> </td>
	<td colspan="10" background="../imagens/linhash.gif"> </td>
  </tr>
  <tr>
	<td width="15" rowspan="4" align="right" background="../imagens/linhasv.gif"> </td>
	<td height="19" colspan="4"><div align="center" class="style1 style2">
	  <div align="center" class="style27">Com Maria, venha o Teu Reino!! </div>
	</div></td>
	<td width="50" rowspan="2" background="../imagens/linhahomediag2.gif"> </td>
	<td colspan="4" background="../imagens/linhahomeh.gif"><script type="text/javascript" language="JavaScript1.2" src="../menu.js"></script></td>
	<td background="../imagens/linhahomecantod.gif"> </td>
  </tr>
  <tr>
	<td width="15" height="19" background="../imagens/linhahomecantoe3.gif"> </td>
	<td colspan="3" background="../imagens/linhahomeh2.gif"> </td>
	<td colspan="3"> </td>
	<td width="131"> </td>
	<td width="14" rowspan="3" background="../imagens/linhahomev.gif"><p> </p>
		<p> </p></td>
  </tr>
  <tr>
	<td width="15" rowspan="2" background="../imagens/linhahomev.gif"> </td>
	<td height="265" colspan="6"><table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
	  <tbody>
		<tr>
		  <td bgcolor="#0c3451" valign="top"><img src="widgets/spacer.gif" alt=" " width="1" height="1" /></td>
		</tr>
		<tr>
		  <td><p>
			<%
			  'abrir conexao
			   set conexao = server.CreateObject("ADODB.Connection")
			   conexao.CursorLocation = 3 
			   conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../dados/bdcomdeus.mdb")&";User Id=admin;Password=;"

			   'pegar dados
			   set reg = server.CreateObject("ADODB.Recordset")
			   str ="SELECT Data, Chamada, CodTexto FROM tbLink ORDER BY Data Desc"
   
   
			   Set reg = Server.CreateObject("ADODB.Recordset")
			   'tamanho de registro em cache
			   reg.CacheSize = 10
			   'quantidade de registro da pagina
			   reg.PageSize = 10
			   'abrindo o reg
			   reg.Open str,conexao
  
			 'se nao tiver dados dar mensagem
			 if reg.EOF then
  %>
			  </p>
			  <table width="100%" border="0" cellspacing="0" cellpadding="0">
				<tr>
				  <td><div align="center"><span class="style28"> No momento nenhum "Conto ou história " está cadastrado no sistema.</span></div></td>
				</tr>
				<tr>
				  <td> </td>
				</tr>
			  </table>
			<font face="Verdana, Arial, Helvetica, sans-serif" size="2">
			  <%		 			  
	'fechando conexao
	reg.Close
	set reg = Nothing
	conexao.Close
	set conexao = Nothing
	
 else

  if Request("Navegacao") = "Proxima" then
	Pagina = Pagina + 1 
  ElseIf Request("Navegacao") = "Anterior" then
	Pagina = Pagina - 1
  Else
	numero = Request("Navegacao")
	Pagina = numero
  end if
  
  'abrir conexao
  set conexao = server.CreateObject("ADODB.Connection")
  conexao.CursorLocation = 3 
  conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../dados/bdcomdeus.mdb")&";User Id=admin;Password=;"

  
  set reg = server.CreateObject("ADODB.Recordset")  
  reg.CacheSize = 10
  reg.PageSize = 10
  
  'pegar dados
  str ="SELECT Data, Chamada, CodTexto FROM tbLink ORDER BY Data Desc"
  
   'abrindo o reg
  reg.Open str,conexao
  Dados
	
  'fechando conexao
  reg.Close
  set reg = Nothing
  conexao.Close
  set conexao = Nothing
End If
'inicio da rotina para os dados-------------------------------------------------
Sub Dados()
Dim Contador


%>
			  <table width="96%" border="0" align="left" cellpadding="0" cellspacing="2" valign="top">
				<% for contador = 1 to 10 %>
				<tr>
				  <td valign="top" width="100%"><div align="justify"><span class="style18"><a href="Titulo=<%=reg.fields("CodTexto")%>" class="style27"><img src="Admin/Modulos/links/<%=Foto%>" width="120" height="60" border="0" /> - <%=reg.fields("Chamada")%></a></span><br />
				  </div></td>
				</tr>
				<tr>
				  <td valign="top" background="images/LinhaI.gif"> </td>
				</tr>
				<%reg.MoveNext
				  
				   If reg.Eof then Exit For
				  Next
				  %>
			  </table>
			<%
end sub
%>
		  </td>
		</tr>
	  </tbody>
	</table></td>
	<td width="4"> </td>
	<td width="131" valign="top"><iframe src="../menu_dir.html" width="140" height="265" align="top" scrolling="No" frameborder="0" allowtransparency="true"></iframe></td>
  </tr>
  <tr>
	<td height="76" colspan="8"> </td>
  </tr>
  <tr>
	<td height="19" rowspan="2" align="right" background="../imagens/linhasv.gif"> </td>
	<td rowspan="2" background="../imagens/linhahomev.gif"> </td>
	<td height="19" colspan="8"><div align="center"></div></td>
	<td rowspan="2" background="../imagens/linhahomev.gif"> </td>
  </tr>
  <tr>
	<td height="10" colspan="8"><div align="center"><span class="style21">ComDeus 2008 - Todos os Direitos reservados </span></div></td>
  </tr>
  <tr>
	<td height="19" align="right" background="../imagens/linhasv.gif"> </td>
	<td background="../imagens/linhacantoesqinferior.gif"> </td>
	<td width="56" background="../imagens/linhahomeh3.gif"> </td>
	<td width="81" background="../imagens/linhahomeh3.gif"> </td>
	<td width="78" background="../imagens/linhahomeh3.gif"> </td>
	<td background="../imagens/linhahomeh3.gif"> </td>
	<td width="91" background="../imagens/linhahomeh3.gif"> </td>
	<td width="230" background="../imagens/linhahomeh3.gif"> </td>
	<td background="../imagens/linhahomeh3.gif"> </td>
	<td height="19" background="../imagens/linhahomeh3.gif"> </td>
	<td background="../imagens/linhacantodirinferior.gif"> </td>
  </tr>
</table>
</body>
</html>

 

desculpe o tamanho do código... mas como nao sei onde tah o problema, tah aí p vcs darem uma olhada!!

 

Alguem pode me ajudar?

 

*Moderadores, se aparecer mais de um é pq tah tendo problema de carregamento de páginas eu acho... ele vai até um ponto e depois diz que a página nao pode ser exibida. Meu último tópico apareceu só o título e subtitulo!

Compartilhar este post


Link para o post
Compartilhar em outros sites

<tr>
				  <td valign="top" width="100%"><div align="justify"><span class="style18"><a href="Titulo=<%=reg.fields("CodTexto")%>" class="style27"><img src="Admin/Modulos/links/<%=Foto%>" width="120" height="60" border="0" /> - <%=reg.fields("Chamada")%></a></span><br />
				  </div></td>
				</tr>

Paula, verifique se o diretorio da imagens esta correto, pois o problema é ai...

 

<img src="Admin/Modulos/links/<%=Foto%>

 

E verifique se este campo tem o http://www.endereço.com.br, se nao tiver nao ira funcionar...

 

<%=reg.fields("Chamada")%>

 

Verifique isso e poste o resultado !!!!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Eu olhei td... não está diferente do que você colocou... mas fui desfazendo os comandos que eu tinha tentado, até chegar no arquivo como ele era. Eu utilizei um mini sistema de cadastro de noticias, com imagem. A parte que interessa está assim agora:

 

<td><p>
			<%
			  'abrir conexao
			   set conexao = server.CreateObject("ADODB.Connection")
			   conexao.CursorLocation = 3 
			   conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../dados/bdcomdeus.mdb")&";User Id=admin;Password=;"

			   'pegar dados
			   set reg = server.CreateObject("ADODB.Recordset")
			   str ="SELECT Data, Chamada, CodTexto FROM tbLink ORDER BY Data Desc"
   
   
			   Set reg = Server.CreateObject("ADODB.Recordset")
			   'tamanho de registro em cache
			   reg.CacheSize = 10
			   'quantidade de registro da pagina
			   reg.PageSize = 10
			   'abrindo o reg
			   reg.Open str,conexao
  
			 'se nao tiver dados dar mensagem
			 if reg.EOF then
  %>
			  </p>
			  <table width="100%" border="0" cellspacing="0" cellpadding="0">
				<tr>
				  <td><div align="center"><span class="style28"> No momento nenhum "Conto ou história " está cadastrado no sistema.</span></div></td>
				</tr>
				<tr>
				  <td> </td>
				</tr>
			  </table>
			<font face="Verdana, Arial, Helvetica, sans-serif" size="2">
			  <%		 			  
	'fechando conexao
	reg.Close
	set reg = Nothing
	conexao.Close
	set conexao = Nothing
	
 else

  if Request("Navegacao") = "Proxima" then
	Pagina = Pagina + 1 
  ElseIf Request("Navegacao") = "Anterior" then
	Pagina = Pagina - 1
  Else
	numero = Request("Navegacao")
	Pagina = numero
  end if
  
  'abrir conexao
  set conexao = server.CreateObject("ADODB.Connection")
  conexao.CursorLocation = 3 
  conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../dados/bdcomdeus.mdb")&";User Id=admin;Password=;"

  
  set reg = server.CreateObject("ADODB.Recordset")  
  reg.CacheSize = 10
  reg.PageSize = 10
  
  'pegar dados
  str ="SELECT Data, Chamada, CodTexto FROM tbLink ORDER BY Data Desc"
  
   'abrindo o reg
  reg.Open str,conexao
  Dados
	
  'fechando conexao
  reg.Close
  set reg = Nothing
  conexao.Close
  set conexao = Nothing
End If
'inicio da rotina para os dados-------------------------------------------------
Sub Dados()
Dim Contador


%>
			  <table width="96%" border="0" align="left" cellpadding="0" cellspacing="2" valign="top">
				<% for contador = 1 to 10 %>
				<tr>
				  <td valign="top" width="100%"><div align="justify"><span class="style18"><a href="linksview.asp?CodTexto=<%=reg.fields("CodTexto")%>" class="style27"><img src="Admin/Modulos/links/<%=Foto%>" width="120" height="60" border="0" /> - <%=reg.fields("Chamada")%></a></span><br />
				  </div></td>
				</tr>
				<tr>
				  <td valign="top" background="images/LinhaI.gif"> </td>
				</tr>
				<%reg.MoveNext
				  
				   If reg.Eof then Exit For
				  Next
				  %>
			  </table>

Eu gostaria de saber o que eu preciso mudar e onde, pra que eu possa fazer o negocio funcionar. Estou bem confusa, não sei onde colocar que informação!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Paula, você tem como colar os registros desta tabela tbLink do teu bd aqui...???? Assim, podemos ter uma noção em como esta sendo registrados os dados nessa tabela, e assim ver o que esta errado. Porque o cod em si, esta 100%.

Compartilhar este post


Link para o post
Compartilhar em outros sites

a pasta imagens fica dentro do diretório "Admin/Modulos/links/"

 

pois pelo que vi seria isso

<img src="../<%=Foto%>"

Compartilhar este post


Link para o post
Compartilhar em outros sites

Paula, troque isso:

 

<% for contador = 1 to 10 %>
				<tr>
				  <td valign="top" width="100%"><div align="justify"><span class="style18"><a href="linksview.asp?CodTexto=<%=reg.fields("CodTexto")%>" class="style27"><img src="Admin/Modulos/links/<%=Foto%>" width="120" height="60" border="0" /> - <%=reg.fields("Chamada")%></a></span><br />
				  </div></td>
				</tr>
				<tr>
				  <td valign="top" background="images/LinhaI.gif"> </td>
				</tr>
				<%reg.MoveNext
				  
				   If reg.Eof then Exit For
				  Next
				  %>

Por isso:

 

<% for contador = 1 to 10 %>
				<tr>
				  <td valign="top" width="100%"><div align="justify"><span class="style18"><a href="<%=reg.fields("Titulo")%>" class="style27"><img src="<%=Foto%>" width="120" height="60" border="0"> - <%=reg.fields("Chamada")%></a></span><br />
				  </div></td>
				</tr>
				<tr>
				  <td valign="top" background="images/LinhaI.gif"> </td>
				</tr>
				<%reg.MoveNext
				  
				   If reg.Eof then Exit For
				  Next
				  %>

E poste o resultado....

Compartilhar este post


Link para o post
Compartilhar em outros sites

Tah dificil hein!!

 

Sumi por uns tempos pq me deram um outro serviço p fzr aki, p cobrir o atraso de outro funcinario... é dose, mas td bem!

Então... não deu certo ainda...

 

Agora deu:

 

A página não pode se exibida

 

Tipo de erro:

ADODB.Recordset (0x800A0CC1)

O item não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado.

/comdeus2007/ATN/links.asp, line 196

 

 

Cruel... eu não sei mais o q da p fzr...

Compartilhar este post


Link para o post
Compartilhar em outros sites

Tah dificil hein!!

 

Sumi por uns tempos pq me deram um outro serviço p fzr aki, p cobrir o atraso de outro funcinario... é dose, mas td bem!

Então... não deu certo ainda...

 

Agora deu:

 

A página não pode se exibida

 

Tipo de erro:

ADODB.Recordset (0x800A0CC1)

O item não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado.

/comdeus2007/ATN/links.asp, line 196

 

 

Cruel... eu não sei mais o q da p fzr...

 

No dois selects que você tem, troque essa parte:

 

str ="SELECT Data, Chamada, CodTexto FROM tbLink ORDER BY Data Desc"

Para:

 

str ="SELECT * FROM tbLink ORDER BY Data Desc"

E poste o resultado...

Compartilhar este post


Link para o post
Compartilhar em outros sites

Essa é a linha 196, do erro:

 

<td valign="top" width="100%"><div align="justify"><span class="style18"><a href="<%=reg.fields("Titulo")%>" class="style27"><img src="<%=Foto%>" width="120" height="60" border="0"> - <%=reg.fields("Chamada")%></a></span><br />

Vou fzr essa mudança aí em cima e jah jah posto o resultado!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Legal!! A página apareceu normalmente, sem erros... mas as figuras ainda não aparecem. Aparecem só um "x", sabe, aquele vermelhinho?

 

Antes dessa mudança jah abria a página, mas tb sem as figuras, só o "x" aparecendo.

 

O que pode estar errado com as figuras?

Compartilhar este post


Link para o post
Compartilhar em outros sites

como esta o caminho da imagem, armazenada no bd ?

Compartilhar este post


Link para o post
Compartilhar em outros sites

Legal!! A página apareceu normalmente, sem erros... mas as figuras ainda não aparecem. Aparecem só um "x", sabe, aquele vermelhinho?

 

Antes dessa mudança jah abria a página, mas tb sem as figuras, só o "x" aparecendo.

 

O que pode estar errado com as figuras?

Verifique se o diretorio imagens existe, e tbem se ha figuras dentro desse diretorio. Um coisa que eu reparei la primeiro post o src esta dessa forma:

 

<img src="Admin/Modulos/links/<%=Foto%>" width="120" height="60" border="0" >

Fiquei confuso agora, pois no bd o campo foto esta dessa maneira

 

imagens/logo1....

Entao, essa pagina que você esta imprimindo a tabela Tblink deve estar junto como diretorio imagens, ou o diretorio imagens esta dentro Admin/Modulos/links/. Ficaria melhor assim:

 

imagens

tblinks.asp

Compartilhar este post


Link para o post
Compartilhar em outros sites

O diretorio imagens existe e tem imagens nele sim. O meu administrador, no momento q cadastra, envia a imagem p esse diretorio e o caminho no campo foto está normal:

 

imagens/imagem4.jpg

 

é verdade né?!! Está faltando no caso a pasta imagens?

 

O caminho então ficaria assim(?) :

 

<tr>

<td valign="top" width="100%"><div align="justify"><span class="style18"><a href="Titulo=<%=reg.fields("CodTexto")%>" class="style27"><img src="Admin/Modulos/links/imagens<%=Foto%>" width="120" height="60" border="0" /> - <%=reg.fields("Chamada")%></a></span><br />

</div></td>

 

 

Seria isso??

Compartilhar este post


Link para o post
Compartilhar em outros sites

Ah sim... o diretorio imagens está neste caminho: Admin/Modulos/links/imagens

 

O que se faz então?

Compartilhar este post


Link para o post
Compartilhar em outros sites

O diretorio imagens existe e tem imagens nele sim. O meu administrador, no momento q cadastra, envia a imagem p esse diretorio e o caminho no campo foto está normal:

 

imagens/imagem4.jpg

 

é verdade né?!! Está faltando no caso a pasta imagens?

 

O caminho então ficaria assim(?) :

 

<tr>

<td valign="top" width="100%"><div align="justify"><span class="style18"><a href="Titulo=<%=reg.fields("CodTexto")%>" class="style27"><img src="Admin/Modulos/links/imagens<%=Foto%>" width="120" height="60" border="0" /> - <%=reg.fields("Chamada")%></a></span><br />

</div></td>

 

 

Seria isso??

É isso que você tem que ver com o Admin, se a pasta imagens esta dentro destes diretorios

Admin/Modulos/links/
ou não !!!

 

E mais uma coisa, se a pasta imagens estiver dentro, você nao pode repetir imagens novamente, ficaria assim:

 

<img src="Admin/Modulos/links/<%=Foto%>" width="120" height="60" border="0" />

Primeiro verifique "aonde" exatamente esta a pasta imagens !!!!!

Compartilhar este post


Link para o post
Compartilhar em outros sites

A pasta imagens para onde vai os logotipos dos sites está dentro de Admin/Modulos/links. Depois de links, vem a pasta imagens, onde estão todas os logotipos que serão exibidos no nosso portal!

O Administrador que eu cito é um programa por onde atualizo meu site, ok?

 

Então isso q você me passou:

 

<tr>

<td valign="top" width="100%"><div align="justify"><span class="style18"><a href="<%=reg.fields("Titulo")%>" class="style27"><img src="<%=Foto%>" width="120" height="60" border="0"> - <%=reg.fields("Chamada")%></a></span><br />

</div></td>

 

Vai ficar assim:??

 

<tr>

<td valign="top" width="100%"><div align="justify"><span class="style18"><a href="<%=reg.fields("Titulo")%>" class="style27"><<img src="Admin/Modulos/links/<%=Foto%>" width="120" height="60" border="0"> - <%=reg.fields("Chamada")%></a></span><br />

</div></td>

 

Está certo?

Compartilhar este post


Link para o post
Compartilhar em outros sites

Desculpe... tah sobrando um < ali no meio:

 

<tr>

<td valign="top" width="100%"><div align="justify"><span class="style18"><a href="<%=reg.fields("Titulo")%>" class="style27"><img src="Admin/Modulos/links/<%=Foto%>" width="120" height="60" border="0"> - <%=reg.fields("Chamada")%></a></span><br />

</div></td>

Compartilhar este post


Link para o post
Compartilhar em outros sites

Desculpe... tah sobrando um < ali no meio:

 

<tr>

<td valign="top" width="100%"><div align="justify"><span class="style18"><a href="<%=reg.fields("Titulo")%>" class="style27"><img src="Admin/Modulos/links/<%=Foto%>" width="120" height="60" border="0"> - <%=reg.fields("Chamada")%></a></span><br />

</div></td>

Isso tenta dessa forma, ou dessa forma:

 

<tr>
<td valign="top" width="100%"><div align="justify"><span class="style18"><a href="<%=reg.fields("Titulo")%>" class="style27"><img src="Admin/Modulos/links/<%=reg.fields("foto")%>" width="120" height="60" border="0"> - <%=reg.fields("Chamada")%></a></span><br />
</div></td></tr>

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

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