their dear family and beings. Now to the subject, I have an error of
exception in this subroutine. The error is:(0x80020009)
A data base is SQL Server 2000.
**********************************
Sub Desplegar (Mes)
Set dConn=Server.CreateObject("adodb.connection")
dConn.open application("StrConRuta")
Set dRs=dConn.Execute("select * from solicitud_canje_gte_temp where
rut='"&session("Rut")&"' ORDER BY month(fecha)")
do until dRs.eof
Response.Write("<tr align='center' bgcolor='#CCCCCC' >")
Response.Write("<td colspan='6' class='txtTable Estilo6' >Canjes Mes
"&nombremes(month(dRs("fecha")))&"</td>")
Response.Write("</tr>")
Response.Write("<tr align='center'>")
Response.Write("<td width='13%' class='txtTable' ><div
align='center'><strong>Fecha Canje </strong></div></td>")
Response.Write("<td width='7%' class='txtTable'><div
align='center'><strong>Código</strong></div></td>")
Response.Write("<td width='29%' class='txtTable'><div
align='center'><strong>Producto</strong></div></td>")
Response.Write("<td class='txtTable'><div
align='center'><strong>Puntos</strong></div></td>")
Response.Write("<td class='txtTable' ><div
align='center'><strong>Cantidad</strong></div></td>")
Response.Write("<td class='txtTable' ><div
align='center'><strong>Objetivo</strong></div></td>")
Response.Write("</tr>")
VFech=dRs("fecha")
* Do until month(dRs("Fecha"))<>month(VFech) (Line of error) (0x80020009)
Response.Write("<tr> ")
Response.Write("<td width='10%' class='txtTable'>"&dRs("fecha")&"</td>")
Response.Write("<td width='10%' align='center' class='txtTable'
"&dRs("cod_producto")&"</td>") Response.Write("<td width='30%' align='center' class='txtTable'"&dRs("descripcion")&"</td>") Response.Write("<td width='10%' align='center' class='txtTable'"&dRs("puntos")&"</td>") Response.Write("<td width='10%' align='center' class='txtTable'"&dRs("cantidad")&"</td>")
Response.Write("<td width='30%'
class='txtTable'>"&dRs("objetivo")&"</td>")
Response.Write("</tr>")
Total=cint(Total+cint(dRs("puntos")))
dRs.MoveNext
Loop
Response.Write("<tr align='center' class='txt'><td height='22' colspan='3'
align='center' class='txtTable'><div
align='center'><strong>Sub-Total</strong><font size='2'></font>
</div></td><td width='10%' class='TxtTable'><div align='center'><font
size='2'><"&formatnumber(Total,0,,,-2)&"</font></div><td width='14%'
align='right' class='txtTable'><div align='center'><font size='2'></font>
</div></td><td width='27%' class='txtTable'><div align='center'><font
size='2'></font></div></td></tr>")
dRs.MoveNext
TotalG=cint(TotalG+cint(Total))
loop
End Sub
**********************************
This sub routine loads in a pagina a iforme ordered per month. Please help
me
Thanks
--
Marco Antonio Artus S.
Lakromsoft INC.
09-9594663