28/05/2005, 09:59
| |||
| |||
| 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...................! |
|
28/05/2005, 11:20
| |||
| |||
| 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í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 %> |
|
29/05/2005, 17:55
| ||||
| ||||
| 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!! |
