No recibo dos variables, en página2, desde un formulario en página1.

[Kalimdor]

Hola a todos.

Les agradezco que me puedan ayudar con el siguiente problema:
Tengo una pagina1.asp con el siguiente código en el Body:

Código HTML:

<form name="fecha_nacimiento" id="fecha_nacimiento" method="post" action="pagina2.asp">
<table width="625" border="0" cellspacing="0" cellpadding="10">
<tr>
<td width="9">&nbsp;</td>
<td width="197"><strong>A&ntilde;o de Nacimiento:</strong>
<select name="year_select" id="year_select" onchange="MM_callJS('setDynaList(arrDL1)')">
<% While (NOT Year_Nac_recordset.EOF) %>
<option value="<%=(Year_Nac_recordset.Fields.Item("Año_Nac").Value)%>"><%=(Year_Nac_recordset.Fields.Item("Año_Nac").Value)%></option>
<% Year_Nac_recordset.MoveNext()
Wend
If (Year_Nac_recordset.CursorType > 0) Then
Year_Nac_recordset.MoveFirst
Else
Year_Nac_recordset.Requery
End If
%>
</select>
</td>
<td width="239"><strong>Mes de Nacimiento:</strong>
<select name="mes_select" id="mes_select">
<% While (NOT Mes_Nac_recordset.EOF) %>
<option value="<%=(Mes_Nac_recordset.Fields.Item("Mes_Nac").Value)%>"><%=(Mes_Nac_recordset.Fields.Item("Mes_Nac").Value)%></option>
<% Mes_Nac_recordset.MoveNext()
Wend
If (Mes_Nac_recordset.CursorType > 0) Then
Mes_Nac_recordset.MoveFirst
Else
Mes_Nac_recordset.Requery
End If
%>
</select>
</td>
<td width="100"><input type="submit" name="Submit" value="Buscar" /></td>
</tr>
</table>
</form> 

Con este código envío dos valores: AÑO y MES a la pagina2.asp.

En la pagina2.asp tengo el siguiente código inicial, que me conecta a la Base de Datos:

Código HTML:

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../../Connections/Reg_Bebes_connect.asp" -->
<%
Dim Reg_Bebes_recordset__Year2
Reg_Bebes_recordset__Year2 = "1"
If (Request.Form("year_select") <> "") Then 
Reg_Bebes_recordset__Year2 = Request.Form("year_select") 
End If
%>
<%
Dim Reg_Bebes_recordset__Mes2
Reg_Bebes_recordset__Mes2 = "2"
If (Request.Form("mes_select") <> "") Then 
Reg_Bebes_recordset__Mes2 = Request.Form("mes_select") 
End If
%>
<%
Dim Reg_Bebes_recordset
Dim Reg_Bebes_recordset_numRows
Set Reg_Bebes_recordset = Server.CreateObject("ADODB.Recordset")
Reg_Bebes_recordset.ActiveConnection = MM_Reg_Bebes_connect_STRING
Reg_Bebes_recordset.Source = "SELECT * FROM datos_bebes WHERE Año_Nac = " + Replace(Reg_Bebes_recordset__Year2, "'", "''") + " AND Mes_Nac = " + Replace(Reg_Bebes_recordset__Mes2, "'", "''") + " ORDER BY Dia_Nac DESC"
Reg_Bebes_recordset.CursorType = 0
Reg_Bebes_recordset.CursorLocation = 2
Reg_Bebes_recordset.LockType = 1
Reg_Bebes_recordset.Open()
Reg_Bebes_recordset_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
Reg_Bebes_recordset_numRows = Reg_Bebes_recordset_numRows + Repeat1__numRows
%> 

Mi problema radica en que los valores AÑO y MES que le estoy enviando a la pagina2.asp no me los está tomando, mandándome un error en la línea Reg_Bebes_recordset.Open().

Éste es el mensaje de error:
Información técnica (para personal de soporte técnico)

• Tipo de error:
  Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
  [Microsoft][Controlador ODBC Microsoft Access] Pocos parámetros. Se esperaba 1.
  /mi_web/../pagina2.asp, línea 27
  
• Tipo de explorador:
  Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322; InfoPath.1)
• Página:
  POST 47 bytes to /mi_web/../pagina2.asp
• Datos de POST:
  year_select=2004&mes_select=junio&Submit=Buscar

Como verán, los valores year_select (AÑO) y mes_select (MES) sí llegan a página2.asp, pero no puedo hacer nada por el error.

¿Podrían ayudarme, por favor, a ver en qué consiste mi problema?

Un millón de gracias desde ya por su ayuda.

Hasta luego.

-Kalimdor.