es dificil, a ver si se puede

Tom2000
21 de Mayo del 2003
Hola, q tal? tengo un problema para vosotros, la cosa es complicada y bastante larga,
intentar explicarme.
Tengo una pgina q recibe un nif y un password, se conecta a una bd de acces y saca los
registros de ese Nif paginados en una tabla, la cual esta insertada en un formulario pq
en cada registro de la tabla en el campo "Pendiente" (recibos pendientes a pagar)
hay un checkbox (creo q el atributo value est mal) para q el usuario escoja los ecibos pendientes q quiere pagar. Hay un botn en la
ltima pginacin q me lleva a otra.asp para q saque el Total q quiere pagar as como el numero de recibo
elegido para pagar. He probado bastantes cosas, pero la pgina otra.asp slo me coje los "checkboxes" de la ltima
pgina de la paginacin (¿estar mal puesta la etiqueta form?). La pgina otra.asp no s ni cmo
empezarla. Me gustara pasar el "value" de cada CHECKBOX ELEGIJO para sumarlos. No s si me he explicado bien. Ah os dejo el cdigo:
No pongo la pgina de recogida de datos pq si no el mensaje sera demasiado grande.


----------------PAGINAR.ASP--------------------------
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>VISUALIZAR DATOS</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body background="imagenes/muestra.jpg">
<center>

<%
Response.Write "<form method=post action=otra.asp name=form1>"

If Request("nom") = "" OR Request("password") = "" then
Response.Redirect "prueba.asp"
Else
usuario = Trim(Request("nom"))
password = Trim(Request("password"))

'conectamos con la Bd
Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:inetpubwwwrootdatos.mdb;"
'seleccionamos slo los registros de nuestro usuario
sql = "SELECT * FROM EMPRESA WHERE Nif = '"& usuario &"'"
Set RS = Server.CreateObject ("ADODB.RecordSet")
RS.Open sql,oConn,1

If(RS.EOF = true) then
Response.Write "Ese usuario no existe"
%>
<br><a href="prueba.asp">Volver a introducir datos</a></br>

<%Else If RS.Fields("password") <> password then
Response.Write "Esa contrasea no concuerda con el usuario ingresado"

%>
<br><a href="prueba.asp">Volver a introducir datos</a></br>
<%Else
Response.Write "Te logueaste con exito... Bienvenido <B>"& usuario &"</B><br>"
Response.Write "<B>" &rs.FIELDS("NombreEmpresa")&"</B><br>"
Dim mostrar
mostrar=3

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

RS.Close
Set RS = Nothing

