Foros del Web - Ver Mensaje Individual

jjkmpos · #2 (**permalink**) 03/11/2005, 05:46

Una vez en la segunda pagina, que consta de una tabla donde aparecen todos los dias del mes seleccionado, hago click en uno de estos dias y me envia a la tercera que es donde se completa el formulario correspondiente a ese dia. El codigo de la segunada página es el siguiente:

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>
<table width="700" border="1" align="center">
  <tr>
    <td width="255"><A href="http://www.queralto.com/"></A><img src="Imagenes/logoqueralto_mail.gif" width="255" height="74"></td>
    <td align="right" valign="bottom"><div align="right" class="Estilo2"></div></td>
  </tr>
</table>
<!-- 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();
%>

continua..........