Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 Problemas al visualizar tabla
 Foro Bloqueado  Tema Bloqueado


Autor Temas
vtptra
Starting Member


8 Posts
Mensajes - 05 Nov 2006 :  13:04:58  Ver Perfil  Enviar Email
Hola,

Tengo una fila llamada (verimagen) los datos los he puesto como hipervinculo, pero al visualizarlo me sale este campo en todas las filas, y solo quiero que salga en su fila para que el resto de las filas se vena bien, sin que se les acople el campo verimagen. Alguien me puede dar la solucion. Gracias

<!--#include file="inc_top.asp"-->
<!--#include file="inc_umenu.asp"-->
<!--#include file="inc_head.asp"-->
<!--#include file="protected.asp"-->

<%
dim tabla
dim color_datos
dim color_titulos
dim fondo_color_datos
dim fondo_color_titulos
dim font_datos
dim font_titulos
dim size_datos
dim size_titulos
Dim mostrar 'cantidad de registros a mostrar por página
Dim cant_paginas 'cantidad de páginas que recibimos
Dim pagina_actual 'La página que mostramos
Dim registro_mostrado 'Contador utilizado para mostrar las páginas
Dim I 'Variable Loop

Dim rsUser
Dim dbConn
Dim oConn
Dim Connect
Dim sql
Dim URL

Connect="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("bd2.mdb")
tabla = "articulos"
color_datos = "#000000"
color_titulos = "000000"
fondo_color_datos = "FFFfff"
fondo_color_titulos = "E0EAF4"
font_datos = "Verdana"
font_titulos = "Verdana"
size_datos = "10"
size_titulos = "10"
mostrar = 20

If Request.QueryString("page") = "" Then
pagina_actual = 1
Else
pagina_actual = CInt(Request.QueryString("page"))
End If

sql = "SELECT codigo, centro, foto1, verimagen FROM ["& Trim(tabla) & "] WHERE username = '" & username & "'"

Set dbconn=Server.CreateObject("ADODB.Connection")
dbconn.open connect

Set rsUser = Server.CreateObject("ADODB.Recordset")

rsUser.PageSize = mostrar
rsUser.CacheSize = mostrar

rsUser.Open sql, dbconn, 3, 1

cant_paginas = rsUser.PageCount

If pagina_actual > cant_paginas Then pagina_actual = cant_paginas
If pagina_actual < 1 Then pagina_actual = 1


If cant_paginas = 0 Then
Response.Write "No hay registros..."
Else

rsUser.AbsolutePage = pagina_actual

%>
<FONT SIZE="+1">Page <B><%= pagina_actual %></B> of <B><%= cant_paginas %></B></FONT>
<%
Response.Write vbTab & "<TABLE cellspacing='1' cellpadding='3' BORDER='1' WIDTH='1200' bordercolor='#000000'>"
Response.Write vbTab & "<TR>" & vbCrLf
For I = 0 To rsUser.Fields.Count - 1
Response.Write "<TD align='center' bgcolor='"& fondo_color_titulos &"' "
Response.Write "style='color: "& color_titulos &"; font-family:"& font_titulos &"; font-size: "& size_titulos &"'><B>"
Response.Write rsUser.Fields(I).Name
Response.Write "</B></TD>" & vbCrLf
Next 'I
Response.Write vbTab & "</TR>" & vbCrLf
registro_mostrado = 0
Do While registro_mostrado < mostrar And Not rsUser.EOF
Response.Write vbTab & "<TR>" & vbCrLf
For I = 0 To rsUser.Fields.Count - 1
Response.Write "<TD align='left' nowrap bgcolor='"& fondo_color_datos &"'"
Response.Write "style='color: "& color_datos &"; font-family:"& font_datos &"; font-size: "& size_datos &"'><B>"
Response.Write rsUser.Fields(I)
Response.write("<a href=' "& rsUser("verimagen") & "'>" & rsUser("verimagen") & "</a>")
if isnull(rsUser.Fields(I)) or rsUser.Fields(I) = "" then response.write "&nbsp;"
Response.Write "</B></TD>" & vbCrLf
Next 'I
Response.Write vbTab & "</TR>" & vbCrLf
registro_mostrado = registro_mostrado + 1
rsUser.MoveNext
Loop
Response.Write "</TABLE>" & vbCrLf
End If

rsUser.Close
Set rsUser = Nothing
dbconn.Close
Set dbconn = Nothing
%>
<table cellspacing='1' cellpadding='0' bgcolor='#B0B8C0' width='1200'>
<tr class="normal">
<td align='center' bgcolor='#FFD8D0' width=48 nowrap><a href='http://www.packpuntomedia.com' target='_blank'>www.packpuntomedia.com</a>
<td align='center' bgcolor='#ECF4EC' nowrap>

<%
If pagina_actual > 1 Then
%>

<p><a href="./paginar.asp?eje=30&page=<%= pagina_actual - 1 %>">
<img src='images/pgup2.gif' heigh='12' border='0' vspace='1' hspace='1'></a>
<%
End If

' mostramos la paginacion por numeros de página
For I = 1 To cant_paginas
If I = pagina_actual Then
%>
<%= I %>
<%
Else
%>


<a href="./paginar.asp?eje=30&page=<%= I %>"><%= I %></a>
<%
End If
Next 'I

If pagina_actual < cant_paginas Then
%>


<a href="./paginar.asp?eje=30&page=<%= pagina_actual + 1 %>">
<img src='images/pgdn1.gif' width='12' heigh='12' border='0' vspace='1' hspace='1'></a>


</td></tr></table>
<%
End If
'Fin...
%>

   
 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