Exception error

[Lakrom]

Gentlemen a warm greeting of New Year, that everything is happy next to
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.Cr eateObject("ado db.connection")
dConn.open application("St rConRuta")
Set dRs=dConn.Execu te("select * from solicitud_canje _gte_temp where
rut='"&session( "Rut")&"' ORDER BY month(fecha)")
do until dRs.eof
Response.Write( "<tr align='center' bgcolor='#CCCCC C' >")
Response.Write( "<td colspan='6' class='txtTable Estilo6' >Canjes Mes
"&nombremes(mon th(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&oacut e;digo</strong></div></td>")
Response.Write( "<td width='29%' class='txtTable '><div
align='center'> <strong>Product o</strong></div></td>")
Response.Write( "<td class='txtTable '><div
align='center'> <strong>Punto s</strong></div></td>")
Response.Write( "<td class='txtTable ' ><div
align='center'> <strong>Cantida d</strong></div></td>")
Response.Write( "<td class='txtTable ' ><div
align='center'> <strong>Objetiv o</strong></div></td>")
Response.Write( "</tr>")
VFech=dRs("fech a")
* Do until month(dRs("Fech a"))<>month(VFe ch) (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_pro ducto")&"</td>") Response.Write( "<td width='30%' align='center' class='txtTable '"&dRs("descrip cion")&"</td>") Response.Write( "<td width='10%' align='center' class='txtTable '"&dRs("puntos" )&"</td>") Response.Write( "<td width='10%' align='center' class='txtTable '"&dRs("cantida d")&"</td>")

Response.Write( "<td width='30%'
class='txtTable '>"&dRs("objeti vo")&"</td>")
Response.Write( "</tr>")
Total=cint(Tota l+cint(dRs("pun tos")))
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'><"&for matnumber(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(Tot alG+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

[Bob Barrows [MVP]]

Lakrom wrote:

"Bob Barrows [MVP]" <re******@NOyah oo.SPAMcom> escribió en el mensaje
news:%2******** ********@TK2MSF TNGP10.phx.gbl. ..

What about month(dRs("Fech a"))?
Are there any records where dRs("Fecha") is Null or empty?

No any one.

Show us the contents of dRs("Fecha")

You are going to need to verify where this error is occurring. The best way
to do that is create a test page with only the code needed to cause the
error. I would start with a page like this:

<%
Set dConn=Server.Cr eateObject("ado db.connection")
dConn.open application("St rConRuta")
dim sSQL
sSQL = "select * from solicitud_canje _gte_temp where " & _
"rut='"&session ("Rut")&"' ORDER BY month(fecha)".

Response.Write sSQL

Set dRs=dConn.Execu te(sSQL,,1)

if not dRs.EOF then
Response.Write dRs("Fecha")
Response.Write month(dRs("Fech a"))
end if
dRs.Close:Set dRs=Nothing
dConn.Close: Set dConn=Nothing
%>

Run this page and let us know if an error occurs. If no error occurs, then
the error is being caused by some other line in your code. Add lines from
the failing code one-at-a-time to the test page until you determine te
actual cause of the error, and let us know which one it is.

Bob Barrows
--
Microsoft MVP - ASP/ASP.NET
Please reply to the newsgroup. This email account is my spam trap so I
don't check it very often. If you must reply off-line, then remove the
"NO SPAM"

[Bob Barrows [MVP]]

Lakrom wrote:

The page...

You will be lucky if anyone looks at this. You will be better off creating a
small test page (as I described in my previous messsage) to try to
demonstrate your error rather than expecting somebody to read through all
the code in this page. Frankly, there was too much irrelevant code in your
original post.

Bob Barrows
--
Microsoft MVP - ASP/ASP.NET
Please reply to the newsgroup. This email account is my spam trap so I
don't check it very often. If you must reply off-line, then remove the
"NO SPAM"

[io]

G'day Lakrom,

To help you out with this it'd be advantegeous if you included the error description as well. As your .asp page falls over it should come up with err description as well as a script line number that cuased the err (this is a default behaviour for MS IIS).

BTW, in the code below it seems that the line VFech=dRs("fech a") should be inside your inner loop rather than outside

............... ............... .....
............... ............... .....
............... ............... .....
Do until VFech<>dRs("Fec ha")
Response.Write( "<tr> ")
Response.Write( "<td width='10%' class='txtTable '>"&dRs("fecha" )&"</td>")
Response.Write( "<td width='10%' align='center' class='txtTable ' >"&dRs("cod_pro ducto")&"</td>")
Response.Write( "<td width='30%' align='center' class='txtTable ' >"&dRs("descrip cion")&"</td>")
Response.Write( "<td width='10%' align='center' class='txtTable ' >"&dRs("puntos" )&"</td>")
Response.Write( "<td width='10%' align='center' class='txtTable ' >"&dRs("cantida d")&"</td>")
Response.Write( "<td width='30%' class='txtTable '>"&dRs("objeti vo")&"</td>")
Response.Write( "</tr>")
Total=cint(Tota l+cint(dRs("pun tos")))
VFech=dRs("fech a")
dRs.MoveNext
Loop
VFech=dRs("fech a")
............... ............... .....
............... ............... .....
............... ............... .....

Cheers