Groups | Blog | Home
all groups > inetserver asp general > december 2004 >

inetserver asp general : Exception error


Bob Barrows [MVP]
12/30/2004 9:03:31 AM
[quoted text, click to view]

You need to verify that your query returned any records before you attempt
to read the values of any fields in your recordset. You do this using the
EOF property.

'open the recordset, then

if not dRS.EOF then
Do until month(dRs("Fecha"))<>month(VFech)
...
else
Response.Write "No records were returned
end if

You can debug your query by printing it out. Assign the sql statement to a
variable instead of executing it directly:

dim sSQL
sSQL = "select * from solicitud_canje_gte_temp where " & _
"rut='"&session("Rut")&"' ORDER BY month(fecha)".

Response.Write sSQL

Set dRs=dConn.Execute(sSQL,,1)
....


Look at the statement that gets written to the browser window when you run
the page and verify that it is a valid sql statement that looks the way you
expect it to look.

Bob Barrows
..
--
Microsoft MVP -- ASP/ASP.NET
Please reply to the newsgroup. The email account listed in my From
header is my spam trap, so I don't check it very often. You will get a
quicker response by posting to the newsgroup.

Bob Barrows [MVP]
12/30/2004 10:06:53 AM
Please reply to and include a quote from the message to which you are
replying. You do not have to quote the whole message, in fact, it is best to
trim the parts of the message which are not relevant, as I will do below.

[quoted text, click to view]

I did miss this line. OK, your recordset contains records.

[quoted text, click to view]

What happens if you simply do

Response.Write month(VFech)

? Are you certain VFech contains a valid date? If you get an error, try
explicitly converting it to a date using CDate:

Response.Write month(CDate(VFech))

Bob Barrows

--
Microsoft MVP -- ASP/ASP.NET
Please reply to the newsgroup. The email account listed in my From
header is my spam trap, so I don't check it very often. You will get a
quicker response by posting to the newsgroup.

Lakrom
12/30/2004 10:10:28 AM
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.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&oacute;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'
[quoted text, click to view]
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

Lakrom
12/30/2004 11:25:08 AM
Thanks but already I have proven that the registry does not come vacio, I
have done it with Response.Write(dRs("fecha")) and Response.End() asi that I
believe that the exception must be of another side.
"Lakrom" <lakrom@terra.cl> escribió en el mensaje
news:P6TAd.3324$ID2.8392@jagger.tie.cl...
[quoted text, click to view]

Lakrom
12/30/2004 1:10:08 PM
Yes this line Response.Write month(VFech) contains a valid date and prove to
with CDate function and is the same error.

"Bob Barrows [MVP]" <reb01501@NOyahoo.SPAMcom> escribió en el mensaje
news:e5m0zEo7EHA.1260@TK2MSFTNGP12.phx.gbl...
[quoted text, click to view]

Lakrom
12/30/2004 1:10:08 PM
Yes this line Response.Write month(VFech) contains a valid date and prove to
with CDate function and is the same error.

"Bob Barrows [MVP]" <reb01501@NOyahoo.SPAMcom> escribió en el mensaje
news:e5m0zEo7EHA.1260@TK2MSFTNGP12.phx.gbl...
[quoted text, click to view]

Lakrom
12/30/2004 1:10:08 PM
Yes this line Response.Write month(VFech) contains a valid date and prove to
with CDate function and is the same error.

"Bob Barrows [MVP]" <reb01501@NOyahoo.SPAMcom> escribió en el mensaje
news:e5m0zEo7EHA.1260@TK2MSFTNGP12.phx.gbl...
[quoted text, click to view]

Bob Barrows [MVP]
12/30/2004 1:38:47 PM
What about month(dRs("Fecha"))?
Are there any records where dRs("Fecha") is Null or empty?

Bob Barrows

Response.Write
[quoted text, click to view]

--
Microsoft MVP -- ASP/ASP.NET
Please reply to the newsgroup. The email account listed in my From
header is my spam trap, so I don't check it very often. You will get a
quicker response by posting to the newsgroup.

Lakrom
12/30/2004 4:20:36 PM

"Bob Barrows [MVP]" <reb01501@NOyahoo.SPAMcom> escribió en el mensaje
news:%238rFO7p7EHA.1024@TK2MSFTNGP10.phx.gbl...
[quoted text, click to view]
No any one.

Lakrom
12/30/2004 4:20:36 PM

"Bob Barrows [MVP]" <reb01501@NOyahoo.SPAMcom> escribió en el mensaje
news:%238rFO7p7EHA.1024@TK2MSFTNGP10.phx.gbl...
[quoted text, click to view]
No any one.

Bob Barrows [MVP]
12/30/2004 4:46:57 PM
[quoted text, click to view]

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.CreateObject("adodb.connection")
dConn.open application("StrConRuta")
dim sSQL
sSQL = "select * from solicitud_canje_gte_temp where " & _
"rut='"&session("Rut")&"' ORDER BY month(fecha)".

