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
- <%@LANGUAGE="VBSCRIPT"%>
- <!--#include file="Connections/donramis.asp" -->
- <!--#include file="A_secured.asp" -->
- <%
- Dim Recordset1
- Dim Recordset1_numRows
- Set Recordset1 = Server.CreateObject("ADODB.Recordset")
- Recordset1.ActiveConnection = MM_donramis_STRING
- Recordset1.Source = "SELECT * FROM donramis.csvcxc"
- Recordset1.CursorType = 0
- Recordset1.CursorLocation = 2
- Recordset1.LockType = 1
- Recordset1.Open()
- Recordset1_numRows = 0
- %>
- <%
- Dim Repeat1__numRows
- Dim Repeat1__index
- Repeat1__numRows = 30
- Repeat1__index = 0
- Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
- %>
- <%
- ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables
- Dim Recordset1_total
- Dim Recordset1_first
- Dim Recordset1_last
- ' set the record count
- Recordset1_total = Recordset1.RecordCount
- ' set the number of rows displayed on this page
- If (Recordset1_numRows < 0) Then
- Recordset1_numRows = Recordset1_total
- Elseif (Recordset1_numRows = 0) Then
- Recordset1_numRows = 1
- End If
- ' set the first and last displayed record
- Recordset1_first = 1
- Recordset1_last = Recordset1_first + Recordset1_numRows - 1
- ' if we have the correct record count, check the other stats
- If (Recordset1_total <> -1) Then
- If (Recordset1_first > Recordset1_total) Then
- Recordset1_first = Recordset1_total
- End If
- If (Recordset1_last > Recordset1_total) Then
- Recordset1_last = Recordset1_total
- End If
- If (Recordset1_numRows > Recordset1_total) Then
- Recordset1_numRows = Recordset1_total
- End If
- End If
- %>
- <%
- Dim MM_paramName
- %>
- <%
- ' *** Move To Record and Go To Record: declare variables
- Dim MM_rs
- Dim MM_rsCount
- Dim MM_size
- Dim MM_uniqueCol
- Dim MM_offset
- Dim MM_atTotal
- Dim MM_paramIsDefined
- Dim MM_param
- Dim MM_index
- Set MM_rs = Recordset1
- MM_rsCount = Recordset1_total
- MM_size = Recordset1_numRows
- MM_uniqueCol = ""
- MM_paramName = ""
- MM_offset = 0
- MM_atTotal = false
- MM_paramIsDefined = false
- If (MM_paramName <> "") Then
- MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "")
- End If
- %>
- <%
- ' *** Move To Record: handle 'index' or 'offset' parameter
- if (Not MM_paramIsDefined And MM_rsCount <> 0) then
- ' use index parameter if defined, otherwise use offset parameter
- MM_param = Request.QueryString("index")
- If (MM_param = "") Then
- MM_param = Request.QueryString("offset")
- End If
- If (MM_param <> "") Then
- MM_offset = Int(MM_param)
- End If
- ' if we have a record count, check if we are past the end of the recordset
- If (MM_rsCount <> -1) Then
- If (MM_offset >= MM_rsCount Or MM_offset = -1) Then ' past end or move last
- If ((MM_rsCount Mod MM_size) > 0) Then ' last page not a full repeat region
- MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
- Else
- MM_offset = MM_rsCount - MM_size
- End If
- End If
- End If
- ' move the cursor to the selected record
- MM_index = 0
- While ((Not MM_rs.EOF) And (MM_index < MM_offset Or MM_offset = -1))
- MM_rs.MoveNext
- MM_index = MM_index + 1
- Wend
- If (MM_rs.EOF) Then
- MM_offset = MM_index ' set MM_offset to the last possible record
- End If
- End If
- %>
- <%
- ' *** Move To Record: if we dont know the record count, check the display range
- If (MM_rsCount = -1) Then
- ' walk to the end of the display range for this page
- MM_index = MM_offset
- While (Not MM_rs.EOF And (MM_size < 0 Or MM_index < MM_offset + MM_size))
- MM_rs.MoveNext
- MM_index = MM_index + 1
- Wend
- ' if we walked off the end of the recordset, set MM_rsCount and MM_size
- If (MM_rs.EOF) Then
- MM_rsCount = MM_index
- If (MM_size < 0 Or MM_size > MM_rsCount) Then
- MM_size = MM_rsCount
- End If
- End If
- ' if we walked off the end, set the offset based on page size
- If (MM_rs.EOF And Not MM_paramIsDefined) Then
- If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then
- If ((MM_rsCount Mod MM_size) > 0) Then
- MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
- Else
- MM_offset = MM_rsCount - MM_size
- End If
- End If
- End If
- ' reset the cursor to the beginning
- If (MM_rs.CursorType > 0) Then
- MM_rs.MoveFirst
- Else
- MM_rs.Requery
- End If
- ' move the cursor to the selected record
- MM_index = 0
- While (Not MM_rs.EOF And MM_index < MM_offset)
- MM_rs.MoveNext
- MM_index = MM_index + 1
- Wend
- End If
- %>
- <%
- ' *** Move To Record: update recordset stats
- ' set the first and last displayed record
- Recordset1_first = MM_offset + 1
- Recordset1_last = MM_offset + MM_size
- If (MM_rsCount <> -1) Then
- If (Recordset1_first > MM_rsCount) Then
- Recordset1_first = MM_rsCount
- End If
- If (Recordset1_last > MM_rsCount) Then
- Recordset1_last = MM_rsCount
- End If
- End If
- ' set the boolean used by hide region to check if we are on the last record
- MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount)
- %>
- <%
- ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters
- Dim MM_keepNone
- Dim MM_keepURL
- Dim MM_keepForm
- Dim MM_keepBoth
- Dim MM_removeList
- Dim MM_item
- Dim MM_nextItem
- ' create the list of parameters which should not be maintained
- MM_removeList = "&index="
- If (MM_paramName <> "") Then
- MM_removeList = MM_removeList & "&" & MM_paramName & "="
- End If
- MM_keepURL=""
- MM_keepForm=""
- MM_keepBoth=""
- MM_keepNone=""
- ' add the URL parameters to the MM_keepURL string
- For Each MM_item In Request.QueryString
- MM_nextItem = "&" & MM_item & "="
- If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
- MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))
- End If
- Next
- ' add the Form variables to the MM_keepForm string
- For Each MM_item In Request.Form
- MM_nextItem = "&" & MM_item & "="
- If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
- MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))
- End If
- Next
- ' create the Form + URL string and remove the intial '&' from each of the strings
- MM_keepBoth = MM_keepURL & MM_keepForm
- If (MM_keepBoth <> "") Then
- MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
- End If
- If (MM_keepURL <> "") Then
- MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)
- End If
- If (MM_keepForm <> "") Then
- MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
- End If
- ' a utility function used for adding additional parameters to these strings
- Function MM_joinChar(firstItem)
- If (firstItem <> "") Then
- MM_joinChar = "&"
- Else
- MM_joinChar = ""
- End If
- End Function
- %>
- <%
- ' *** Move To Record: set the strings for the first, last, next, and previous links
- Dim MM_keepMove
- Dim MM_moveParam
- Dim MM_moveFirst
- Dim MM_moveLast
- Dim MM_moveNext
- Dim MM_movePrev
- Dim MM_urlStr
- Dim MM_paramList
- Dim MM_paramIndex
- Dim MM_nextParam
- MM_keepMove = MM_keepBoth
- MM_moveParam = "index"
- ' if the page has a repeated region, remove 'offset' from the maintained parameters
- If (MM_size > 1) Then
- MM_moveParam = "offset"
- If (MM_keepMove <> "") Then
- MM_paramList = Split(MM_keepMove, "&")
- MM_keepMove = ""
- For MM_paramIndex = 0 To UBound(MM_paramList)
- MM_nextParam = Left(MM_paramList(MM_paramIndex), InStr(MM_paramList(MM_paramIndex),"=") - 1)
- If (StrComp(MM_nextParam,MM_moveParam,1) <> 0) Then
- MM_keepMove = MM_keepMove & "&" & MM_paramList(MM_paramIndex)
- End If
- Next
- If (MM_keepMove <> "") Then
- MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1)
- End If
- End If
- End If
- ' set the strings for the move to links
- If (MM_keepMove <> "") Then
- MM_keepMove = Server.HTMLEncode(MM_keepMove) & "&"
- End If
- MM_urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "="
- MM_moveFirst = MM_urlStr & "0"
- MM_moveLast = MM_urlStr & "-1"
- MM_moveNext = MM_urlStr & CStr(MM_offset + MM_size)
- If (MM_offset - MM_size < 0) Then
- MM_movePrev = MM_urlStr & "0"
- Else
- MM_movePrev = MM_urlStr & CStr(MM_offset - MM_size)
- End If
- %>
- <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd">
- <HTML><!-- InstanceBegin template="/Templates/look.dwt" codeOutsideHTMLIsLocked="false" --><HEAD><TITLE>Distribuidora Don Ramis</TITLE>
- <META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
- <META content="Don Ramis" name=author>
- <META content="Distribuidora Don Ramis" name=title>
- <META
- content="Empresa dedicada a la distribución de resinas plásticas (polietileno y polipropileno) certificada con ISO 9001-2000"
- name=description>
- <META
- content="polietileno, polipropileno, resinas, pemex, formosa, padmex, px, exxon, alathon, poliestireno, distribucion, precios, iso9001-2000"
- name=keywords>
- <META http-equiv=Window-target content=_top>
- <META content=nofollow name=robots>
- <META content="15 days" name=revisit-after>
- <LINK href="imagenes/estilos_don_ramis.css" type=text/css rel=stylesheet>
- <STYLE type=text/css>.style4 {
- FONT-SIZE: 12px; COLOR: #ff6600
- }
- .style5 {
- COLOR: #999999
- }
- .style6 {
- FONT-SIZE: 10px
- }
- .style7 {
- FONT-SIZE: 10px; COLOR: #ffffff
- }
- </STYLE>
- <STYLE type=text/css>.style1 {
- FONT-WEIGHT: bold; FONT-SIZE: 12px; COLOR: #ffffff
- }
- .style9 {
- FONT-WEIGHT: bold; FONT-SIZE: 14px
- }
- .style38 {
- FONT-WEIGHT: bold; FONT-SIZE: 11pt; COLOR: #ffffff; FONT-FAMILY: Arial, Helvetica, sans-serif; TEXT-ALIGN: center
- }
- </STYLE>
- <!-- InstanceBeginEditable name="Head" -->
- <style type="text/css">
- <!--
- .style39 {
- color: #FFFFFF;
- font-weight: bold;
- }
- -->
- </style>
- <!-- InstanceEndEditable -->
- </HEAD>
- <BODY>
- <TABLE id=general cellSpacing=0 cellPadding=0 width=780 align=center border=0>
- <TBODY>
- <TR>
- <TD><TABLE cellSpacing=0 cellPadding=0 width=780 border=0>
- <TBODY>
- <TR>
- <TD><IMG height=1 alt="" src="" width=181 border=0
- name=undefined_2></TD>
- <TD><IMG height=1 alt="" src="" width=357 border=0
- name=undefined_2></TD>
- <TD><IMG height=1 alt="" src="" width=29 border=0
- name=undefined_2></TD>
- <TD><IMG height=1 alt="" src="" width=213 border=0
- name=undefined_2></TD>
- <TD><IMG height=1 alt="" src="" width=1 border=0
- name=undefined_2></TD>
- </TR>
- <TR>
- <TD rowSpan=2><IMG height=59 alt=""
- src="imagenes/don_ramis_titulo_r1_c1.jpg"
- width=181 border=0 name=don_ramis_titulo_r1_c1></TD>
- <TD colSpan=2><IMG height=27 alt=""
- src="imagenes/don_ramis_titulo_r1_c2.jpg"
- width=386 border=0 name=don_ramis_titulo_r1_c2></TD>
- <TD><DIV align=right><A href="http://www.donramis.com.mx/index.php">Home </A>I <A
- href="http://www.donramis.com.mx/web/mapa_de_sitio.htm">Mapa de sitio </A> I <a href="logoff.asp">Salir</a> </DIV></TD>
- <TD><IMG height=27 alt="" src="" width=1 border=0
- name=undefined_2></TD>
- </TR>
- <TR>
- <TD><IMG height=32 alt=""
- src="imagenes/don_ramis_titulo_r2_c2.jpg"
- width=357 border=0 name=don_ramis_titulo_r2_c2></TD>
- <TD colSpan=2 rowSpan=2><IMG height=54 alt=""
- src="imagenes/don_ramis_titulo_r2_c3.jpg"
- width=242 border=0 name=don_ramis_titulo_r2_c3></TD>
- <TD><IMG height=32 alt="" src="" width=1 border=0
- name=undefined_2></TD>
- </TR>
- <TR>
- <TD colSpan=2><IMG height=22 alt=""
- src="imagenes/don_ramis_titulo_r3_c1.jpg"
- width=538 border=0 name=don_ramis_titulo_r3_c1></TD>
- <TD><IMG height=22 alt="" src="" width=1 border=0
- name=undefined_2></TD>
- </TR>
- </TBODY>
- </TABLE></TD>
- </TR>
- <TR>
- <TD class=style1 height=4><IMG height=4 alt=polipropilenos
- src="imagenes/spacer_blanco.gif" width=4></TD>
- </TR>
- <TR>
- <TD bgColor=#ff3300><IMG height=1 alt=polipropilenos
- src="imagenes/spacer.gif" width=1></TD>
- </TR>
- <TR>
- <TD class=style1 height=4><IMG height=4 alt=polipropilenos
- src="imagenes/spacer_blanco.gif" width=4></TD>
- </TR>
- <TR>
- <TD bgColor=#cccccc>
- <DIV align=right>
- <%IF (rol = "") OR (rol = 1) THEN
- response.write("<!--")
- END IF
- %>
- <A
- href="Index_Usuario.asp">Datos de la Empresa </A> I <A
- href="U_cxc.asp">Antiguedad de Saldos </A> I <A
- href="U_factddr.asp">Facturación del Mes </A> I <A href="U_factddrhist.asp">Histórico Facturación </A> I <A href="U_pedddr.asp">Pedidos por Surtir </A> I <A href="U_pedddrhist.asp">Histórico Pedidos </A> I <A href="U_cuentas.asp">Cuentas Bancarias </A>
- I <a href="http://www.donramis.com.mx/web/contacto.htm">Contacto</a>
- <%IF (rol = "") OR (rol = 1) THEN
- response.write("-->")
- END IF
- %>
- <%IF rol = 0 THEN
- response.write("<!--")
- END IF
- %>
- <A href="A_Usuarios.asp">Usuarios </A> I
- <A href="A_Cotizador_CostoProductos.asp"> Cotizador </A> I <A
- href="http://www.donramis.com.mx/web/ubicacion.htm"> </A> <A
- 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ó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>
- <%IF rol = 0 THEN
- response.write("-->")
- END IF
- %>
- </DIV></TD>
- </TR>
- <TR>
- <TD class=style2><IMG height=4 alt=polipropilenos
- src="imagenes/spacer_blanco.gif" width=4></TD>
- </TR>
- <TR>
- <TD bgColor=#ff6600><IMG height=1
- src="imagenes/spacer.gif" width=1></TD>
- </TR>
- <TR>
- <TD><IMG height=4 alt=polipropilenos
- src="imagenes/spacer_blanco.gif" width=4></TD>
- </TR>
- <TR>
- <TD height=124><TABLE id=info height="100%" cellSpacing=0 cellPadding=0 width="100%"
- border=0>
- <TBODY>
- <TR>
- <TD height=271 valign="top"><table width="97%" border="0" align="center">
- <tr>
- <td><SPAN class=style4><BR>
- <SPAN
- class=style9><!-- InstanceBeginEditable name="Titulo" --><IMG height=10
- src="imagenes/spacer_rojo.gif" width=10>ANTIGUEDAD DE SALDOS <!-- InstanceEndEditable --><BR>
- </SPAN></SPAN>
- </td>
- </tr>
- <tr>
- <td><!-- InstanceBeginEditable name="Cuerpo" -->
- <table border="0" cellpadding="2" cellspacing="4">
- <tr>
- <td background="imagenes/backgroung_down.jpg"><span class="style39">NOMBRE CLIENTE </span></td>
- <td align="center" background="imagenes/backgroung_down.jpg"><span class="style39">MONEDA</span></td>
- <td align="center" background="imagenes/backgroung_down.jpg"><span class="style39">FACTURA</span></td>
- <td align="center" background="imagenes/backgroung_down.jpg"><span class="style39">FECHA</span></td>
- <td align="center" background="imagenes/backgroung_down.jpg"><span class="style39">VENCE</span></td>
- <td align="center" background="imagenes/backgroung_down.jpg"><span class="style39">RETRAZO </span></td>
- <td align="center" background="imagenes/backgroung_down.jpg"><span class="style39">ACTUALIZADO</span></td>
- <td align="center" background="imagenes/backgroung_down.jpg"><span class="style39">MXP</span></td>
- <td align="center" background="imagenes/backgroung_down.jpg"><span class="style39">USD</span></td>
- </tr>
- <% While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) %>
- <tr valign="top">
- <td>
- <% IF Recordset1.Fields.Item("factura").Value <> "" THEN
- response.Write(Recordset1.Fields.Item("nombrecliente").Value)
- END IF
- %>
- </td>
- <td align="center"><%=(Recordset1.Fields.Item("moneda").Value)%></td>
- <td align="center"><%=(Recordset1.Fields.Item("factura").Value)%></td>
- <td align="center"><%=(Recordset1.Fields.Item("fecha").Value)%></td>
- <td align="center"><%=(Recordset1.Fields.Item("vencim").Value)%></td>
- <td align="center"><%=(Recordset1.Fields.Item("diasretrazo").Value)%></td>
- <td align="center">
- <% IF Recordset1.Fields.Item("factura").Value = "" THEN
- response.Write("<b>")
- END IF%>
- <%=(Recordset1.Fields.Item("fechaactualiz").Value)%></td>
- <td align="center">
- <% IF Recordset1.Fields.Item("factura").Value = "" THEN
- response.Write("<b>")
- END IF%>
- <%=(Recordset1.Fields.Item("mxp").Value)%></td>
- <td align="center">
- <% IF Recordset1.Fields.Item("factura").Value = "" THEN
- response.Write("<b>")
- END IF%>
- <%=(Recordset1.Fields.Item("usd").Value)%></td>
- </tr>
- <%
- Repeat1__index=Repeat1__index+1
- Repeat1__numRows=Repeat1__numRows-1
- Recordset1.MoveNext()
- Wend
- %>
- </table>
- <br>
- <table border="0" width="50%" align="center">
- <tr>
- <td width="23%" align="center"><% If MM_offset <> 0 Then %>
- <a href="<%=MM_moveFirst%>">Primero</a>
- <% End If ' end MM_offset <> 0 %>
- </td>
- <td width="31%" align="center"><% If MM_offset <> 0 Then %>
- <a href="<%=MM_movePrev%>">Anterior</a>
- <% End If ' end MM_offset <> 0 %>
- </td>
- <td width="23%" align="center"><% If Not MM_atTotal Then %>
- <a href="<%=MM_moveNext%>">Siguiente</a>
- <% End If ' end Not MM_atTotal %>
- </td>
- <td width="23%" align="center"><% If Not MM_atTotal Then %>
- <a href="<%=MM_moveLast%>">Ultimo</a>
- <% End If ' end Not MM_atTotal %>
- </td>
- </tr>
- </table>
- <!-- InstanceEndEditable --></td>
- </tr>
- </table> <P align=left> </P>
- </TD>
- </TR>
- </TBODY>
- </TABLE></TD>
- </TR>
- <TR>
- <TD height=4><IMG height=4
- src="imagenes/spacer_blanco.gif" width=4></TD>
- </TR>
- <TR>
- <TD background="imagenes/backgroung_down.jpg"
- height=22><DIV align=right><SPAN class=style7>Distribuidora Don Ramis S.A. de C.V. todos los derechos reservados<BR>
- ® Copyright 2006 </SPAN></DIV></TD>
- </TR>
- </TBODY>
- </TABLE>
- </BODY><!-- InstanceEnd --></HTML>
- <%
- Recordset1.Close()
- Set Recordset1 = Nothing
- %>