473,735 Members | 6,432 Online
Bytes | Software Development & Data Engineering Community
+ Post

Home Posts Topics Members FAQ

Microsoft VBScript runtime error '800a01fb' An exception occurred: 'MoveNext'

1 New Member
Hello,

One of my websites just started sending a new rare error. The site has been working for almost 2 years without trouble, but today morning started giving away this error in all my views.

Microsoft VBScript runtime error '800a01fb'
An exception occurred: 'MoveNext'

/test.asp, line 544

Here is the code:

Expand|Select|Wrap|Line Numbers
  1. <%@LANGUAGE="VBSCRIPT"%>
  2. <!--#include file="Connections/donramis.asp" -->
  3. <!--#include file="A_secured.asp" -->
  4. <%
  5. Dim Recordset1
  6. Dim Recordset1_numRows
  7.  
  8. Set Recordset1 = Server.CreateObject("ADODB.Recordset")
  9. Recordset1.ActiveConnection = MM_donramis_STRING
  10. Recordset1.Source = "SELECT * FROM donramis.csvcxc"
  11. Recordset1.CursorType = 0
  12. Recordset1.CursorLocation = 2
  13. Recordset1.LockType = 1
  14. Recordset1.Open()
  15.  
  16. Recordset1_numRows = 0
  17. %>
  18. <%
  19. Dim Repeat1__numRows
  20. Dim Repeat1__index
  21.  
  22. Repeat1__numRows = 30
  23. Repeat1__index = 0
  24. Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
  25. %>
  26. <%
  27. '  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables
  28.  
  29. Dim Recordset1_total
  30. Dim Recordset1_first
  31. Dim Recordset1_last
  32.  
  33. ' set the record count
  34. Recordset1_total = Recordset1.RecordCount
  35.  
  36. ' set the number of rows displayed on this page
  37. If (Recordset1_numRows < 0) Then
  38.   Recordset1_numRows = Recordset1_total
  39. Elseif (Recordset1_numRows = 0) Then
  40.   Recordset1_numRows = 1
  41. End If
  42.  
  43. ' set the first and last displayed record
  44. Recordset1_first = 1
  45. Recordset1_last  = Recordset1_first + Recordset1_numRows - 1
  46.  
  47. ' if we have the correct record count, check the other stats
  48. If (Recordset1_total <> -1) Then
  49.   If (Recordset1_first > Recordset1_total) Then
  50.     Recordset1_first = Recordset1_total
  51.   End If
  52.   If (Recordset1_last > Recordset1_total) Then
  53.     Recordset1_last = Recordset1_total
  54.   End If
  55.   If (Recordset1_numRows > Recordset1_total) Then
  56.     Recordset1_numRows = Recordset1_total
  57.   End If
  58. End If
  59. %>
  60. <%
  61. Dim MM_paramName 
  62. %>
  63. <%
  64. ' *** Move To Record and Go To Record: declare variables
  65.  
  66. Dim MM_rs
  67. Dim MM_rsCount
  68. Dim MM_size
  69. Dim MM_uniqueCol
  70. Dim MM_offset
  71. Dim MM_atTotal
  72. Dim MM_paramIsDefined
  73.  
  74. Dim MM_param
  75. Dim MM_index
  76.  
  77. Set MM_rs    = Recordset1
  78. MM_rsCount   = Recordset1_total
  79. MM_size      = Recordset1_numRows
  80. MM_uniqueCol = ""
  81. MM_paramName = ""
  82. MM_offset = 0
  83. MM_atTotal = false
  84. MM_paramIsDefined = false
  85. If (MM_paramName <> "") Then
  86.   MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "")
  87. End If
  88. %>
  89. <%
  90. ' *** Move To Record: handle 'index' or 'offset' parameter
  91.  
  92. if (Not MM_paramIsDefined And MM_rsCount <> 0) then
  93.  
  94.   ' use index parameter if defined, otherwise use offset parameter
  95.   MM_param = Request.QueryString("index")
  96.   If (MM_param = "") Then
  97.     MM_param = Request.QueryString("offset")
  98.   End If
  99.   If (MM_param <> "") Then
  100.     MM_offset = Int(MM_param)
  101.   End If
  102.  
  103.   ' if we have a record count, check if we are past the end of the recordset
  104.   If (MM_rsCount <> -1) Then
  105.     If (MM_offset >= MM_rsCount Or MM_offset = -1) Then  ' past end or move last
  106.       If ((MM_rsCount Mod MM_size) > 0) Then         ' last page not a full repeat region
  107.         MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
  108.       Else
  109.         MM_offset = MM_rsCount - MM_size
  110.       End If
  111.     End If
  112.   End If
  113.  
  114.   ' move the cursor to the selected record
  115.   MM_index = 0
  116.   While ((Not MM_rs.EOF) And (MM_index < MM_offset Or MM_offset = -1))
  117.     MM_rs.MoveNext
  118.     MM_index = MM_index + 1
  119.   Wend
  120.   If (MM_rs.EOF) Then 
  121.     MM_offset = MM_index  ' set MM_offset to the last possible record
  122.   End If
  123.  
  124. End If
  125. %>
  126. <%
  127. ' *** Move To Record: if we dont know the record count, check the display range
  128.  
  129. If (MM_rsCount = -1) Then
  130.  
  131.   ' walk to the end of the display range for this page
  132.   MM_index = MM_offset
  133.   While (Not MM_rs.EOF And (MM_size < 0 Or MM_index < MM_offset + MM_size))
  134.     MM_rs.MoveNext
  135.     MM_index = MM_index + 1
  136.   Wend
  137.  
  138.   ' if we walked off the end of the recordset, set MM_rsCount and MM_size
  139.   If (MM_rs.EOF) Then
  140.     MM_rsCount = MM_index
  141.     If (MM_size < 0 Or MM_size > MM_rsCount) Then
  142.       MM_size = MM_rsCount
  143.     End If
  144.   End If
  145.  
  146.   ' if we walked off the end, set the offset based on page size
  147.   If (MM_rs.EOF And Not MM_paramIsDefined) Then
  148.     If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then
  149.       If ((MM_rsCount Mod MM_size) > 0) Then
  150.         MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
  151.       Else
  152.         MM_offset = MM_rsCount - MM_size
  153.       End If
  154.     End If
  155.   End If
  156.  
  157.   ' reset the cursor to the beginning
  158.   If (MM_rs.CursorType > 0) Then
  159.     MM_rs.MoveFirst
  160.   Else
  161.     MM_rs.Requery
  162.   End If
  163.  
  164.   ' move the cursor to the selected record
  165.   MM_index = 0
  166.   While (Not MM_rs.EOF And MM_index < MM_offset)
  167.     MM_rs.MoveNext
  168.     MM_index = MM_index + 1
  169.   Wend
  170. End If
  171. %>
  172. <%
  173. ' *** Move To Record: update recordset stats
  174.  
  175. ' set the first and last displayed record
  176. Recordset1_first = MM_offset + 1
  177. Recordset1_last  = MM_offset + MM_size
  178.  
  179. If (MM_rsCount <> -1) Then
  180.   If (Recordset1_first > MM_rsCount) Then
  181.     Recordset1_first = MM_rsCount
  182.   End If
  183.   If (Recordset1_last > MM_rsCount) Then
  184.     Recordset1_last = MM_rsCount
  185.   End If
  186. End If
  187.  
  188. ' set the boolean used by hide region to check if we are on the last record
  189. MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount)
  190. %>
  191. <%
  192. ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters
  193.  
  194. Dim MM_keepNone
  195. Dim MM_keepURL
  196. Dim MM_keepForm
  197. Dim MM_keepBoth
  198.  
  199. Dim MM_removeList
  200. Dim MM_item
  201. Dim MM_nextItem
  202.  
  203. ' create the list of parameters which should not be maintained
  204. MM_removeList = "&index="
  205. If (MM_paramName <> "") Then
  206.   MM_removeList = MM_removeList & "&" & MM_paramName & "="
  207. End If
  208.  
  209. MM_keepURL=""
  210. MM_keepForm=""
  211. MM_keepBoth=""
  212. MM_keepNone=""
  213.  
  214. ' add the URL parameters to the MM_keepURL string
  215. For Each MM_item In Request.QueryString
  216.   MM_nextItem = "&" & MM_item & "="
  217.   If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
  218.     MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))
  219.   End If
  220. Next
  221.  
  222. ' add the Form variables to the MM_keepForm string
  223. For Each MM_item In Request.Form
  224.   MM_nextItem = "&" & MM_item & "="
  225.   If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
  226.     MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))
  227.   End If
  228. Next
  229.  
  230. ' create the Form + URL string and remove the intial '&' from each of the strings
  231. MM_keepBoth = MM_keepURL & MM_keepForm
  232. If (MM_keepBoth <> "") Then 
  233.   MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
  234. End If
  235. If (MM_keepURL <> "")  Then
  236.   MM_keepURL  = Right(MM_keepURL, Len(MM_keepURL) - 1)
  237. End If
  238. If (MM_keepForm <> "") Then
  239.   MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
  240. End If
  241.  
  242. ' a utility function used for adding additional parameters to these strings
  243. Function MM_joinChar(firstItem)
  244.   If (firstItem <> "") Then
  245.     MM_joinChar = "&"
  246.   Else
  247.     MM_joinChar = ""
  248.   End If
  249. End Function
  250. %>
  251. <%
  252. ' *** Move To Record: set the strings for the first, last, next, and previous links
  253.  
  254. Dim MM_keepMove
  255. Dim MM_moveParam
  256. Dim MM_moveFirst
  257. Dim MM_moveLast
  258. Dim MM_moveNext
  259. Dim MM_movePrev
  260.  
  261. Dim MM_urlStr
  262. Dim MM_paramList
  263. Dim MM_paramIndex
  264. Dim MM_nextParam
  265.  
  266. MM_keepMove = MM_keepBoth
  267. MM_moveParam = "index"
  268.  
  269. ' if the page has a repeated region, remove 'offset' from the maintained parameters
  270. If (MM_size > 1) Then
  271.   MM_moveParam = "offset"
  272.   If (MM_keepMove <> "") Then
  273.     MM_paramList = Split(MM_keepMove, "&")
  274.     MM_keepMove = ""
  275.     For MM_paramIndex = 0 To UBound(MM_paramList)
  276.       MM_nextParam = Left(MM_paramList(MM_paramIndex), InStr(MM_paramList(MM_paramIndex),"=") - 1)
  277.       If (StrComp(MM_nextParam,MM_moveParam,1) <> 0) Then
  278.         MM_keepMove = MM_keepMove & "&" & MM_paramList(MM_paramIndex)
  279.       End If
  280.     Next
  281.     If (MM_keepMove <> "") Then
  282.       MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1)
  283.     End If
  284.   End If
  285. End If
  286.  
  287. ' set the strings for the move to links
  288. If (MM_keepMove <> "") Then 
  289.   MM_keepMove = Server.HTMLEncode(MM_keepMove) & "&"
  290. End If
  291.  
  292. MM_urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "="
  293.  
  294. MM_moveFirst = MM_urlStr & "0"
  295. MM_moveLast  = MM_urlStr & "-1"
  296. MM_moveNext  = MM_urlStr & CStr(MM_offset + MM_size)
  297. If (MM_offset - MM_size < 0) Then
  298.   MM_movePrev = MM_urlStr & "0"
  299. Else
  300.   MM_movePrev = MM_urlStr & CStr(MM_offset - MM_size)
  301. End If
  302. %>
  303. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd">
  304.  
  305. <HTML><!-- InstanceBegin template="/Templates/look.dwt" codeOutsideHTMLIsLocked="false" --><HEAD><TITLE>Distribuidora Don Ramis</TITLE>
  306. <META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
  307. <META content="Don Ramis" name=author>
  308. <META content="Distribuidora Don Ramis" name=title>
  309. <META 
  310. content="Empresa dedicada a la distribución de resinas plásticas (polietileno y polipropileno) certificada con ISO 9001-2000" 
  311. name=description>
  312. <META 
  313. content="polietileno, polipropileno, resinas, pemex, formosa, padmex, px, exxon, alathon, poliestireno, distribucion, precios, iso9001-2000" 
  314. name=keywords>
  315. <META http-equiv=Window-target content=_top>
  316. <META content=nofollow name=robots>
  317. <META content="15 days" name=revisit-after>
  318. <LINK href="imagenes/estilos_don_ramis.css" type=text/css rel=stylesheet>
  319. <STYLE type=text/css>.style4 {
  320.     FONT-SIZE: 12px; COLOR: #ff6600
  321. }
  322. .style5 {
  323.     COLOR: #999999
  324. }
  325. .style6 {
  326.     FONT-SIZE: 10px
  327. }
  328. .style7 {
  329.     FONT-SIZE: 10px; COLOR: #ffffff
  330. }
  331. </STYLE>
  332.  
  333. <STYLE type=text/css>.style1 {
  334.     FONT-WEIGHT: bold; FONT-SIZE: 12px; COLOR: #ffffff
  335. }
  336. .style9 {
  337.     FONT-WEIGHT: bold; FONT-SIZE: 14px
  338. }
  339. .style38 {
  340.     FONT-WEIGHT: bold; FONT-SIZE: 11pt; COLOR: #ffffff; FONT-FAMILY: Arial, Helvetica, sans-serif; TEXT-ALIGN: center
  341. }
  342. </STYLE>
  343. <!-- InstanceBeginEditable name="Head" -->
  344. <style type="text/css">
  345. <!--
  346. .style39 {
  347.     color: #FFFFFF;
  348.     font-weight: bold;
  349. }
  350. -->
  351. </style>
  352. <!-- InstanceEndEditable -->
  353. </HEAD>
  354. <BODY>
  355. <TABLE id=general cellSpacing=0 cellPadding=0 width=780 align=center border=0>
  356.   <TBODY>
  357.     <TR>
  358.       <TD><TABLE cellSpacing=0 cellPadding=0 width=780 border=0>
  359.           <TBODY>
  360.             <TR>
  361.               <TD><IMG height=1 alt="" src="" width=181 border=0 
  362.           name=undefined_2></TD>
  363.               <TD><IMG height=1 alt="" src="" width=357 border=0 
  364.           name=undefined_2></TD>
  365.               <TD><IMG height=1 alt="" src="" width=29 border=0 
  366.           name=undefined_2></TD>
  367.               <TD><IMG height=1 alt="" src="" width=213 border=0 
  368.           name=undefined_2></TD>
  369.               <TD><IMG height=1 alt="" src="" width=1 border=0 
  370.         name=undefined_2></TD>
  371.             </TR>
  372.             <TR>
  373.               <TD rowSpan=2><IMG height=59 alt="" 
  374.             src="imagenes/don_ramis_titulo_r1_c1.jpg" 
  375.             width=181 border=0 name=don_ramis_titulo_r1_c1></TD>
  376.               <TD colSpan=2><IMG height=27 alt="" 
  377.             src="imagenes/don_ramis_titulo_r1_c2.jpg" 
  378.             width=386 border=0 name=don_ramis_titulo_r1_c2></TD>
  379.               <TD><DIV align=right><A href="http://www.donramis.com.mx/index.php">Home </A>I <A 
  380.             href="http://www.donramis.com.mx/web/mapa_de_sitio.htm">Mapa de sitio </A> I <a href="logoff.asp">Salir</a> </DIV></TD>
  381.               <TD><IMG height=27 alt="" src="" width=1 border=0 
  382.           name=undefined_2></TD>
  383.             </TR>
  384.             <TR>
  385.               <TD><IMG height=32 alt="" 
  386.             src="imagenes/don_ramis_titulo_r2_c2.jpg" 
  387.             width=357 border=0 name=don_ramis_titulo_r2_c2></TD>
  388.               <TD colSpan=2 rowSpan=2><IMG height=54 alt="" 
  389.             src="imagenes/don_ramis_titulo_r2_c3.jpg" 
  390.             width=242 border=0 name=don_ramis_titulo_r2_c3></TD>
  391.               <TD><IMG height=32 alt="" src="" width=1 border=0 
  392.           name=undefined_2></TD>
  393.             </TR>
  394.             <TR>
  395.               <TD colSpan=2><IMG height=22 alt="" 
  396.             src="imagenes/don_ramis_titulo_r3_c1.jpg" 
  397.             width=538 border=0 name=don_ramis_titulo_r3_c1></TD>
  398.               <TD><IMG height=22 alt="" src="" width=1 border=0 
  399.           name=undefined_2></TD>
  400.             </TR>
  401.           </TBODY>
  402.       </TABLE></TD>
  403.     </TR>
  404.     <TR>
  405.       <TD class=style1 height=4><IMG height=4 alt=polipropilenos 
  406.       src="imagenes/spacer_blanco.gif" width=4></TD>
  407.     </TR>
  408.     <TR>
  409.       <TD bgColor=#ff3300><IMG height=1 alt=polipropilenos 
  410.       src="imagenes/spacer.gif" width=1></TD>
  411.     </TR>
  412.     <TR>
  413.       <TD class=style1 height=4><IMG height=4 alt=polipropilenos 
  414.       src="imagenes/spacer_blanco.gif" width=4></TD>
  415.     </TR>
  416.     <TR>
  417.       <TD bgColor=#cccccc>
  418.  
  419.  
  420.       <DIV align=right>
  421.       <%IF (rol = "") OR (rol = 1) THEN
  422.       response.write("<!--")
  423.       END IF 
  424.       %>
  425.  
  426.       <A 
  427.       href="Index_Usuario.asp">Datos de la Empresa </A> I <A 
  428.       href="U_cxc.asp">Antiguedad de Saldos </A> I <A 
  429.       href="U_factddr.asp">Facturaci&oacute;n del Mes </A> I <A href="U_factddrhist.asp">Hist&oacute;rico Facturaci&oacute;n </A>  I <A href="U_pedddr.asp">Pedidos por Surtir </A>  I <A href="U_pedddrhist.asp">Hist&oacute;rico Pedidos </A> I <A href="U_cuentas.asp">Cuentas Bancarias </A>
  430.        I <a href="http://www.donramis.com.mx/web/contacto.htm">Contacto</a>      
  431.        <%IF (rol = "") OR (rol = 1) THEN
  432.       response.write("-->")
  433.       END IF 
  434.       %>
  435.             <%IF rol = 0 THEN
  436.       response.write("<!--")
  437.       END IF 
  438.       %>
  439.       <A href="A_Usuarios.asp">Usuarios </A> I 
  440.  
  441.       <A href="A_Cotizador_CostoProductos.asp"> Cotizador </A> I <A 
  442.       href="http://www.donramis.com.mx/web/ubicacion.htm"> </A> <A 
  443.       href="F_csv.asp">Base de Datos</A>  I <A href="A_Email.asp"> Email Masivo</A>  I <a href="A_cxc.asp">Antiguedad de Saldos</a>   I <a href="A_factddr.asp">Facturaci&oacute;n del Mes</a>   I <a href="A_factddrhist.asp">Histórico Facturación</a> I <a href="A_pedddr.asp">Pedidos</a> I <a href="A_pedddrhist.asp">Histórico Pedidos</a>
  444.             <%IF rol = 0 THEN
  445.       response.write("-->")
  446.       END IF 
  447.       %>
  448.       </DIV></TD>
  449.     </TR>
  450.     <TR>
  451.       <TD class=style2><IMG height=4 alt=polipropilenos 
  452.       src="imagenes/spacer_blanco.gif" width=4></TD>
  453.     </TR>
  454.     <TR>
  455.       <TD bgColor=#ff6600><IMG height=1 
  456.       src="imagenes/spacer.gif" width=1></TD>
  457.     </TR>
  458.     <TR>
  459.       <TD><IMG height=4 alt=polipropilenos 
  460.       src="imagenes/spacer_blanco.gif" width=4></TD>
  461.     </TR>
  462.     <TR>
  463.       <TD height=124><TABLE id=info height="100%" cellSpacing=0 cellPadding=0 width="100%" 
  464.       border=0>
  465.           <TBODY>
  466.             <TR>
  467.               <TD height=271 valign="top"><table width="97%"  border="0" align="center">
  468.                 <tr>
  469.                   <td><SPAN class=style4><BR>
  470.                           <SPAN 
  471.             class=style9><!-- InstanceBeginEditable name="Titulo" --><IMG height=10 
  472.             src="imagenes/spacer_rojo.gif" width=10>ANTIGUEDAD DE SALDOS <!-- InstanceEndEditable --><BR>
  473.                         </SPAN></SPAN>
  474.                    </td>
  475.                 </tr>
  476.                 <tr>
  477.                   <td><!-- InstanceBeginEditable name="Cuerpo" -->
  478.  
  479.                     <table border="0" cellpadding="2" cellspacing="4">
  480.                     <tr>
  481.                       <td background="imagenes/backgroung_down.jpg"><span class="style39">NOMBRE CLIENTE </span></td>
  482.                       <td align="center" background="imagenes/backgroung_down.jpg"><span class="style39">MONEDA</span></td>
  483.                       <td align="center" background="imagenes/backgroung_down.jpg"><span class="style39">FACTURA</span></td>
  484.                       <td align="center" background="imagenes/backgroung_down.jpg"><span class="style39">FECHA</span></td>
  485.                       <td align="center" background="imagenes/backgroung_down.jpg"><span class="style39">VENCE</span></td>
  486.                       <td align="center" background="imagenes/backgroung_down.jpg"><span class="style39">RETRAZO </span></td>
  487.                       <td align="center" background="imagenes/backgroung_down.jpg"><span class="style39">ACTUALIZADO</span></td>
  488.                       <td align="center" background="imagenes/backgroung_down.jpg"><span class="style39">MXP</span></td>
  489.                       <td align="center" background="imagenes/backgroung_down.jpg"><span class="style39">USD</span></td>
  490.                     </tr>
  491.                     <% While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) %>
  492.                     <tr valign="top">
  493.                       <td>
  494.                       <% IF Recordset1.Fields.Item("factura").Value <> "" THEN
  495.                       response.Write(Recordset1.Fields.Item("nombrecliente").Value)
  496.                       END IF
  497.                       %>
  498.                       </td>
  499.                       <td align="center"><%=(Recordset1.Fields.Item("moneda").Value)%></td>
  500.                       <td align="center"><%=(Recordset1.Fields.Item("factura").Value)%></td>
  501.                       <td align="center"><%=(Recordset1.Fields.Item("fecha").Value)%></td>
  502.                       <td align="center"><%=(Recordset1.Fields.Item("vencim").Value)%></td>
  503.                       <td align="center"><%=(Recordset1.Fields.Item("diasretrazo").Value)%></td>
  504.                       <td align="center">
  505.                       <% IF Recordset1.Fields.Item("factura").Value = "" THEN
  506.                       response.Write("<b>")
  507.                       END IF%>
  508.                       <%=(Recordset1.Fields.Item("fechaactualiz").Value)%></td>
  509.                       <td align="center"> 
  510.                       <% IF Recordset1.Fields.Item("factura").Value = "" THEN
  511.                       response.Write("<b>")
  512.                       END IF%>
  513.                       <%=(Recordset1.Fields.Item("mxp").Value)%></td>
  514.                       <td align="center">
  515.                         <% IF Recordset1.Fields.Item("factura").Value = "" THEN
  516.                       response.Write("<b>")
  517.                       END IF%>
  518.                       <%=(Recordset1.Fields.Item("usd").Value)%></td>
  519.                     </tr>
  520.                     <% 
  521.   Repeat1__index=Repeat1__index+1
  522.   Repeat1__numRows=Repeat1__numRows-1
  523.   Recordset1.MoveNext()
  524. Wend
  525. %>
  526.                   </table>
  527.                   <br>
  528.                   <table border="0" width="50%" align="center">
  529.                     <tr>
  530.                       <td width="23%" align="center"><% If MM_offset <> 0 Then %>
  531.                         <a href="<%=MM_moveFirst%>">Primero</a>
  532.                         <% End If ' end MM_offset <> 0 %>
  533.                       </td>
  534.                       <td width="31%" align="center"><% If MM_offset <> 0 Then %>
  535.                         <a href="<%=MM_movePrev%>">Anterior</a>
  536.                         <% End If ' end MM_offset <> 0 %>
  537.                       </td>
  538.                       <td width="23%" align="center"><% If Not MM_atTotal Then %>
  539.                         <a href="<%=MM_moveNext%>">Siguiente</a>
  540.                         <% End If ' end Not MM_atTotal %>
  541.                       </td>
  542.                       <td width="23%" align="center"><% If Not MM_atTotal Then %>
  543.                         <a href="<%=MM_moveLast%>">Ultimo</a>
  544.                         <% End If ' end Not MM_atTotal %>
  545.                       </td>
  546.                     </tr>
  547.                   </table>
  548.                   <!-- InstanceEndEditable --></td>
  549.                 </tr>
  550.               </table>              <P align=left>&nbsp;</P>
  551.               </TD>
  552.             </TR>
  553.           </TBODY>
  554.       </TABLE></TD>
  555.     </TR>
  556.     <TR>
  557.       <TD height=4><IMG height=4 
  558.       src="imagenes/spacer_blanco.gif" width=4></TD>
  559.     </TR>
  560.     <TR>
  561.       <TD background="imagenes/backgroung_down.jpg" 
  562. height=22><DIV align=right><SPAN class=style7>Distribuidora Don Ramis S.A. de C.V. todos los derechos reservados<BR>
  563. &reg; Copyright 2006 </SPAN></DIV></TD>
  564.     </TR>
  565.   </TBODY>
  566. </TABLE>
  567. </BODY><!-- InstanceEnd --></HTML>
  568. <%
  569. Recordset1.Close()
  570. Set Recordset1 = Nothing
  571. %>
