Pasar Datos De Una Pagina A Otra.

[jjkmpos]

A ver si alguien me puede ayudar, por favor.

Tengo el siguiente problema. Paso datos de una página a otra mediante el metodo GET. Los datos que me pasan son:

http://localhost/reparto_programacio...ubmit=Ejecutar

Me envia a una página donde me aparece los días del mes y el año seleccionado. Caundo hago click en uno de los dias pasa el campo Id_Registro a una segunda pagina. Hasta aqui todo bien.

En esta segunda página completo un formulario y existe un boton de actualizar registro.

Ahora estoy en la pagina del formulario de actualización de registro:
http://localhost/reparto_programacio...Ejecutar&ID=11

Completo los datos y los actualizo y me manda a la página anterior donde aparecen los datos introducidos en el formulario. Los datos que pasan son:
http://localhost/reparto_programacio...Ejecutar&ID=11

Pues es aqui donde viene el problema. Cuando hago click en un segundo día, me debería enviar a la página del formulario para la actualización de un nuevo registro, pero me da un error:
Tipo de error:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][Controlador ODBC Microsoft Access] Error de sintaxis (coma) en la expresión de consulta 'ID = 11, 13'.
/reparto_programaciones/Actualizar_registro.asp, line 105

Los datos que pasa de una página a otra son los siguientes:
http://localhost/reparto_programacio...ar&ID=11&ID=13

El problema creo que esta en que pasa dos ID, ¿Como podría solucionarlo?

Muchas gracias de antemano.

Saludos a todos

[El_Metallick]

le pones ID1 ID2 y listo los rescatas como dos variables distintas

[jjkmpos]

Gracias Metallick, pero creo que ese no es mi problema.

Se trata de que me pasa la primera vez una Id, completo el formulario, actualizo y vuelvo a la página. Hasta aqui bien.
La segunda vez me pasa la 1ª Id+la 2ª Id. Solo quiero que me pase la ultima que escojo.
No se si me explico bien? Me podrías ayudar?


Muchas gracias.

[Myakire]

Hay varias formas para solucionar tu problema:

1) Recibe tu parámetro ID y lo separas (split) con la coma como separador, luego solo usa lo último que tengas. Claro, hay que validar para el caso de que solo recibas uno.

2) Modifica la forma en que incializas los valores al control de formulario ID. Esto suponiendo que sea un control oculto, ya que si formas la URL mediante concatenaciones, pues esta más fácil. Como no pones el por qué se mandan dos veces la variable id (...&ID=11&ID=13), pues solo estoy adivinando.

3) Barre la coleccion Request (FOR EACH) y busca el último elemento del tipo que sea el control ID o por nombre.

4) ......., creo que son todas, pero podría equivocarme.

[jjkmpos]

Gracias Myakire, creo que tiene algo que ver con tu punto 2: ("Modifica la forma en que incializas los valores al control de formulario ID. Esto suponiendo que sea un control oculto, ya que si formas la URL mediante concatenaciones, pues esta más fácil. Como no pones el por qué se mandan dos veces la variable id (...&ID=11&ID=13), pues solo estoy adivinando") pero me resulta complicado explicartelo.
¿Podría enviarte el sitio para que lo pruebes?

Gracias de nuevo

[Myakire]

Sip.
Aunque si pones tambien algo del ASP con el que formas la URL o cargas el control de formulario, sería perfecto.

[jjkmpos]

¿Como te lo puedo enviar?

[Myakire]

mira, antes de enviarmelo, ¿qué te parece si solo posteas el código de RESULTADO_MES.asp? (entre etiquetas CODE, claro esta)

[jjkmpos]

Soy novato en esto, ¿Qué quieres decir con postear el codigo?

[3pies]

Se refiere a que pongas el código en un mensaje, preferiblemente entre estas etiquetas code y /code (estas equiquetas deben ir envueltas entre cochetes).

[jjkmpos]

¿Quieres decir que lo ponga en uno de estos mensajes?

[jjkmpos]

Código:

