Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 Como Hacer Un link del resultado de una consulta
 Foro Bloqueado  Tema Bloqueado


Autor Temas
junox
Starting Member

Mexico
25 Posts
Mensajes - 17 Feb 2004 :  05:02:58  Ver Perfil  Enviar Email
Hola amigos les pido que alguien me ayude Porfas en el campo verconvoca de mi tabla contiene direcciones ejemplo http://99.64.12.223/convoca/campeche.doc sin embargo al parecer en la consulta no aprece como link sino como texto normal que debo hacer para que aparezca como link? este es mi escrip y el campo es el ultimi se llama "verconvoca" espero que alguien me ayude gracias de antemano


<html>

<head>
<title>Ejemplo de ASP</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
</head>

<body background="bkg_pag.gif">
<div id="Layer1" style="position:absolute; left:8px; top:13px; width:744px; height:149px; z-index:1">
<img border="0" src="CabezaAzul.gif" width="800" height="160"></div>
<h1>&nbsp;</h1>
<h1>&nbsp;</h1>
<p>&nbsp;</p>
<p>&nbsp;</p>
<div style="position: absolute; width: 288px; height: 42px; z-index: 2; left: 20px; top: 141px" id="layer11">
<font size="5" face="Tahoma" color="#000080">Convocatorias Vigentes</font></div>
<%
Dim oConn,strSQL, objRS

Set oConn = Server.CreateObject("ADODB.Connection")

oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("convoca.mdb"))

strSQL = "SELECT Id,plaza,unidad,localidad,contacto,verconvoca FROM convoca"
Set objRS = oConn.Execute(strSQL)

%>

<div align="center">

<table width="779" BORDER="3" CELLSPACING="1">
<tr>
<td width="38" bgcolor="#006DA5"><div align="center"><strong>
<font color="#FFFFFF" face="Tahoma" size="2">&nbsp;Folio</font></strong></div></td>
<td width="191" bgcolor="#006DA5"><div align="center"><strong>
<font color="#FFFFFF" face="Tahoma" size="2">&nbsp;Plaza a Concursar</font></strong></div></td>
<td width="51" bgcolor="#006DA5"><div align="center"><strong>
<font color="#FFFFFF" face="Tahoma" size="2">&nbsp;Unidad</font></strong></div></td>
<td width="138" bgcolor="#006DA5"><div align="center"><strong>
<font color="#FFFFFF" face="Tahoma" size="2">&nbsp;Localidad</font></strong></div></td>
<td width="185" bgcolor="#006DA5"><div align="center"><strong>
<font color="#FFFFFF" face="Tahoma" size="2">&nbsp;Contacto&nbsp;</font></strong></div></td>
<td width="135" bgcolor="#006DA5"><div align="center"><strong>
<font color="#FFFFFF" face="Tahoma" size="2">&nbsp;Ver Convocatoria</font></strong></div></td>

</tr>


<%

while (not objRS.Eof)
if colorfila=0 then
color="#99CCFF"
Colorfila=1
else
color="#F0F0F0"
colorfila=0
end if

Response.Write("<tr> <td width= '0' bgcolor='"&color&"'><font face='Tahoma' size='2'>&nbsp;" & objRS("Id") & "</td> <td width= '0' bgcolor='"&color&"'><font face='Tahoma' size='2'>&nbsp;" & objRS("plaza") & "&nbsp;</td> <td width= '0' bgcolor='"&color&"'><font face='Tahoma' size='2'>&nbsp;" & objRS("unidad") & "</td><td width= '0' bgcolor='"&color&"'><font face='Tahoma' size='2'>&nbsp;" & objRS("localidad") & "</td><td width= '0' bgcolor='"&color&"'><font face='Tahoma' size='2'>&nbsp;" & objRS("contacto") & "</td><td width= '0' bgcolor='"&color&"'><font face='Tahoma' size='2'>&nbsp;" & objRS("verconvoca") & "</td> </tr>")
objRS.MoveNext
wend

oConn.Close
set objRS = nothing
set oConn = nothing

%>
</table>
</div>
<p align="center"><font face="Tahoma" color="#0000FF"><big><a href="javascript:window.close();">Cerrar esta Ventana</a> </big></font></body>
</html>

jj

dos
Moderator

España
1575 Posts
Posted - 17 Feb 2004 :  10:06:40  Ver perfil  Enviar e-mail
para escribir un link lo mejor es hacer esto:
Suponemos que tenemos un recordset llamado rs.
En dicho recordset tenemos los campos "link" y "textoLink". El primero contiene la dirección web a la que se quiere apuntar. El segundo el texto que debe aparecer en la página (si quieres que aparezca la dirección como en tu ejemplo con un solo campo te vale, solo tienes que sustituir "textoLink" por "link" en el siguiente ejemplo).

Para escribir el link solo tienes que hacer esto
<%
while rs.eof
%>
<a href="<%=rs("link")%>"><%=rs("textoLink")%></a>
<%
rs.movenext
loop
%>

Aparte de eso, procura no meter tanto código html en un response.write. Puedes escribir el código como te mostre, que te quedará mucho mas limpio y editable.

Saludos.Inicio Pagina

ovidio
Starting Member

Venezuela
16 Posts
Posted - 16 Mar 2008 :  04:29:36  Ver perfil  Enviar e-mail
Gracias, me sirvio de mucho.Inicio Pagina
   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar