codigo sin usar paginador del dreamver porlo que es mas entendible, el listbox tira losmeses de enero a diceimbre con lo cual sale un listado para ver los casos (numeros d e orden)
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/cn.asp" -->
<%
Dim Rsm
Dim Rsm_numRows
Set Rsm = Server.CreateObject("ADODB.Recordset")
Rsm.ActiveConnection = MM_cn_STRING
Rsm.Source = "SELECT distinct datediff(m,creation_time, getdate()) as uno, right(convert(char(10), creation_time, 103), 7) as dos FROM table_case ORDER BY datediff(m,creation_time, getdate())"
Rsm.CursorType = 0
Rsm.CursorLocation = 2
Rsm.LockType = 1
Rsm.Open()
Rsm_numRows = 0
%>
<%
Dim Rs1
Dim Rs1_numRows
Set Rs1 = Server.CreateObject("ADODB.Recordset")
Rs1.ActiveConnection = MM_cn_STRING
Rs1.Source = "SELECT title,convert(Int,table_case.id_number)as id_number FROM dbo.table_case order by id_number"
Rs1.CursorType = 0
Rs1.CursorLocation = 2
Rs1.LockType = 1
Rs1.Open()
Rs1_numRows = 0
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<table width="75%" border="1">
<tr>
<td>1111111</td>
<td>22222222</td>
</tr>
<tr>
<td><%=(Rs1.Fields.Item("id_number").Value)%></td>
<td><%=(Rs1.Fields.Item("title").Value)%></td>
</tr>
</table>
</body>
</html>
<%
Rsm.Close()
Set Rsm = Nothing
%>
<%
Rs1.Close()
Set Rs1 = Nothing
%>