By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
440,180 Members | 1,012 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 440,180 IT Pros & Developers. It's quick & easy.

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

P: 1
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
Share this Question
Share on Google+
1 Reply


DrBunchman
Expert 100+
P: 979
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

Post your reply

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