Foros del Web » Programando para Internet » ASP Clásico »

Problemas para visualizar datos de una tabla.....!

Estas en el tema de Problemas para visualizar datos de una tabla.....! en el foro de ASP Clásico en Foros del Web. Hola a todos espero que me puedan ayudar , mi problema es el siguiente y es que hago una consulta a una tabla y solo ...
  #1 (permalink)  
Antiguo 28/05/2005, 09:59
 
Fecha de Ingreso: enero-2005
Ubicación: Tucumán, Argentina
Mensajes: 57
Antigüedad: 19 años, 5 meses
Puntos: 0
Problemas para visualizar datos de una tabla.....!

Hola a todos espero que me puedan ayudar , mi problema es el siguiente y es que hago una consulta a una tabla y solo me muestra la etiqueta de los campos y nada mas por mas que la bd tiene registros , y tampoco me muestra ningun mensaje de error.
La conexion es con dns y la bd es access, donde podria empezar a analizar el problema ya controle todo el codigo y no encuentro el error y encima no me muestra mensajes de error. Alguien me puede ayudar...................!
  #2 (permalink)  
Antiguo 28/05/2005, 10:57
 
Fecha de Ingreso: abril-2002
Mensajes: 1.014
Antigüedad: 22 años, 1 mes
Puntos: 8
Hola, pones el código?
  #3 (permalink)  
Antiguo 28/05/2005, 11:20
 
Fecha de Ingreso: enero-2005
Ubicación: Tucumán, Argentina
Mensajes: 57
Antigüedad: 19 años, 5 meses
Puntos: 0
va el codigo

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/coneccion3.asp" -->
<%
Dim consulta__MMColParam
consulta__MMColParam = "1"
If (Request.Form("afiApellido") <> "") Then
consulta__MMColParam = Request.Form("afiApellido")
End If
%>
<%
Dim consulta
Dim consulta_numRows

Set consulta = Server.CreateObject("ADODB.Recordset")
consulta.ActiveConnection = MM_coneccion3_STRING
consulta.Source = "SELECT afiApellido, afiNombre, afiTipoDoc, afiDNI, Activo FROM SMIAfiliados WHERE afiApellido = '" + Replace(consulta__MMColParam, "'", "''") + "'"
consulta.CursorType = 0
consulta.CursorLocation = 2
consulta.LockType = 1
consulta.Open()

consulta_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = 10
Repeat1__index = 0
consulta_numRows = consulta_numRows + Repeat1__numRows
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Documento sin t&iacute;tulo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<table border="1">
<tr>
<td>Apellido</td>
<td>Nombre</td>
<td>Tipo de Documento </td>
<td>Numero</td>
<td>Activo</td>
</tr>
<% While ((Repeat1__numRows <> 0) AND (NOT consulta.EOF)) %>
<tr>
<td><%=(consulta.Fields.Item("afiApellido").Value) %></td>
<td><%=(consulta.Fields.Item("afiNombre").Value)%> </td>
<td><%=(consulta.Fields.Item("afiTipoDoc").Value)% ></td>
<td><%=(consulta.Fields.Item("afiDNI").Value)%></td>
<td><%=(consulta.Fields.Item("Activo").Value)%></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
consulta.MoveNext()
Wend
%>
</table>
</body>
</html>
<%
consulta.Close()
Set consulta = Nothing
%>
  #4 (permalink)  
Antiguo 29/05/2005, 17:55
Avatar de El_Metallick  
Fecha de Ingreso: noviembre-2002
Ubicación: Santiago, Chile
Mensajes: 1.718
Antigüedad: 21 años, 7 meses
Puntos: 16
con Do While deveria funcionar (creo)
__________________
Haz la guerra en la cama y el amor donde se te de la gana...
El tiempo es el mejor maestro, lo único malo es que te mata...¡¡Aprovecha tu tiempo!!
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 12:21.