Foros del Web - Ver Mensaje Individual

jjkmpos · #12 (**permalink**) 04/11/2005, 04:40

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();
%>