Set RS = Server.CreateObject ("ADODB.RecordSet"
sql2 = "SELECT NumeroRecibo,Ejercicio,Nif,TipoRecibo,Cuota,Recargo,ImporteCobrado,[Cuota]+[Recargo]-[ImporteCobrado] As Pendiente FROM RECIBO WHERE Nif = '"& usuario &"' and [Cuota]+[Recargo]-[ImporteCobrado]>0"

RS.PageSize = mostrar
RS.CacheSize = mostrar

RS.Open sql2,oConn,1
cant_paginas = RS.PageCount
cantidad_registros=RS.RecordCount

' Si el pedido de pgina cae afuera del rango,
' lo modificamos para que caiga adentro
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..."
%>
<a href=prueba.asp>Atrs</a>
<%Else

RS.AbsolutePage = pagina_actual

%>
<FONT SIZE="+1">Pgina <B><%= pagina_actual %></B> de <B><%= cant_paginas %></B></FONT>
Se encontraron <b><%Response.Write cantidad_registros%></b> registros a tu nombre

<%
Response.Write "<BR><BR>" & vbCrLf
Response.Write "<TABLE align=center BORDER=""1"">" & vbCrLf
Response.Write vbTab & "<TR bgcolor=#003399>" & vbCrLf
For I = 0 To RS.Fields.Count - 1
Response.Write vbTab & vbTab & "<TH><font face=arial color=white size=2>"
Response.Write RS.Fields(I).Name
Response.Write "</font></TH>" & vbCrLf
Next
Response.Write vbTab & "</TR>" & vbCrLf
registro_mostrado = 0
Do While registro_mostrado < mostrar And Not RS.EOF
Response.Write vbTab & "<TR bgcolor=#FF9900>" & vbCrLf
For I = 0 To RS.Fields.Count - 1
if RS.Fields(I).Name="Cuota" or RS.Fields(I).Name="Recargo" or RS.Fields(I).Name="ImporteCobrado" or RS.Fields(I).Name="Pendiente" then
Response.Write vbTab & vbTab & "<TD ALIGN=RIGHT><font face=arial size=2>"
response.Write RS.Fields(I)
Else
Response.Write vbTab & vbTab & "<TD><font size=2 face=arial>"
Response.Write RS.Fields(I)
End if
If RS.Fields(I).Name = "Pendiente" then%>
<input type="checkbox" name="paga" value="<%=(RS(I))%>">

<%end if
Response.Write "</TD></font>" & vbCrLf
Next
Response.Write vbTab & "</TR>" & vbCrLf


registro_mostrado = registro_mostrado + 1

RS.MoveNext
Loop

'listo...
Response.Write "</TABLE>" & vbCrLf
End If
%>

<%
RS.Clos
Set RS = Nothing

'enlaces
If pagina_actual > 1 Then
%>
<%pagina=pagina_actual - 1%>
<a href="./paginar.asp?eje=30&nom=<%=request("nom")%>&password=<%=request("password")%>&page=<%= pagina%>">[<< Anterior]</a>
<%
End If


For I = 1 To cant_paginas
If I = pagina_actual Then
%>
<%= I%>
<%
Else
%>

<a href="paginar.asp?eje=30&nom=<%=request("nom")%>&password=<%=request("password")%>&page=<%= I %>"><%= I%></a>
<%
End If
Next

If pagina_actual < cant_paginas Then
%>
<%pagina=pagina_actual + 1%>
<a href="paginar.asp?eje=30&nom=<%=Request("nom")%>&password=<%=Request("password")%>&page=<%= pagina%>">[Prximo >>]</a>

<%
Else if pagina_actual = cant_paginas then

Set RS = Server.CreateObject ("ADODB.RecordSet")
sql3="SELECT sum(cuota) as Total_Cuota, sum(Recargo) as Total_Recargo, sum(ImporteCobrado) as Total_ImporteCobrado,sum ([Cuota]+[Recargo]-[ImporteCobrado]) As Total_Pendiente FROM RECIBO WHERE Nif = '"& usuario &"'"
RS.Open sql3,oConn,1 'Abrimos para la tercera consulta

Response.Write "<BR><BR>" & vbCrLf
Response.Write "<TABLE align=center BORDER=""1"">" & vbCrLf

Response.Write vbTab & "<TR bgcolor=#003399>" & vbCrLf
For I = 0 To RS.Fields.Count - 1
Response.Write vbTab & vbTab & "<TH><font color=white size=2 face=arial>"
Response.Write RS.Fields(I).Name
Response.Write "</font></TH>" & vbCrLf
Next 'I
Response.Write vbTab & "</TR>" & vbCrLf
Response.Write vbTab & "<TR bgcolor=#FF9900>" & vbCrLf
For I = 0 To RS.Fields.Count - 1
Response.Write vbTab & vbTab & "<TD ALIGN=RIGHT><font size=2 face=arial>"
response.Write RS.Fields(I)
Response.Write "</font></TD>" & vbCrLf
Next 'I
Response.Write vbTab & "</TR>" & vbCrLf %>
<input type="submit" value="ver recibos a pagar">
<%
Response.Write "</table>"

RS.Close
Set RS = Nothing
oConn.Close
Set oConn = Nothing

End If
End If
End If
End If
End If
Response.Write "</form>"
%>
</center>
</body>
</html>

¿¿¿OTRA.ASP???

Espero q os ayude, ya s q es complicado, aver si podis ayudarme. Gracias por adelantado