Response.Write sSQL

Set dRs=dConn.Execute(sSQL,,1)

if not dRs.EOF then
Response.Write dRs("Fecha")
Response.Write month(dRs("Fecha"))
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]
12/30/2004 4:59:13 PM
[quoted text, click to view]

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"

Lakrom
12/30/2004 6:34:22 PM
The page...


begin 666 Det1a.asp
M/"4-"FUE<W@]4F5Q=65S="YQ=65R>5-T<FEN9R@B;65S(BD-"D9U;F-T:6]N
M($YO;6)R94UE<RA-97,I#0H)1&EM(&%-97-E<R@Q,RD-"@EA365S97,H,2D]
M(D5N97)O(@T*"6%-97-E<R@R*3TB1F5B<F5R;R(-"@EA365S97,H,RD](DUA
M<GIO(@T*"6%-97-E<R@T*3TB06)R:6PB#0H)84UE<V5S*#4I/2)-87EO(@T*
M"6%-97-E<R@V*3TB2G5N:6\B#0H)84UE<V5S*#<I/2)*=6QI;R(-"@EA365S
M97,H."D](D%G;W-T;R(-"@EA365S97,H.2D](E-E<'1I96UB<F4B#0H)84UE
M<V5S*#$P*3TB3V-T=6)R92(-"@EA365S97,H,3$I/2).;W9I96UB<F4B#0H)
M84UE<V5S*#$R*3TB1&EC:65M8G)E(@T*"4YO;6)R94UE<SUA365S97,H365S
M*0T*16YD($9U;F-T:6]N#0II9B!,96XH<V5S<VEO;B@B<G5T(BDI/C @=&AE
M;@T*1&EM(%!D+%1O=&%L#0I3=6(@1&5S<&QE9V%R("A-97,I#0H)4V5T(&1#
M;VYN/5-E<G9E<BY#<F5A=&5/8FIE8W0H(F%D;V1B+F-O;FYE8W1I;VXB*0T*
M"61#;VYN+F]P96X@87!P;&EC871I;VXH(E-T<D-O;E)U=&$B*0T*"5-E="!D
M4G,]9$-O;FXN17AE8W5T92@B<V5L96-T(&-A<W0H9F5C:&$@87,@=F%R8VAA
M<BD@87,@9F5C:&$L(&-O9%]P<F]D=6-T;RP@9&5S8W)I<&-I;VXL(&-A;G1I
M9&%D+"!P=6YT;W,L;V)J971I=F\@9G)O;2!S;VQI8VET=61?8V%N:F5?9W1E
M7W1E;7 @=VAE<F4@<G5T/2<B)G-E<W-I;VXH(E)U="(I)B(G($]21$52($)9
M(&UO;G1H*&9E8VAA*2(I#0H)9&\@=6YT:6P@9%)S+F5O9@T*"0E297-P;VYS
M92Y7<FET92@B/'1R(&%L:6=N/2=C96YT97(G(&)G8V]L;W(])R-#0T-#0T,G
M(" ^(BD-"@D)4F5S<&]N<V4N5W)I=&4H(CQT9"!C;VQS<&%N/2<V)R!C;&%S
M<STG='AT5&%B;&4@17-T:6QO-B<@/D-A;FIE<R!-97,@(B9N;VUB<F5M97,H
M;6]N=&@H0T1A=&4H9%)S*")F96-H82(I*2DI)B(\+W1D/B(I#0H)"5)E<W!O
M;G-E+E=R:71E*"(\+W1R/B(I#0H)"5)E<W!O;G-E+E=R:71E*"(\='(@86QI
M9VX])V-E;G1E<B<^(BD-"@D)4F5S<&]N<V4N5W)I=&4H(CQT9"!W:61T:#TG
M,3,E)R!C;&%S<STG='AT5&%B;&4G(#X\9&EV(&%L:6=N/2=C96YT97(G/CQS
M=')O;F<^1F5C:&$@0V%N:F4@/"]S=')O;F<^/"]D:78^/"]T9#XB*0T*"0E2
M97-P;VYS92Y7<FET92@B/'1D('=I9'1H/2<W)2<@8VQA<W,])W1X=%1A8FQE
M)SX\9&EV(&%L:6=N/2=C96YT97(G/CQS=')O;F<^0R9O86-U=&4[9&EG;SPO
M<W1R;VYG/CPO9&EV/CPO=&0^(BD-"@D)4F5S<&]N<V4N5W)I=&4H(CQT9"!W
M:61T:#TG,CDE)R!C;&%S<STG='AT5&%B;&4G/CQD:78@86QI9VX])V-E;G1E
M<B<^/'-T<F]N9SY0<F]D=6-T;SPO<W1R;VYG/CPO9&EV/CPO=&0^(BD-"@D)
M4F5S<&]N<V4N5W)I=&4H(CQT9"!C;&%S<STG='AT5&%B;&4G/CQD:78@86QI
M9VX])V-E;G1E<B<^/'-T<F]N9SY0=6YT;W,\+W-T<F]N9SX\+V1I=CX\+W1D
M/B(I#0H)"5)E<W!O;G-E+E=R:71E*"(\=&0@(&-L87-S/2=T>'1486)L92<@
M/CQD:78@86QI9VX])V-E;G1E<B<^/'-T<F]N9SY#86YT:61A9#PO<W1R;VYG
M/CPO9&EV/CPO=&0^(BD-"@D)4F5S<&]N<V4N5W)I=&4H(CQT9" @8VQA<W,]
M)W1X=%1A8FQE)R ^/&1I=B!A;&EG;CTG8V5N=&5R)SX\<W1R;VYG/D]B:F5T
M:79O/"]S=')O;F<^/"]D:78^/"]T9#XB*0T*"0E297-P;VYS92Y7<FET92@B
M/"]T<CXB*0T*"0E61F5C:#UD4G,H(F9E8VAA(BD-"@D)4F5S<&]N<V4N5W)I
M=&4H(E)E9VES=')O.B B("8@9%)S*")F96-H82(I)B B("T@(BD@#0H)"5)E
M<W!O;G-E+E=R:71E*")687)I86)L93H@(B F(%9&96-H*0T*"0E297-P;VYS
M92Y%;F0H*0T*"0E$;R!U;G1I;"!61F5C:#P^9%)S*")&96-H82(I#0H)"0E2
M97-P;VYS92Y7<FET92@B/'1R/B B*0T*"0D)4F5S<&]N<V4N5W)I=&4H(CQT
M9"!W:61T:#TG,3 E)R!C;&%S<STG='AT5&%B;&4G/B(F9%)S*")F96-H82(I
M)B(\+W1D/B(I#0H)"0E297-P;VYS92Y7<FET92@B/'1D('=I9'1H/2<Q,"4G
M(&%L:6=N/2=C96YT97(G("!C;&%S<STG='AT5&%B;&4G(" ^(B9D4G,H(F-O
M9%]P<F]D=6-T;R(I)B(\+W1D/B(I#0H)"0E297-P;VYS92Y7<FET92@B/'1D
M('=I9'1H/2<S,"4G(&%L:6=N/2=C96YT97(G("!C;&%S<STG='AT5&%B;&4G
M(" ^(B9D4G,H(F1E<V-R:7!C:6]N(BDF(CPO=&0^(BD-"@D)"5)E<W!O;G-E
M+E=R:71E*"(\=&0@=VED=&@])S$P)2<@86QI9VX])V-E;G1E<B<@8VQA<W,]
M)W1X=%1A8FQE)R @/B(F9%)S*")P=6YT;W,B*28B/"]T9#XB*0T*"0D)4F5S
M<&]N<V4N5W)I=&4H(CQT9"!W:61T:#TG,3 E)R!A;&EG;CTG8V5N=&5R)R!C
M;&%S<STG='AT5&%B;&4G(" ^(B9D4G,H(F-A;G1I9&%D(BDF(CPO=&0^(BD-
M"@D)"5)E<W!O;G-E+E=R:71E*"(\=&0@=VED=&@])S,P)2<@8VQA<W,])W1X
M=%1A8FQE)SXB)F12<R@B;V)J971I=F\B*28B/"]T9#XB*0T*"0D)4F5S<&]N
M<V4N5W)I=&4H(CPO='(^(BD-"@D)"51O=&%L/6-I;G0H5&]T86PK8VEN="AD
M4G,H(G!U;G1O<R(I*2D-"@D)"612<RY-;W9E3F5X= T*"0E,;V]P#0H)"59&
M96-H/612<R@B9F5C:&$B*0T*"0E297-P;VYS92Y7<FET92@B/'1R(&%L:6=N
M/2=C96YT97(G(&-L87-S/2=T>'0G/CQT9"!H96EG:'0])S(R)R!C;VQS<&%N
M/2<S)R!A;&EG;CTG8V5N=&5R)R!C;&%S<STG='AT5&%B;&4G/CQD:78@86QI
M9VX])V-E;G1E<B<^/'-T<F]N9SY3=6(M5&]T86P\+W-T<F]N9SX\9F]N="!S
M:7IE/2<R)SX\+V9O;G0^(#PO9&EV/CPO=&0^/'1D('=I9'1H/2<Q,"4G(&-L
M87-S/2=4>'1486)L92<^/&1I=B!A;&EG;CTG8V5N=&5R)SX\9F]N="!S:7IE
M/2<R)SX\(B9F;W)M871N=6UB97(H5&]T86PL,"PL+"TR*28B/"]F;VYT/CPO
M9&EV/CQT9"!W:61T:#TG,30E)R!A;&EG;CTG<FEG:'0G(&-L87-S/2=T>'14
M86)L92<^/&1I=B!A;&EG;CTG8V5N=&5R)SX\9F]N="!S:7IE/2<R)SX\+V9O
M;G0^(#PO9&EV/CPO=&0^/'1D('=I9'1H/2<R-R4G(&-L87-S/2=T>'1486)L
M92<^/&1I=B!A;&EG;CTG8V5N=&5R)SX\9F]N="!S:7IE/2<R)SX\+V9O;G0^
M/"]D:78^/"]T9#X\+W1R/B(I#0H)"612<RY-;W9E3F5X= T*"0E4;W1A;$<]
M8VEN="A4;W1A;$<K8VEN="A4;W1A;"DI#0H);&]O< T*16YD(%-U8@T*16YD
M($EF#0HE/@T*/&AT;6P^#0H\:&5A9#X-"CQT:71L93X\+W1I=&QE/@T*/&UE
M=&$@:'1T<"UE<75I=CTB0V]N=&5N="U4>7!E(B!C;VYT96YT/2)T97AT+VAT
M;6P[(&-H87)S970]:7-O+3@X-3DM,2(^#0H\<V-R:7!T(&QA;F=U86=E/2)*
M879A4V-R:7!T(B!S<F,](BXN+VIS+VUA<W1E<BYJ<R(^/"]S8W)I<'0^#0H\
M;&EN:R!H<F5F/2(N+B]C<W,O<W1Y;&4N8W-S(B!R96P](G-T>6QE<VAE970B
M('1Y<&4](G1E>'0O8W-S(CX-"CQS='EL92!T>7!E/2)T97AT+V-S<R(^#0H\
M(2TM#0HN17-T:6QO-2![9F]N="US:7IE.B Q-'!X?0T*+D5S=&EL;S<@>V-O
M;&]R.B C.3DY.3DY.R!F;VYT+69A;6EL>3H@07)I86PL($AE;'9E=&EC82P@
M<V%N<RUS97)I9CM]#0H-"BTM/@T*/"]S='EL93X-"CPO:&5A9#X-"CQB;V1Y
M(&)G8V]L;W(](B-F9F9F9F8B(&QE9G1M87)G:6X](C B('1O<&UA<F=I;CTB
M,"(@;6%R9VEN=VED=&@](C B(&UA<F=I;FAE:6=H=#TB,"(@;VY,;V%D/2)-
M35]P<F5L;V%D26UA9V5S*"<N+B]I+VEN<U]M:7-I;VY?9C(N9VEF)RPG+BXO
M:2]I;F=?<&%G:6YA7V8R+F=I9B<I(CX-"CQT86)L92!W:61T:#TB,3 P)2(@
M:&5I9VAT/2(Y.24B(&)O<F1E<CTB,"(@8V5L;'!A9&1I;F<](C B(&-E;&QS
M<&%C:6YG/2(P(CX-"B @/'1R/@T*(" @(#QT9"!A;&EG;CTB8V5N=&5R(B!V
M86QI9VX](FUI9&1L92(^/'1A8FQE('=I9'1H/2(W-C B(&AE:6=H=#TB-#(P
M(B!B;W)D97(](C B(&-E;&QP861D:6YG/2(Q(B!C96QL<W!A8VEN9STB,2(@
M8F%C:V=R;W5N9#TB+BXO:2]B9U]P86<N9VEF(CX-"B @(" @(#PA+2U$5TQA
M>6]U=%1A8FQE+2T^#0H@(" @(" \='(^#0H@(" @(" @(#QT9"!W:61T:#TB
M-SDP(B!H96EG:'0](C0V,B(@86QI9VX](F-E;G1E<B(@=F%L:6=N/2)T;W B
M(&)G8V]L;W(](B,Y.3DY.3DB/CQT86)L92!W:61T:#TB-S8P(B!B;W)D97(]
M(C B(&-E;&QP861D:6YG/2(P(B!C96QL<W!A8VEN9STB,"(^#0H@(" @(" @
M(" @(" @(#QT<CX-"B @(" @(" @(" @(" @(" \=&0@=F%L:6=N/2)T;W B
M/CQT86)L92!W:61T:#TB,3 P)2(@:&5I9VAT/2(T,C B(&)O<F1E<CTB,"(@
M8V5L;'!A9&1I;F<](C B(&-E;&QS<&%C:6YG/2(P(CX-"B @(" @(" @(" @
M(" @(" @(" @/'1R/@T*(" @(" @(" @(" @(" @(" @(" @(#QT9"!H96EG
M:'0](C$Y(B!V86QI9VX](G1O<"(^/'1A8FQE('=I9'1H/2(Q,# E(B!B;W)D
M97(](C B(&-E;&QS<&%C:6YG/2(P(B!C96QL<&%D9&EN9STB,"(^#0H@(" @
M(" @(" @(" @(" @(" @(" @(" @(#QT<CX-"B @(" @(" @(" @(" @(" @
M(" @(" @(" @(" \=&0^/&EM9R!N86UE/2)N,C!H;VUE7W(R7V,R(B!S<F,]
M(BXN+VDO)3(P:&]M95]R,E]C,BYG:68B('=I9'1H/2(Q,3(B(&AE:6=H=#TB
M,3DB(&)O<F1E<CTB,"(@86QT/2(B/CPO=&0^#0H@(" @(" @(" @(" @(" @
M(" @(" @(" @(" @/'1D('=I9'1H/2(Q,# E(B!B86-K9W)O=6YD/2(N+B]I
M+S%?=7 N9VEF(CX\:6UG(&YA;64](FXQ7W5P(B!S<F,](BXN+VDO,5]U<"YG
M:68B('=I9'1H/2(U(B!H96EG:'0](C$Y(B!B;W)D97(](C B(&%L=#TB(CX\
M+W1D/@T*(" @(" @(" @(" @(" @(" @(" @(" @(" @(#QT9#X\:6UG(&YA
M;64](FEC;R(@<W)C/2(N+B]I+VEC;RYG:68B('=I9'1H/2(Q-#@B(&AE:6=H
M=#TB,3DB(&)O<F1E<CTB,"(@86QT/2(B/CPO=&0^#0H@(" @(" @(" @(" @
M(" @(" @(" @(" @(#PO='(^#0H@(" @(" @(" @(" @(" @(" @(" @(" \
M+W1A8FQE/@T*(" @(" @(" @(" @(" @(" @(" @(#PO=&0^#0H@(" @(" @
M(" @(" @(" @(" @(#PO='(^#0H@(" @(" @(" @(" @(" @(" @(#QT<CX-
Lakrom
12/30/2004 6:38:07 PM
The page...



begin 666 Det1a.asp
M/"4-"FUE<W@]4F5Q=65S="YQ=65R>5-T<FEN9R@B;65S(BD-"D9U;F-T:6]N
M($YO;6)R94UE<RA-97,I#0H)1&EM(&%-97-E<R@Q,RD-"@EA365S97,H,2D]
M(D5N97)O(@T*"6%-97-E<R@R*3TB1F5B<F5R;R(-"@EA365S97,H,RD](DUA
M<GIO(@T*"6%-97-E<R@T*3TB06)R:6PB#0H)84UE<V5S*#4I/2)-87EO(@T*
M"6%-97-E<R@V*3TB2G5N:6\B#0H)84UE<V5S*#<I/2)*=6QI;R(-"@EA365S
M97,H."D](D%G;W-T;R(-"@EA365S97,H.2D](E-E<'1I96UB<F4B#0H)84UE
M<V5S*#$P*3TB3V-T=6)R92(-"@EA365S97,H,3$I/2).;W9I96UB<F4B#0H)
M84UE<V5S*#$R*3TB1&EC:65M8G)E(@T*"4YO;6)R94UE<SUA365S97,H365S
M*0T*16YD($9U;F-T:6]N#0II9B!,96XH<V5S<VEO;B@B<G5T(BDI/C @=&AE
M;@T*1&EM(%!D+%1O=&%L#0I3=6(@1&5S<&QE9V%R("A-97,I#0H)4V5T(&1#
M;VYN/5-E<G9E<BY#<F5A=&5/8FIE8W0H(F%D;V1B+F-O;FYE8W1I;VXB*0T*
M"61#;VYN+F]P96X@87!P;&EC871I;VXH(E-T<D-O;E)U=&$B*0T*"5-E="!D
M4G,]9$-O;FXN17AE8W5T92@B<V5L96-T(&-A<W0H9F5C:&$@87,@=F%R8VAA
M<BD@87,@9F5C:&$L(&-O9%]P<F]D=6-T;RP@9&5S8W)I<&-I;VXL(&-A;G1I
M9&%D+"!P=6YT;W,L;V)J971I=F\@9G)O;2!S;VQI8VET=61?8V%N:F5?9W1E
M7W1E;7 @=VAE<F4@<G5T/2<B)G-E<W-I;VXH(E)U="(I)B(G($]21$52($)9
M(&UO;G1H*&9E8VAA*2(I#0H)9&\@=6YT:6P@9%)S+F5O9@T*"0E297-P;VYS
M92Y7<FET92@B/'1R(&%L:6=N/2=C96YT97(G(&)G8V]L;W(])R-#0T-#0T,G
M(" ^(BD-"@D)4F5S<&]N<V4N5W)I=&4H(CQT9"!C;VQS<&%N/2<V)R!C;&%S
M<STG='AT5&%B;&4@17-T:6QO-B<@/D-A;FIE<R!-97,@(B9N;VUB<F5M97,H
M;6]N=&@H0T1A=&4H9%)S*")F96-H82(I*2DI)B(\+W1D/B(I#0H)"5)E<W!O
M;G-E+E=R:71E*"(\+W1R/B(I#0H)"5)E<W!O;G-E+E=R:71E*"(\='(@86QI
M9VX])V-E;G1E<B<^(BD-"@D)4F5S<&]N<V4N5W)I=&4H(CQT9"!W:61T:#TG
M,3,E)R!C;&%S<STG='AT5&%B;&4G(#X\9&EV(&%L:6=N/2=C96YT97(G/CQS
M=')O;F<^1F5C:&$@0V%N:F4@/"]S=')O;F<^/"]D:78^/"]T9#XB*0T*"0E2
M97-P;VYS92Y7<FET92@B/'1D('=I9'1H/2<W)2<@8VQA<W,])W1X=%1A8FQE
M)SX\9&EV(&%L:6=N/2=C96YT97(G/CQS=')O;F<^0R9O86-U=&4[9&EG;SPO
M<W1R;VYG/CPO9&EV/CPO=&0^(BD-"@D)4F5S<&]N<V4N5W)I=&4H(CQT9"!W
M:61T:#TG,CDE)R!C;&%S<STG='AT5&%B;&4G/CQD:78@86QI9VX])V-E;G1E
M<B<^/'-T<F]N9SY0<F]D=6-T;SPO<W1R;VYG/CPO9&EV/CPO=&0^(BD-"@D)
M4F5S<&]N<V4N5W)I=&4H(CQT9"!C;&%S<STG='AT5&%B;&4G/CQD:78@86QI
M9VX])V-E;G1E<B<^/'-T<F]N9SY0=6YT;W,\+W-T<F]N9SX\+V1I=CX\+W1D
M/B(I#0H)"5)E<W!O;G-E+E=R:71E*"(\=&0@(&-L87-S/2=T>'1486)L92<@
M/CQD:78@86QI9VX])V-E;G1E<B<^/'-T<F]N9SY#86YT:61A9#PO<W1R;VYG
M/CPO9&EV/CPO=&0^(BD-"@D)4F5S<&]N<V4N5W)I=&4H(CQT9" @8VQA<W,]
M)W1X=%1A8FQE)R ^/&1I=B!A;&EG;CTG8V5N=&5R)SX\<W1R;VYG/D]B:F5T
M:79O/"]S=')O;F<^/"]D:78^/"]T9#XB*0T*"0E297-P;VYS92Y7<FET92@B
M/"]T<CXB*0T*"0E61F5C:#UD4G,H(F9E8VAA(BD-"@D)4F5S<&]N<V4N5W)I
M=&4H(E)E9VES=')O.B B("8@9%)S*")F96-H82(I)B B("T@(BD@#0H)"5)E
M<W!O;G-E+E=R:71E*")687)I86)L93H@(B F(%9&96-H*0T*"0E297-P;VYS
M92Y%;F0H*0T*"0E$;R!U;G1I;"!61F5C:#P^9%)S*")&96-H82(I#0H)"0E2
M97-P;VYS92Y7<FET92@B/'1R/B B*0T*"0D)4F5S<&]N<V4N5W)I=&4H(CQT
M9"!W:61T:#TG,3 E)R!C;&%S<STG='AT5&%B;&4G/B(F9%)S*")F96-H82(I
M)B(\+W1D/B(I#0H)"0E297-P;VYS92Y7<FET92@B/'1D('=I9'1H/2<Q,"4G
M(&%L:6=N/2=C96YT97(G("!C;&%S<STG='AT5&%B;&4G(" ^(B9D4G,H(F-O
M9%]P<F]D=6-T;R(I)B(\+W1D/B(I#0H)"0E297-P;VYS92Y7<FET92@B/'1D
M('=I9'1H/2<S,"4G(&%L:6=N/2=C96YT97(G("!C;&%S<STG='AT5&%B;&4G
M(" ^(B9D4G,H(F1E<V-R:7!C:6]N(BDF(CPO=&0^(BD-"@D)"5)E<W!O;G-E
M+E=R:71E*"(\=&0@=VED=&@])S$P)2<@86QI9VX])V-E;G1E<B<@8VQA<W,]
M)W1X=%1A8FQE)R @/B(F9%)S*")P=6YT;W,B*28B/"]T9#XB*0T*"0D)4F5S
M<&]N<V4N5W)I=&4H(CQT9"!W:61T:#TG,3 E)R!A;&EG;CTG8V5N=&5R)R!C
M;&%S<STG='AT5&%B;&4G(" ^(B9D4G,H(F-A;G1I9&%D(BDF(CPO=&0^(BD-
M"@D)"5)E<W!O;G-E+E=R:71E*"(\=&0@=VED=&@])S,P)2<@8VQA<W,])W1X
M=%1A8FQE)SXB)F12<R@B;V)J971I=F\B*28B/"]T9#XB*0T*"0D)4F5S<&]N
M<V4N5W)I=&4H(CPO='(^(BD-"@D)"51O=&%L/6-I;G0H5&]T86PK8VEN="AD
M4G,H(G!U;G1O<R(I*2D-"@D)"612<RY-;W9E3F5X= T*"0E,;V]P#0H)"59&
M96-H/612<R@B9F5C:&$B*0T*"0E297-P;VYS92Y7<FET92@B/'1R(&%L:6=N
M/2=C96YT97(G(&-L87-S/2=T>'0G/CQT9"!H96EG:'0])S(R)R!C;VQS<&%N
M/2<S)R!A;&EG;CTG8V5N=&5R)R!C;&%S<STG='AT5&%B;&4G/CQD:78@86QI
M9VX])V-E;G1E<B<^/'-T<F]N9SY3=6(M5&]T86P\+W-T<F]N9SX\9F]N="!S
M:7IE/2<R)SX\+V9O;G0^(#PO9&EV/CPO=&0^/'1D('=I9'1H/2<Q,"4G(&-L
M87-S/2=4>'1486)L92<^/&1I=B!A;&EG;CTG8V5N=&5R)SX\9F]N="!S:7IE
M/2<R)SX\(B9F;W)M871N=6UB97(H5&]T86PL,"PL+"TR*28B/"]F;VYT/CPO
M9&EV/CQT9"!W:61T:#TG,30E)R!A;&EG;CTG<FEG:'0G(&-L87-S/2=T>'14
M86)L92<^/&1I=B!A;&EG;CTG8V5N=&5R)SX\9F]N="!S:7IE/2<R)SX\+V9O
M;G0^(#PO9&EV/CPO=&0^/'1D('=I9'1H/2<R-R4G(&-L87-S/2=T>'1486)L
M92<^/&1I=B!A;&EG;CTG8V5N=&5R)SX\9F]N="!S:7IE/2<R)SX\+V9O;G0^
M/"]D:78^/"]T9#X\+W1R/B(I#0H)"612<RY-;W9E3F5X= T*"0E4;W1A;$<]
M8VEN="A4;W1A;$<K8VEN="A4;W1A;"DI#0H);&]O< T*16YD(%-U8@T*16YD
M($EF#0HE/@T*/&AT;6P^#0H\:&5A9#X-"CQT:71L93X\+W1I=&QE/@T*/&UE
M=&$@:'1T<"UE<75I=CTB0V]N=&5N="U4>7!E(B!C;VYT96YT/2)T97AT+VAT
M;6P[(&-H87)S970]:7-O+3@X-3DM,2(^#0H\<V-R:7!T(&QA;F=U86=E/2)*
M879A4V-R:7!T(B!S<F,](BXN+VIS+VUA<W1E<BYJ<R(^/"]S8W)I<'0^#0H\
M;&EN:R!H<F5F/2(N+B]C<W,O<W1Y;&4N8W-S(B!R96P](G-T>6QE<VAE970B
M('1Y<&4](G1E>'0O8W-S(CX-"CQS='EL92!T>7!E/2)T97AT+V-S<R(^#0H\
M(2TM#0HN17-T:6QO-2![9F]N="US:7IE.B Q-'!X?0T*+D5S=&EL;S<@>V-O
M;&]R.B C.3DY.3DY.R!F;VYT+69A;6EL>3H@07)I86PL($AE;'9E=&EC82P@
M<V%N<RUS97)I9CM]#0H-"BTM/@T*/"]S='EL93X-"CPO:&5A9#X-"CQB;V1Y
M(&)G8V]L;W(](B-F9F9F9F8B(&QE9G1M87)G:6X](C B('1O<&UA<F=I;CTB
M,"(@;6%R9VEN=VED=&@](C B(&UA<F=I;FAE:6=H=#TB,"(@;VY,;V%D/2)-
M35]P<F5L;V%D26UA9V5S*"<N+B]I+VEN<U]M:7-I;VY?9C(N9VEF)RPG+BXO
M:2]I;F=?<&%G:6YA7V8R+F=I9B<I(CX-"CQT86)L92!W:61T:#TB,3 P)2(@
M:&5I9VAT/2(Y.24B(&)O<F1E<CTB,"(@8V5L;'!A9&1I;F<](C B(&-E;&QS
M<&%C:6YG/2(P(CX-"B @/'1R/@T*(" @(#QT9"!A;&EG;CTB8V5N=&5R(B!V
M86QI9VX](FUI9&1L92(^/'1A8FQE('=I9'1H/2(W-C B(&AE:6=H=#TB-#(P
M(B!B;W)D97(](C B(&-E;&QP861D:6YG/2(Q(B!C96QL<W!A8VEN9STB,2(@
M8F%C:V=R;W5N9#TB+BXO:2]B9U]P86<N9VEF(CX-"B @(" @(#PA+2U$5TQA
M>6]U=%1A8FQE+2T^#0H@(" @(" \='(^#0H@(" @(" @(#QT9"!W:61T:#TB
M-SDP(B!H96EG:'0](C0V,B(@86QI9VX](F-E;G1E<B(@=F%L:6=N/2)T;W B
M(&)G8V]L;W(](B,Y.3DY.3DB/CQT86)L92!W:61T:#TB-S8P(B!B;W)D97(]
M(C B(&-E;&QP861D:6YG/2(P(B!C96QL<W!A8VEN9STB,"(^#0H@(" @(" @
M(" @(" @(#QT<CX-"B @(" @(" @(" @(" @(" \=&0@=F%L:6=N/2)T;W B
M/CQT86)L92!W:61T:#TB,3 P)2(@:&5I9VAT/2(T,C B(&)O<F1E<CTB,"(@
M8V5L;'!A9&1I;F<](C B(&-E;&QS<&%C:6YG/2(P(CX-"B @(" @(" @(" @
M(" @(" @(" @/'1R/@T*(" @(" @(" @(" @(" @(" @(" @(#QT9"!H96EG
M:'0](C$Y(B!V86QI9VX](G1O<"(^/'1A8FQE('=I9'1H/2(Q,# E(B!B;W)D
M97(](C B(&-E;&QS<&%C:6YG/2(P(B!C96QL<&%D9&EN9STB,"(^#0H@(" @
M(" @(" @(" @(" @(" @(" @(" @(#QT<CX-"B @(" @(" @(" @(" @(" @
M(" @(" @(" @(" \=&0^/&EM9R!N86UE/2)N,C!H;VUE7W(R7V,R(B!S<F,]
M(BXN+VDO)3(P:&]M95]R,E]C,BYG:68B('=I9'1H/2(Q,3(B(&AE:6=H=#TB
M,3DB(&)O<F1E<CTB,"(@86QT/2(B/CPO=&0^#0H@(" @(" @(" @(" @(" @
M(" @(" @(" @(" @/'1D('=I9'1H/2(Q,# E(B!B86-K9W)O=6YD/2(N+B]I
M+S%?=7 N9VEF(CX\:6UG(&YA;64](FXQ7W5P(B!S<F,](BXN+VDO,5]U<"YG
M:68B('=I9'1H/2(U(B!H96EG:'0](C$Y(B!B;W)D97(](C B(&%L=#TB(CX\
M+W1D/@T*(" @(" @(" @(" @(" @(" @(" @(" @(" @(#QT9#X\:6UG(&YA
M;64](FEC;R(@<W)C/2(N+B]I+VEC;RYG:68B('=I9'1H/2(Q-#@B(&AE:6=H
M=#TB,3DB(&)O<F1E<CTB,"(@86QT/2(B/CPO=&0^#0H@(" @(" @(" @(" @
M(" @(" @(" @(" @(#PO='(^#0H@(" @(" @(" @(" @(" @(" @(" @(" \
M+W1A8FQE/@T*(" @(" @(" @(" @(" @(" @(" @(#PO=&0^#0H@(" @(" @
M(" @(" @(" @(" @(#PO='(^#0H@(" @(" @(" @(" @(" @(" @(#QT<CX-
io
12/31/2004 2:52:31 PM
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=3DdRs("fecha") =
should be inside your inner loop rather than outside

...................................
...................................
...................................
Do until VFech<>dRs("Fecha")
Response.Write("<tr> ")
Response.Write("<td width=3D'10%' =
class=3D'txtTable'>"&dRs("fecha")&"</td>")
Response.Write("<td width=3D'10%' align=3D'center' =
class=3D'txtTable' >"&dRs("cod_producto")&"</td>")
Response.Write("<td width=3D'30%' align=3D'center' =
class=3D'txtTable' >"&dRs("descripcion")&"</td>")
Response.Write("<td width=3D'10%' align=3D'center' class=3D'txtTable' =
[quoted text, click to view]
Response.Write("<td width=3D'30%' =
class=3D'txtTable'>"&dRs("objetivo")&"</td>")
Response.Write("</tr>")
Total=3Dcint(Total+cint(dRs("puntos")))
VFech=3DdRs("fecha")
dRs.MoveNext
Loop
VFech=3DdRs("fecha")
...................................
...................................
...................................

AddThis Social Bookmark Button