all groups > inetserver asp general > december 2004 >
[quoted text, click to view] Lakrom wrote: > 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)
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.
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] Lakrom wrote: > 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. >> Set dRs=dConn.Execute("select * from solicitud_canje_gte_temp where >> rut='"&session("Rut")&"' ORDER BY month(fecha)") >> do until dRs.eof
I did miss this line. OK, your recordset contains records. [quoted text, click to view] >> * Do until month(dRs("Fecha"))<>month(VFech) (Line of error) >> (0x80020009)
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.
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ó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] >"&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
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] > 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ó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 > >
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] > 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. > > Lakrom wrote: > > 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. > > >> Set dRs=dConn.Execute("select * from solicitud_canje_gte_temp where > >> rut='"&session("Rut")&"' ORDER BY month(fecha)") > >> do until dRs.eof > > I did miss this line. OK, your recordset contains records. > > >> * Do until month(dRs("Fecha"))<>month(VFech) (Line of error) > >> (0x80020009) > > 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. > >
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] > 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. > > Lakrom wrote: > > 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. > > >> Set dRs=dConn.Execute("select * from solicitud_canje_gte_temp where > >> rut='"&session("Rut")&"' ORDER BY month(fecha)") > >> do until dRs.eof > > I did miss this line. OK, your recordset contains records. > > >> * Do until month(dRs("Fecha"))<>month(VFech) (Line of error) > >> (0x80020009) > > 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. > >
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] > 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. > > Lakrom wrote: > > 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. > > >> Set dRs=dConn.Execute("select * from solicitud_canje_gte_temp where > >> rut='"&session("Rut")&"' ORDER BY month(fecha)") > >> do until dRs.eof > > I did miss this line. OK, your recordset contains records. > > >> * Do until month(dRs("Fecha"))<>month(VFech) (Line of error) > >> (0x80020009) > > 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. > >
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] Lakrom wrote: > 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... >> 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. >> >> Lakrom wrote: >>> 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. >> >>>> Set dRs=dConn.Execute("select * from solicitud_canje_gte_temp >>>> where rut='"&session("Rut")&"' ORDER BY month(fecha)") >>>> do until dRs.eof >> >> I did miss this line. OK, your recordset contains records. >> >>>> * Do until month(dRs("Fecha"))<>month(VFech) (Line of error) >>>> (0x80020009) >> >> 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.
-- 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]" <reb01501@NOyahoo.SPAMcom> escribió en el mensaje news:%238rFO7p7EHA.1024@TK2MSFTNGP10.phx.gbl... [quoted text, click to view] > What about month(dRs("Fecha"))? > Are there any records where dRs("Fecha") is Null or empty?
No any one.
"Bob Barrows [MVP]" <reb01501@NOyahoo.SPAMcom> escribió en el mensaje news:%238rFO7p7EHA.1024@TK2MSFTNGP10.phx.gbl... [quoted text, click to view] > What about month(dRs("Fecha"))? > Are there any records where dRs("Fecha") is Null or empty?
No any one.
[quoted text, click to view] Lakrom wrote: > "Bob Barrows [MVP]" <reb01501@NOyahoo.SPAMcom> escribió en el mensaje > news:%238rFO7p7EHA.1024@TK2MSFTNGP10.phx.gbl... >> What about month(dRs("Fecha"))? >> 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.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"
[quoted text, click to view] 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"
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-
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-
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] >"&dRs("puntos")&"</td>") Response.Write("<td width=3D'10%' align=3D'center' class=3D'txtTable' = >"&dRs("cantidad")&"</td>")
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") ................................... ................................... ...................................
Don't see what you're looking for? Try a search.
|
|
|