![Antiguo](http://static.forosdelweb.com/fdwtheme/images/statusicon/post_old.gif)
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í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
%> |