<%@LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/ConFechas.asp" -->
<%
var ConMeses = Server.CreateObject("ADODB.Recordset");
ConMeses.ActiveConnection = MM_ConFechas_STRING;
ConMeses.Source = "SELECT * FROM MESES";
ConMeses.CursorType = 0;
ConMeses.CursorLocation = 2;
ConMeses.LockType = 1;
ConMeses.Open();
var ConMeses_numRows = 0;
%>
<%
var ConAno = Server.CreateObject("ADODB.Recordset");
ConAno.ActiveConnection = MM_ConFechas_STRING;
ConAno.Source = "SELECT * FROM ANO";
ConAno.CursorType = 0;
ConAno.CursorLocation = 2;
ConAno.LockType = 1;
ConAno.Open();
var ConAno_numRows = 0;
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Documento sin t&iacute;tulo</title>
<style type="text/css">
<!--
.Estilo2 {
	font-family: Arial, Helvetica, sans-serif;
	font-weight: bold;
}
.Estilo6 {font-family: Arial, Helvetica, sans-serif; font-weight: bold; font-size: 12pt;}
.Estilo7 {
	font-size: 12px;
	font-family: Arial, Helvetica, sans-serif;
	font-weight: bold;
}
-->
</style>
</head>

<body>
<table width="700" border="1" align="center">
  <tr>
    <td width="255"><A href="http://www.queralto.com/"></A></td>
    <td align="right" valign="bottom"><div align="right" class="Estilo2"></div></td>
  </tr>
</table>
<table width="700" border="1" align="center">
  <tr>
    <td bgcolor="#FFFFCC"><div align="center" class="Estilo6">PROGRAMACIONES DE ENTREGAS </div></td>
  </tr>
</table>
<p>&nbsp;</p>
<table width="100%" border="0">
  <tr>
    <td><div align="center">
      <form action="RESULTADO_MES.asp" method="get" name="form_meses" id="form_meses">
          <span class="Estilo7">Selecciona a&ntilde;o y mes a consultar</span> 
          <select name="anuario" id="anuario">
            <% 
while (!ConAno.EOF) {
%>
            <option value="<%=(ConAno.Fields.Item("ANO").Value)%>"><%=(ConAno.Fields.Item("ANO").Value)%></option>
            <%
  ConAno.MoveNext();
}
if (ConAno.CursorType > 0) {
  if (!ConAno.BOF) ConAno.MoveFirst();
} else {
  ConAno.Requery();
}
%>
          </select>
          <select name="meses" id="meses">
            <% 
while (!ConMeses.EOF) {
%>
            <option value="<%=(ConMeses.Fields.Item("MESES").Value)%>"><%=(ConMeses.Fields.Item("MESES").Value)%></option>
            <%
  ConMeses.MoveNext();
}
if (ConMeses.CursorType > 0) {
  if (!ConMeses.BOF) ConMeses.MoveFirst();
} else {
  ConMeses.Requery();
}
%>
          </select>         
          <input type="submit" name="Submit" value="Ejecutar">
      </form>
    </div></td>
  </tr>
</table>
<p align="center">&nbsp;</p>
<p>&nbsp;</p>
</body>
</html>
<%
ConMeses.Close();
%>
<%
ConAno.Close();
%>

[jjkmpos]

Código:

