Help
Posted 15 April 2005 - 05:38 PM
Olá pessoal,
estou fazendo um site que tem uma página com links para notícias, até aí tudo bem, através de um banco de dados ela mostra todas as notícias cadastradas e com link para sua página de detalhe correspondente, mas como é um site de contabilidade e, em alguns casos, nessa página de detalhe será colocado apenas um resumo da notícia preciso de um link para o site onde está a notícia completa.
É esse link que eu não estou conseguindo fazer, o texto aparece (é um texto dinâmico, também faz parte do banco de dados), mas não consigo fazer ele virar um link que leve para esse outro site...
Alguém pode me ajudar???
Ah, estou usando ASP
Publicidade
|
|
Page 1 of 1
Texto dinâmico abrir link para outro site Como faço???
#2
markcosta 
- Group: Membros
- Posts: 172
- Joined: 05-December 04
Posted 15 April 2005 - 05:47 PM
Caro Aguima,
Você pode resolver isso da seguinte forma:
Adicionar um campo chamado Link na sua tabela do Banco de Dados, onde você irá colocar o link para o site que possui a notícia completa.
Quando você for carregar o resumo e transforma o texto em link, basta fazer o seguinte:
- Exemplo
<p><a href="<%Campo do BD que contém o Link%>"><%Resumo da notícia%></a></p>
Obviamente não utilizei no exemplo acima nenhuma linguagem de programação. Basta adaptar a idéia a linguegm que você está utilizando.
Saudações
Mark Costa
Você pode resolver isso da seguinte forma:
Adicionar um campo chamado Link na sua tabela do Banco de Dados, onde você irá colocar o link para o site que possui a notícia completa.
Quando você for carregar o resumo e transforma o texto em link, basta fazer o seguinte:
- Exemplo
<p><a href="<%Campo do BD que contém o Link%>"><%Resumo da notícia%></a></p>
Obviamente não utilizei no exemplo acima nenhuma linguagem de programação. Basta adaptar a idéia a linguegm que você está utilizando.
Saudações
Mark Costa
#3
aguima
- Group: Membros
- Posts: 6
- Joined: 15-April 05
Posted 15 April 2005 - 06:47 PM
Desculpe Mark mas não consegui fazer funcionar, vou colar o código para você da uma olhada, desde já obrigada...
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/rcConex.asp" -->
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_rcConex_STRING
Recordset1.Source = "SELECT notData, notTitulo FROM NOTICIAS ORDER BY notData ASC"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
Dim Recordset2__MMColParam
Recordset2__MMColParam = "1"
If (Request.QueryString("notCodigo") <> "") Then
Recordset2__MMColParam = Request.QueryString("notCodigo")
End If
%>
<%
Dim Recordset2
Dim Recordset2_numRows
Set Recordset2 = Server.CreateObject("ADODB.Recordset")
Recordset2.ActiveConnection = MM_rcConex_STRING
Recordset2.Source = "SELECT * FROM NOTICIAS WHERE notCodigo = " + Replace(Recordset2__MMColParam, "'", "''") + ""
Recordset2.CursorType = 0
Recordset2.CursorLocation = 2
Recordset2.LockType = 1
Recordset2.Open()
Recordset2_numRows = 0
%><!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" />
<title>Untitled Document</title>
</head>
<body>
<p> </p>
<table width="400" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><%=(Recordset2.Fields.Item("notData").Value)%></td>
</tr>
<tr>
<td><%=(Recordset2.Fields.Item("notTitulo").Value)%></td>
</tr>
<tr>
<td><%=(Recordset2.Fields.Item("notSubtitulo").Value)%></td>
</tr>
<tr>
<td><%=(Recordset2.Fields.Item("notTexto").Value)%></td>
</tr>
<tr>
<td><a href="%=(Recordset2.Fields.Item("notLink").Value)%"><%=(Recordset2.Fields.Item("notLink").Value)%></a></td>
</tr>
</table>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%
Recordset2.Close()
Set Recordset2 = Nothing
%>
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/rcConex.asp" -->
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_rcConex_STRING
Recordset1.Source = "SELECT notData, notTitulo FROM NOTICIAS ORDER BY notData ASC"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
Dim Recordset2__MMColParam
Recordset2__MMColParam = "1"
If (Request.QueryString("notCodigo") <> "") Then
Recordset2__MMColParam = Request.QueryString("notCodigo")
End If
%>
<%
Dim Recordset2
Dim Recordset2_numRows
Set Recordset2 = Server.CreateObject("ADODB.Recordset")
Recordset2.ActiveConnection = MM_rcConex_STRING
Recordset2.Source = "SELECT * FROM NOTICIAS WHERE notCodigo = " + Replace(Recordset2__MMColParam, "'", "''") + ""
Recordset2.CursorType = 0
Recordset2.CursorLocation = 2
Recordset2.LockType = 1
Recordset2.Open()
Recordset2_numRows = 0
%><!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" />
<title>Untitled Document</title>
</head>
<body>
<p> </p>
<table width="400" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><%=(Recordset2.Fields.Item("notData").Value)%></td>
</tr>
<tr>
<td><%=(Recordset2.Fields.Item("notTitulo").Value)%></td>
</tr>
<tr>
<td><%=(Recordset2.Fields.Item("notSubtitulo").Value)%></td>
</tr>
<tr>
<td><%=(Recordset2.Fields.Item("notTexto").Value)%></td>
</tr>
<tr>
<td><a href="%=(Recordset2.Fields.Item("notLink").Value)%"><%=(Recordset2.Fields.Item("notLink").Value)%></a></td>
</tr>
</table>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%
Recordset2.Close()
Set Recordset2 = Nothing
%>
#5
aguima
- Group: Membros
- Posts: 6
- Joined: 15-April 05
Posted 18 April 2005 - 02:16 PM
Deu certo!
o código ficou assim:
<td><a href="<%=(Recordset2.Fields.Item("notLink").Value)%>" target="_blank"><%=(Recordset2.Fields.Item("notLink").Value)%></a></td>
acho que é como você tinha passado Mark, eu devia estar esquecendo algum detalhe, mas agora está funcionando.
Valeu pela ajuda Mark e Wagner!!!
Share this topic:
Page 1 of 1
Similar Topics
| Topic | Forum | Started By | Stats | Last Post Info | |
|---|---|---|---|---|---|
|
Vetor de video?
como é possível? |
Flash & ActionScript |
skyxer
|
|
|
|
|
Blogs e sites venderão músicas de gravadoras para iPod
|
Notícias |
Notícias
|
|
|
|
|
Ajuda com TEXTO DINÂMICO
Problemas... |
Flash & ActionScript |
rodcarioca
|
|
|
|
|
Sites de imagens...
Sites com imagens legais... |
Fireworks |
^LiNiNhA^
|
|
|
|
|
Windows Phone luta para atrair desenvolvedores de aplicativos
|
Notícias |
Notícias
|
|
|
|
|
Mensagens de celular serão evidência para divórcio na França
|
Notícias |
Notícias
|
|
|
|
|
LoadMovie
como usar p/ abrir jpg's? |
Flash & ActionScript |
RicardoDoria
|
|
|
|
|
Feira destaca robôs para diversão e uso doméstico
|
Notícias |
Notícias
|
|
Publicidade
|
|