1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104
|
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%Option explicit%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Mise en demeure </title>
<LINK media=all href="../style.css" type=text/css rel=stylesheet>
</head>
<SCRIPT language="javascript"><!--
</SCRIPT>
<body>
<Center>
<%
Dim SQL, Conn, RS, PageNum, i, j
Const adOpenKeyset = 1
Set Conn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")
Conn.Open "CLI"
Sql = ""
Sql = Sql + " select * from client"
rs.CursorLocation=3
RS.Open sql, Conn, 1,1
RS.PageSize = 10
i = 0
IF request.QueryString("PageNum") <> "" THEN
IF RS.AbsolutePage <= RS.pagecount THEN
RS.AbsolutePage = request.QueryString("PageNum")
PageNum = request.QueryString("PageNum")
END IF
ELSE
PageNum = 1
END IF
IF NOT RS.EOF AND NOT RS.BOF THEN %>
<Form action="ppp" name="general" >
<%
response.Write("<table border=1 align=""CENTER"" cellspacing=0 width=""63%"">" & vbcrlf)
%>
<tr>
<td width="22%" >
<div align=Center>
Tout Cocher/Décocher</div></td>
<td width="14%" >
<div align=Center> Num Client </div></td>
<td width="36%">Nom Client</td>
<td width="11%">Nbr Factures</td>
<td width="17%">Montant</td>
</tr>
<%
while not RS.EOF AND i<= RS.PageSize
response.Write("<tr>" & vbcrlf)
%>
<td>
<div align="Center" >
<input type="checkbox" name="lists" id="list" value=<%=RS.fields(0).value%> >
</div></td>
<%for j= 0 to RS.fields.count-3
response.write ("<td>" & RS.fields(j).value & " </td>" & vbcrlf)
next
response.Write("<tr>" & vbcrlf)
RS.movenext
i=i+1
wend
response.Write("</table>" & vbcrlf)
ELSE
response.Write("Pas d'enregistrements")
END IF
response.Write(" page " & PageNum & " of " & RS.Pagecount & "<br>")
If cint(PageNum) > 1 Then
response.Write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?Direction=Prev&PageNum=" & PageNum - 1 & "'>Enregistrements précédents</a> ")
End If
If cint(PageNum) < RS.Pagecount Then
response.Write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?Direction=Next&PageNum=" & PageNum + 1 & "'>Enregistrements suivants</a>")
End If%>
</Form>
RS.Close
Conn.Close
Set RS = Nothing
Set Conn = Nothing
%>
</body>
</html> |
Partager