THanks for any help.
Jul 28 '08 #1
1 3806
DrBunchman
979 Recognized Expert Contributor
Hi morrisqueto,

Welcome to Bytes.com! I hope you find the site useful.

The fact that this error has only just started occuring suggests that it is probably not the code that is causing the problem. Has anything changed on the IIS server or the database since it was last working? Have any updates been installed?

Dr B
Jul 29 '08 #2

Sign in to post your reply or Sign up for a free account.

Similar topics

3
7342
by: Mike Kanski | last post by:
I get this error Microsoft VBScript runtime error '800a01fb' When i call LoadPicture method, or when i pretty much do any operation with PictureBox like setting width and height. It happened after i apllied Service Pack 4 to my 2000 machine. Before it worked properly. Any suggestions?
3
3393
by: Kakaiya | last post by:
Error message: An unhandled exception of type 'System.InvalidCastException' occurred in test.dll Additional information: Specified cast is not valid. Public Class Form1 Inherits System.Windows.Forms.Form Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
0
2859
by: Marco Viana | last post by:
Hi, I'm developing an ASP.NET application with Visual Studio .NET 2003 in a Win XP Professional, .NET Framework 1.1 and IIS 5.1 computer with all the lattest patches. When testing a page sometimes i get the following error. Does anyone knows what i have to do to get rid of this error?
2
6112
by: js | last post by:
I got this error when I moved my application to a new Windows 2003 server. I installed and recompiled the 'Microsoft.Practices.EnterpriseLibrary - June 2005" then added these assemblies to the development machine's Assembly Cache. The assemblies version appears to be 1.1.0.0. I changed the project reference to the newly compiled EnterpriseLibrary DLLs. The Web.Config of my application root, I also have the following <configSections>. I...
0
1561
by: raminator | last post by:
Microsoft VBScript runtime error '800a01a8' Object required: 'rs2' /login/login.asp, line 233 ------------------------------------------------------------------------------------- I get the error above when I try to log in. The following code is the code through the process. Step 1:
1
4071
by: monika | last post by:
Hello: I have Error Type: Microsoft VBScript runtime (0x800A000D) Type mismatch: '' /OnlineLIB/BNosearch1.asp, line 32 The error happened at this line:bookno = chr(bookno) The code like this:
1
3886
by: mudasserrafiq | last post by:
I am using following asp file default.asp <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <META http-equiv=Content-Type content="text/html; charset=windows-1252"> <META content="0 Days" name=revisit-after> <META content=info@siderinternational.com name=email> <META content="Omer Safdar" name=author> <META content=MegaStudios.com name=publisher> <META content="Copyright ©2005 - MegaStudios.com" name=copyright> <SCRIPT...
10
8033
by: jasone | last post by:
hi everyone! any advice given will be MUCH appreciated, i have spent about 10 hours on this bit of script... a rating system. I am having realt trouble overcoming this problem at runtime Microsoft VBScript runtime (0x800A01A8) Object required: '' /ddwassignment2/full_catalogue2.asp, line 180 please find the complete code listing below, i have highlighted line 180... if you spot any other errors please let me know! The function...
1
2704
by: jimmylee | last post by:
Hi All,Please help me check my code. I have got running time error (0x800A01FB).An exception occurred: 'objConn.Execute' some records execute but some records don't. I have no idea how to solve them. Thanks a lot. Here is my code dim i_svAppDbConnstr, i_svDBConn i_svAppDbConnstr = "Provider=OraOLEDB.Oracle;Data Source=database_name;User Id=user_id;Password=password;" Set i_svDBConn = OpenConn(i_svAppDbConnstr)
0
8959
marktang
by: marktang | last post by:
ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However, people are often confused as to whether an ONU can Work As a Router. In this blog post, we’ll explore What is ONU, What Is Router, ONU & Router’s main usage, and What is the difference between ONU and Router. Let’s take a closer look ! Part I. Meaning of...
0
8784
by: Hystou | last post by:
Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can effortlessly switch the default language on Windows 10 without reinstalling. I'll walk you through it. First, let's disable language synchronization. With a Microsoft account, language settings sync across devices. To prevent any complications,...
0
9462
Oralloy
by: Oralloy | last post by:
Hello folks, I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>". The problem is that using the GNU compilers, it seems that the internal comparison operator "<=>" tries to promote arguments from unsigned to signed. This is as boiled down as I can make it. Here is my compilation command: g++-12 -std=c++20 -Wnarrowing bit_field.cpp Here is the code in...
0
9326
jinu1996
by: jinu1996 | last post by:
In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven tapestry of website design and digital marketing. It's not merely about having a website; it's about crafting an immersive digital experience that captivates audiences and drives business growth. The Art of Business Website Design Your website is...
1
9248
by: Hystou | last post by:
Overview: Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows Update option using the Control Panel or Settings app; it automatically checks for updates and installs any it finds, whether you like it or not. For most users, this new feature is actually very convenient. If you want to control the update process,...
0
9199
tracyyun
by: tracyyun | last post by:
Dear forum friends, With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each protocol has its own unique characteristics and advantages, but as a user who is planning to build a smart home system, I am a bit confused by the choice of these technologies. I'm particularly interested in Zigbee because I've heard it does some...
0
4558
by: TSSRALBI | last post by:
Hello I'm a network technician in training and I need your help. I am currently learning how to create and manage the different types of VPNs and I have a question about LAN-to-LAN VPNs. The last exercise I practiced was to create a LAN-to-LAN VPN between two Pfsense firewalls, by using IPSEC protocols. I succeeded, with both firewalls in the same network. But I'm wondering if it's possible to do the same thing, with 2 Pfsense firewalls...
1
3270
by: 6302768590 | last post by:
Hai team i want code for transfer the data from one system to another through IP address by using C# our system has to for every 5mins then we have to update the data what the data is updated we have to send another system
3
2187
bsmnconsultancy
by: bsmnconsultancy | last post by:
In today's digital era, a well-designed website is crucial for businesses looking to succeed. Whether you're a small business owner or a large corporation in Toronto, having a strong online presence can significantly impact your brand's success. BSMN Consultancy, a leader in Website Development in Toronto offers valuable insights into creating effective websites that not only look great but also perform exceptionally well. In this comprehensive...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.