<%@LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/ConnMeses.asp" -->
<% var rsProgramacion__ID = "" %>
<%
var rsProgramacion__MMColParam = "1";
if (String(Request.QueryString("meses")) != "undefined" && 
    String(Request.QueryString("meses")) != "") { 
  rsProgramacion__MMColParam = String(Request.QueryString("meses"));
}
%>
<%
var rsProgramacion__anuario = "1";
if (String(Request.QueryString("anuario")) != "undefined" && 
    String(Request.QueryString("anuario")) != "") { 
  rsProgramacion__anuario = String(Request.QueryString("anuario"));
}
%>
<%
var rsProgramacion = Server.CreateObject("ADODB.Recordset");
rsProgramacion.ActiveConnection = MM_ConnMeses_STRING;
rsProgramacion.Source = "SELECT *  FROM FECHAS  WHERE MES = '"+ rsProgramacion__MMColParam.replace(/'/g, "''") + "' AND ANO = "+ rsProgramacion__anuario.replace(/'/g, "''") + "";
rsProgramacion.CursorType = 0;
rsProgramacion.CursorLocation = 2;
rsProgramacion.LockType = 1;
rsProgramacion.Open();
var rsProgramacion_numRows = 0;
%>
<%
var Repeat1__numRows = -1;
var Repeat1__index = 0;
rsProgramacion_numRows += Repeat1__numRows;
%>
<% var MM_paramName = ""; %>
<%
// *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

// create the list of parameters which should not be maintained
var MM_removeList = "&index=";
if (MM_paramName != "") MM_removeList += "&" + MM_paramName.toLowerCase() + "=";
var MM_keepURL="",MM_keepForm="",MM_keepBoth="",MM_keepNone="";

// add the URL parameters to the MM_keepURL string
for (var items=new Enumerator(Request.QueryString); !items.atEnd(); items.moveNext()) {
  var nextItem = "&" + items.item().toLowerCase() + "=";
  if (MM_removeList.indexOf(nextItem) == -1) {
    MM_keepURL += "&" + items.item() + "=" + Server.URLencode(Request.QueryString(items.item()));
  }
}

// add the Form variables to the MM_keepForm string
for (var items=new Enumerator(Request.Form); !items.atEnd(); items.moveNext()) {
  var nextItem = "&" + items.item().toLowerCase() + "=";
  if (MM_removeList.indexOf(nextItem) == -1) {
    MM_keepForm += "&" + items.item() + "=" + Server.URLencode(Request.Form(items.item()));
  }
}

// create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL + MM_keepForm;
if (MM_keepBoth.length > 0) MM_keepBoth = MM_keepBoth.substring(1);
if (MM_keepURL.length > 0)  MM_keepURL = MM_keepURL.substring(1);
if (MM_keepForm.length > 0) MM_keepForm = MM_keepForm.substring(1);
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html><!-- InstanceBegin template="/Templates/INDEX.dwt.asp" codeOutsideHTMLIsLocked="false" -->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<!-- InstanceBeginEditable name="doctitle" -->
<title>Documento sin t&iacute;tulo</title>
<!-- InstanceEndEditable --><style type="text/css">
<!--
.Estilo2 {
	font-family: Arial, Helvetica, sans-serif;
	font-weight: bold;
}
.Estilo6 {font-family: Arial, Helvetica, sans-serif; font-weight: bold; font-size: 12pt;}
-->
</style>
<!-- InstanceBeginEditable name="head" -->
<style type="text/css">
<!--
.Estilo7 {font-family: Arial, Helvetica, sans-serif}
.Estilo9 {font-size: 10pt}
-->
</style>
<!-- InstanceEndEditable -->
</head>

<body>
<!-- InstanceBeginEditable name="EditRegion5" -->
<table width="700" border="1" align="center">
  <tr>
    <td width="255"><a href="http://www.queralto.com/"></a></td>
    <td align="right" valign="bottom"><div align="right" class="Estilo2"></div></td>
  </tr>
</table>
<!-- InstanceEndEditable --><!-- InstanceBeginEditable name="EditRegion4" -->
<table width="700" border="1" align="center">
  <tr>
    <td bgcolor="#FFFFCC"><div align="center" class="Estilo6">PROGRAMACIONES DE ENTREGAS </div></td>
  </tr>
</table>
<!-- InstanceEndEditable --><!-- InstanceBeginEditable name="EditRegion3" -->
<p align="center"><%=(rsProgramacion.Fields.Item("MES").Value)%> de <%=(rsProgramacion.Fields.Item("ANO").Value)%> </p>
<table width="100%" border="0">
  <tr bgcolor="#CCCCCC">
    <td><div align="center" class="Estilo2 Estilo9">DIA</div></td>
    <td><div align="center" class="Estilo2 Estilo9">FECHA</div></td>
    <td><div align="center" class="Estilo2 Estilo9">CENTRO</div></td>
    <td><div align="center" class="Estilo2 Estilo9">PROVINCIA</div></td>
    <td><div align="center" class="Estilo2 Estilo9">N&ordm; TRABAJADORES </div></td>
    <td><div align="center" class="Estilo2 Estilo9">PROGRAMADO</div></td>
    <td><p align="center" class="Estilo2 Estilo9">MONTAJE</p>
    </td>
</tr>
  <% while ((Repeat1__numRows-- != 0) && (!rsProgramacion.EOF)) { %>
  <tr bordercolor="1" bgcolor="#FFFFFF">
    <td><div align="left" class="Estilo7"><A HREF="Actualizar_registro.asp?<%= Server.HTMLEncode(MM_keepURL) + ((MM_keepURL!="")?"&":"") + "ID=" + rsProgramacion.Fields.Item("ID").Value %>"><%=(rsProgramacion.Fields.Item("DIA").Value)%></A></div></td>
    <td><div align="center" class="Estilo7"><%=(rsProgramacion.Fields.Item("FECHA").Value)%></div></td>
    <td><div align="center"><span class="Estilo7"><%=(rsProgramacion.Fields.Item("CENTRO").Value)%></span></div></td>
    <td><div align="center"><span class="Estilo7"><%=(rsProgramacion.Fields.Item("PROVINCIA").Value)%></span></div></td>
    <td><div align="center"><span class="Estilo7"><%=(rsProgramacion.Fields.Item("Nro_PERSONAS").Value)%></span></div></td>
    <td><div align="center"><span class="Estilo7"><%=(rsProgramacion.Fields.Item("PROGRAMADO").Value)%></span></div></td>
    <td><div align="center"><span class="Estilo7"><%=(rsProgramacion.Fields.Item("MONTAJE").Value)%></span></div></td>
  </tr>
  <%
  Repeat1__index++;
  rsProgramacion.MoveNext();
}
%>

</table>
<p>&nbsp;</p>
<!-- InstanceEndEditable -->
</body>
<!-- InstanceEnd --></html>
<%
rsProgramacion.Close();
%>

[jjkmpos]

Código:

<%@LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/ConnMeses.asp" -->
<!--#include file="Connections/ConFechas.asp" -->
<%
// *** Edit Operations: declare variables

// set the form action variable
var MM_editAction = Request.ServerVariables("SCRIPT_NAME");
if (Request.QueryString) {
  MM_editAction += "?" + Server.HTMLEncode(Request.QueryString);
}

// boolean to abort record edit
var MM_abortEdit = false;

// query string to execute
var MM_editQuery = "";
%>
<%
// *** Update Record: set variables

if (String(Request("MM_update")) == "form1" &&
    String(Request("MM_recordId")) != "undefined") {

  var MM_editConnection = MM_ConFechas_STRING;
  var MM_editTable  = "FECHAS";
  var MM_editColumn = "ID";
  var MM_recordId = "" + Request.Form("MM_recordId") + "";
  var MM_editRedirectUrl = "RESULTADO_MES.asp";
  var MM_fieldsStr = "ANO|value|MES|value|DIA|value|FECHA|value|CENTRO|value|PROVINCIA|value|Nro_PERSONAS|value|PROGRAMADO|value|MONTAJE|value";
  var MM_columnsStr = "ANO|none,none,NULL|MES|',none,''|DIA|',none,''|FECHA|',none,NULL|CENTRO|',none,''|PROVINCIA|',none,''|Nro_PERSONAS|',none,''|PROGRAMADO|',none,''|MONTAJE|',none,''";

  // create the MM_fields and MM_columns arrays
  var MM_fields = MM_fieldsStr.split("|");
  var MM_columns = MM_columnsStr.split("|");
  
  // set the form values
  for (var i=0; i+1 < MM_fields.length; i+=2) {
    MM_fields[i+1] = String(Request.Form(MM_fields[i]));
  }

  // append the query string to the redirect URL
  if (MM_editRedirectUrl && Request.QueryString && Request.QueryString.Count > 0) {
    MM_editRedirectUrl += ((MM_editRedirectUrl.indexOf('?') == -1)?"?":"&") + Request.QueryString;
  }
}
%>
<%
// *** Update Record: construct a sql update statement and execute it

if (String(Request("MM_update")) != "undefined" &&
    String(Request("MM_recordId")) != "undefined") {

  // create the sql update statement
  MM_editQuery = "update " + MM_editTable + " set ";
  for (var i=0; i+1 < MM_fields.length; i+=2) {
    var formVal = MM_fields[i+1];
    var MM_typesArray = MM_columns[i+1].split(",");
    var delim =    (MM_typesArray[0] != "none") ? MM_typesArray[0] : "";
    var altVal =   (MM_typesArray[1] != "none") ? MM_typesArray[1] : "";
    var emptyVal = (MM_typesArray[2] != "none") ? MM_typesArray[2] : "";
    if (formVal == "" || formVal == "undefined") {
      formVal = emptyVal;
    } else {
      if (altVal != "") {
        formVal = altVal;
      } else if (delim == "'") { // escape quotes
        formVal = "'" + formVal.replace(/'/g,"''") + "'";
      } else {
        formVal = delim + formVal + delim;
      }
    }
    MM_editQuery += ((i != 0) ? "," : "") + MM_columns[i] + " = " + formVal;
  }
  MM_editQuery += " where " + MM_editColumn + " = " + MM_recordId;

  if (!MM_abortEdit) {
    // execute the update
    var MM_editCmd = Server.CreateObject('ADODB.Command');
    MM_editCmd.ActiveConnection = MM_editConnection;
    MM_editCmd.CommandText = MM_editQuery;
    MM_editCmd.Execute();
    MM_editCmd.ActiveConnection.Close();

    if (MM_editRedirectUrl) {
      Response.Redirect(MM_editRedirectUrl);
    }
  }

}
%>
<%
var Recordset1__MMColParam = "1";
if (String(Request.QueryString("ID")) != "undefined" && 
    String(Request.QueryString("ID")) != "") { 
  Recordset1__MMColParam = String(Request.QueryString("ID"));
}
%>
<%
var Recordset1 = Server.CreateObject("ADODB.Recordset");
Recordset1.ActiveConnection = MM_ConnMeses_STRING;
Recordset1.Source = "SELECT * FROM FECHAS WHERE ID = "+ Recordset1__MMColParam.replace(/'/g, "''") + "";
Recordset1.CursorType = 0;
Recordset1.CursorLocation = 2;
Recordset1.LockType = 1;
Recordset1.Open();
var Recordset1_numRows = 0;
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Documento sin t&iacute;tulo</title>
<style type="text/css">
<!--
.Estilo2 {	font-family: Arial, Helvetica, sans-serif;
	font-weight: bold;
}
.Estilo6 {font-family: Arial, Helvetica, sans-serif; font-weight: bold; font-size: 12pt;}
-->
</style>
</head>

<body>
<table width="700" border="1" align="center">
  <tr>
    <td width="255"><A href="http://www.queralto.com/"></A></td>
    <td align="right" valign="bottom"><div align="right" class="Estilo2"></div></td>
  </tr>
</table>
<table width="700" border="1" align="center">
  <tr>
    <td bgcolor="#FFFFCC"><div align="center" class="Estilo6">
        <p>PROGRAMACIONES DE ENTREGAS <br>
          Inserte los datos de la nueva entrega. </p>
    </div></td>
  </tr>
</table>
<div align="center"><br>
  <form method="POST" action="<%=MM_editAction%>" name="form1">
    <table align="center">
      <tr valign="baseline">
        <td nowrap align="right">ANO:</td>
        <td><input type="text" name="ANO" value="<%=(Recordset1.Fields.Item("ANO").Value)%>" size="32">
        </td>
      </tr>
      <tr valign="baseline">
        <td nowrap align="right">MES:</td>
        <td><input type="text" name="MES" value="<%=(Recordset1.Fields.Item("MES").Value)%>" size="32">
        </td>
      </tr>
      <tr valign="baseline">
        <td nowrap align="right">DIA:</td>
        <td><input type="text" name="DIA" value="<%=(Recordset1.Fields.Item("DIA").Value)%>" size="32">
        </td>
      </tr>
      <tr valign="baseline">
        <td nowrap align="right">FECHA:</td>
        <td><input type="text" name="FECHA" value="<%=(Recordset1.Fields.Item("FECHA").Value)%>" size="32">
        </td>
      </tr>
      <tr valign="baseline">
        <td nowrap align="right">CENTRO:</td>
        <td><input type="text" name="CENTRO" value="<%=(Recordset1.Fields.Item("CENTRO").Value)%>" size="32">
        </td>
      </tr>
      <tr valign="baseline">
        <td nowrap align="right">PROVINCIA:</td>
        <td><input type="text" name="PROVINCIA" value="<%=(Recordset1.Fields.Item("PROVINCIA").Value)%>" size="32">
        </td>
      </tr>
      <tr valign="baseline">
        <td nowrap align="right">Nro_PERSONAS:</td>
        <td><input type="text" name="Nro_PERSONAS" value="<%=(Recordset1.Fields.Item("Nro_PERSONAS").Value)%>" size="32">
        </td>
      </tr>
      <tr valign="baseline">
        <td nowrap align="right">PROGRAMADO:</td>
        <td><input type="text" name="PROGRAMADO" value="<%=(Recordset1.Fields.Item("PROGRAMADO").Value)%>" size="32">
        </td>
      </tr>
      <tr valign="baseline">
        <td nowrap align="right">MONTAJE:</td>
        <td><input type="text" name="MONTAJE" value="<%=(Recordset1.Fields.Item("MONTAJE").Value)%>" size="32">
        </td>
      </tr>
      <tr valign="baseline">
        <td nowrap align="right">&nbsp;</td>
        <td><input name="Actualizar" type="submit" id="Actualizar" value="Actualizar registro">
        </td>
      </tr>
    </table>
    <input type="hidden" name="MM_update" value="form1">
    <input type="hidden" name="MM_recordId" value="<%= Recordset1.Fields.Item("ID").Value %>">
  </form>
  <p>&nbsp;</p>
</div>

<p>&nbsp;</p>

<p>&nbsp;</p>

<p>&nbsp;</p>
</body>
<% var rsProgramacion__ID = "" %>

</html>
<%
Recordset1.Close();
%>

[jjkmpos]

Iniciado por Myakire

mira, antes de enviarmelo, ¿qué te parece si solo posteas el código de RESULTADO_MES.asp? (entre etiquetas CODE, claro esta)

He puesto el código, ¿Qué puedo hacer?

[jjkmpos]

Myakire, hice los cambios en la linea 118 y quedo de la siguiente forma:

Código:

<%@LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/ConnMeses.asp" -->
<% var rsProgramacion__ID = "" %>
<%
var rsProgramacion__MMColParam = "1";
if (String(Request.QueryString("meses")) != "undefined" && 
    String(Request.QueryString("meses")) != "") { 
  rsProgramacion__MMColParam = String(Request.QueryString("meses"));
}
%>
<%
var rsProgramacion__anuario = "1";
if (String(Request.QueryString("anuario")) != "undefined" && 
    String(Request.QueryString("anuario")) != "") { 
  rsProgramacion__anuario = String(Request.QueryString("anuario"));
}
%>
<%
var rsProgramacion = Server.CreateObject("ADODB.Recordset");
rsProgramacion.ActiveConnection = MM_ConnMeses_STRING;
rsProgramacion.Source = "SELECT *  FROM FECHAS  WHERE MES = '"+ rsProgramacion__MMColParam.replace(/'/g, "''") + "' AND ANO = "+ rsProgramacion__anuario.replace(/'/g, "''") + "";
rsProgramacion.CursorType = 0;
rsProgramacion.CursorLocation = 2;
rsProgramacion.LockType = 1;
rsProgramacion.Open();
var rsProgramacion_numRows = 0;
%>
<%
var Repeat1__numRows = -1;
var Repeat1__index = 0;
rsProgramacion_numRows += Repeat1__numRows;
%>
<% var MM_paramName = ""; %>
<%
// *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

// create the list of parameters which should not be maintained
var MM_removeList = "&index=";
if (MM_paramName != "") MM_removeList += "&" + MM_paramName.toLowerCase() + "=";
var MM_keepURL="",MM_keepForm="",MM_keepBoth="",MM_keepNone="";

// add the URL parameters to the MM_keepURL string
for (var items=new Enumerator(Request.QueryString); !items.atEnd(); items.moveNext()) {
  var nextItem = "&" + items.item().toLowerCase() + "=";
  if (MM_removeList.indexOf(nextItem) == -1) {
    MM_keepURL += "&" + items.item() + "=" + Server.URLencode(Request.QueryString(items.item()));
  }
}

// add the Form variables to the MM_keepForm string
for (var items=new Enumerator(Request.Form); !items.atEnd(); items.moveNext()) {
  var nextItem = "&" + items.item().toLowerCase() + "=";
  if (MM_removeList.indexOf(nextItem) == -1) {
    MM_keepForm += "&" + items.item() + "=" + Server.URLencode(Request.Form(items.item()));
  }
}

// create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL + MM_keepForm;
if (MM_keepBoth.length > 0) MM_keepBoth = MM_keepBoth.substring(1);
if (MM_keepURL.length > 0)  MM_keepURL = MM_keepURL.substring(1);
if (MM_keepForm.length > 0) MM_keepForm = MM_keepForm.substring(1);
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html><!-- InstanceBegin template="/Templates/INDEX.dwt.asp" codeOutsideHTMLIsLocked="false" -->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<!-- InstanceBeginEditable name="doctitle" -->
<title>Documento sin t&iacute;tulo</title>
<!-- InstanceEndEditable --><style type="text/css">
<!--
.Estilo2 {
        font-family: Arial, Helvetica, sans-serif;
        font-weight: bold;
}
.Estilo6 {font-family: Arial, Helvetica, sans-serif; font-weight: bold; font-size: 12pt;}
-->
</style>
<!-- InstanceBeginEditable name="head" -->
<style type="text/css">
<!--
.Estilo7 {font-family: Arial, Helvetica, sans-serif}
.Estilo9 {font-size: 10pt}
-->
</style>
<!-- InstanceEndEditable -->
</head>

<body>
<!-- InstanceBeginEditable name="EditRegion5" -->
<table width="700" border="1" align="center">
  <tr>
    <td width="255"><a href="http://www.queralto.com/"></a></td>
    <td align="right" valign="bottom"><div align="right" class="Estilo2"></div></td>
  </tr>
</table>
<!-- InstanceEndEditable --><!-- InstanceBeginEditable name="EditRegion4" -->												
<table width="700" border="1" align="center">												
  <tr>												
    <td bgcolor="#FFFFCC"><div align="center" class="Estilo6">PROGRAMACIONES DE ENTREGAS </div></td>												
  </tr>												
</table>												
<!-- InstanceEndEditable --><!-- InstanceBeginEditable name="EditRegion3" -->												
<p align="center"><%=(rsProgramacion.Fields.Item("MES").Value)%> de <%=(rsProgramacion.Fields.Item("ANO").Value)%> </p>												
<table width="100%" border="0">												
  <tr bgcolor="#CCCCCC">												
    <td><div align="center" class="Estilo2 Estilo9">DIA</div></td>												
    <td><div align="center" class="Estilo2 Estilo9">FECHA</div></td>												
    <td><div align="center" class="Estilo2 Estilo9">CENTRO</div></td>												
    <td><div align="center" class="Estilo2 Estilo9">PROVINCIA</div></td>												
    <td><div align="center" class="Estilo2 Estilo9">N&ordm; TRABAJADORES </div></td>												
    <td><div align="center" class="Estilo2 Estilo9">PROGRAMADO</div></td>												
    <td><p align="center" class="Estilo2 Estilo9">MONTAJE</p>												
    </td>												
</tr>												
  <% while ((Repeat1__numRows-- != 0) && (!rsProgramacion.EOF)) { %>												
  <tr bordercolor="1" bgcolor="#FFFFFF">												
    <td><div align="left" class="Estilo7"><% var camposID = rsProgramacion.Fields.Item("ID").Value.split(",");var ultimoID = camposID(camposID.length-1)%><A HREF="Actualizar_registro.asp?<%= Server.HTMLEncode(MM_keepURL) + ((MM_keepURL!="")?"&":"") + "ID=" + ultimoID %>"></A></A></div></td>												
    <td><div align="center" class="Estilo7"><%=(rsProgramacion.Fields.Item("FECHA").Value)%></div></td>												
    <td><div align="center"><span class="Estilo7"><%=(rsProgramacion.Fields.Item("CENTRO").Value)%></span></div></td>												
    <td><div align="center"><span class="Estilo7"><%=(rsProgramacion.Fields.Item("PROVINCIA").Value)%></span></div></td>												
    <td><div align="center"><span class="Estilo7"><%=(rsProgramacion.Fields.Item("Nro_PERSONAS").Value)%></span></div></td>												
    <td><div align="center"><span class="Estilo7"><%=(rsProgramacion.Fields.Item("PROGRAMADO").Value)%></span></div></td>												
    <td><div align="center"><span class="Estilo7"><%=(rsProgramacion.Fields.Item("MONTAJE").Value)%></span></div></td>												
  </tr>												
  <%												
  Repeat1__index++;												
  rsProgramacion.MoveNext();												
}
%>

</table>
<p>&nbsp;</p>
<!-- InstanceEndEditable -->
</body>
<!-- InstanceEnd --></html>
<%
rsProgramacion.Close();
%>

Qué es lo que puede estar mal?