23/03/2005, 09:08
|
| | | Fecha de Ingreso: marzo-2005
Mensajes: 5
Antigüedad: 20 años, 1 mes Puntos: 0 | |
| xdon, esq no entiendo eso del loop. Aki os pongo el codigo que yo tengo puesto:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../Connections/bd_members.asp" -->
<%
Dim rs_members
Dim rs_members_numRows
Set rs_members = Server.CreateObject("ADODB.Recordset")
rs_members.ActiveConnection = MM_bd_members_STRING
rs_members.Source = "SELECT * FROM table_members"
rs_members.CursorType = 0
rs_members.CursorLocation = 2
rs_members.LockType = 1
rs_members.Open()
rs_members_numRows = 0
%>
<%
' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables
Dim rs_members_total
Dim rs_members_first
Dim rs_members_last
' set the record count
rs_members_total = rs_members.RecordCount
' set the number of rows displayed on this page
If (rs_members_numRows < 0) Then
rs_members_numRows = rs_members_total
Elseif (rs_members_numRows = 0) Then
rs_members_numRows = 1
End If
' set the first and last displayed record
rs_members_first = 1
rs_members_last = rs_members_first + rs_members_numRows - 1
' if we have the correct record count, check the other stats
If (rs_members_total <> -1) Then
If (rs_members_first > rs_members_total) Then
rs_members_first = rs_members_total
End If
If (rs_members_last > rs_members_total) Then
rs_members_last = rs_members_total
End If
If (rs_members_numRows > rs_members_total) Then
rs_members_numRows = rs_members_total
End If
End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them
If (rs_members_total = -1) Then
' count the total records by iterating through the recordset
rs_members_total=0
While (Not rs_members.EOF)
rs_members_total = rs_members_total + 1
rs_members.MoveNext
Wend
' reset the cursor to the beginning
If (rs_members.CursorType > 0) Then
rs_members.MoveFirst
Else
rs_members.Requery
End If
' set the number of rows displayed on this page
If (rs_members_numRows < 0 Or rs_members_numRows > rs_members_total) Then
rs_members_numRows = rs_members_total
End If
' set the first and last displayed record
rs_members_first = 1
rs_members_last = rs_members_first + rs_members_numRows - 1
If (rs_members_first > rs_members_total) Then
rs_members_first = rs_members_total
End If
If (rs_members_last > rs_members_total) Then
rs_members_last = rs_members_total
End If
End If
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Untitled Document</title>
<style type="text/css">
<!--
body,td,th {
font-family: Tahoma;
color: #FFFFFF;
font-size: 10px;
}
body {
background-color: #000000;
}
-->
</style></head>
<body>
<table width="500" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="81"><%=(rs_members.Fields.Item("IDmember") .Value)%></td>
<td><%=(rs_members.Fields.Item("member_name").Valu e)%></td>
<td><%=(rs_members.Fields.Item("member_pais").Valu e)%></td>
</tr>
<tr>
<td height="81"> </td>
<td> </td>
<td> </td>
</tr>
</table>
</body>
</html>
<%
rs_members.Close()
Set rs_members = Nothing
%> |