Recoger 3 variables en una sola

[potenkin]

hola,
tengo un calendario en asp que selecionando un dia determinado me envia las variables "dia", "mes" y "ano" de la siguiente manera:

dia=18&mes=11&ano=2006

en otra pagina querria recoger estas tres variables y filtrarlas en un solo campo, el de fecha.

Es decir recibo la fecha en 3 variables diferentes y la necesito en una sola variable en formato fecha 23/11/2006.

ideas..?

[3pies]

Es muy sencillo...

Código:

<%
dia = request.querystring("dia")
mes = request.querystring("mes")
ano = request.querystring("ano")
fecha = dia & "/" & mes & "/" & ano
%>

Salu2

[potenkin]

me da el siguiente error:

Error de compilación de Microsoft VBScript error '800a0401'
Se esperaba un final de instrucción
/alujadvocats/calendari2.asp, línea 15
dia = dias & "/" & mes & "/" ano
--------------------------------^

como "ano" envia la cifra completa por ejemplo "2006", lo recojo en formato fecha, pero he probado a cambirlo a formato texto y me da el mismo error

[3pies]

Te has dejado un & (de hecho me lo dejé yo en el ejemplo de arriba, y lo acabo de editar):

Código:

dia = dias & "/" & mes & "/" & ano

Salu2

[potenkin]

al rectificarlo me da el siguiente error
------------
ADODB.Command error '800a0d5d'
La aplicación utiliza un valor de tipo no válido para la operación actual.
------------

[potenkin]

este es el codigo:

<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Request.QueryString("dia") <> "") Then
Recordset1__MMColParam = Request.QueryString("dia")
End If
%>
<%
dias = request.querystring("dias")
mes = request.querystring("mes")
ano = request.querystring("ano")
dia = dias & "/" & mes & "/" & ano
%>
<%
Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows

Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
Recordset1_cmd.ActiveConnection = MM_aluja_STRING
Recordset1_cmd.CommandText = "SELECT * FROM articulo WHERE dia = ? ORDER BY id_articulo DESC"
Recordset1_cmd.Prepared = true
Recordset1_cmd.Parameters.Append Recordset1_cmd.CreateParameter("param1", 135, 1, -1, Recordset1__MMColParam) ' adDBTimeStamp

Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%>

[3pies]

Prueba así:

Código:

dia = cdate(dias & "/" & mes & "/" & ano) 

Y la consulta:

Código:

"SELECT * FROM articulo WHERE dia = #" & dia & "# ORDER BY id_articulo DESC"

[potenkin]

me sigue dando el mismo error. Me da error en esta linea:

Recordset1_cmd.Parameters.Append Recordset1_cmd.CreateParameter("param1", 135, 1, -1, Recordset1__MMColParam) ' adDBTimeStamp

Te envio el codigo del calendario con las variables que envia:

<%
' Rutina de Calendario en ASP
' Por José Luis Cunha O
' Recogemos las variables
dia=Trim(Request("dia")&"")
If dia="0" then dia="1"
mes=Trim(Request("mes")&"")
If mes="0" then
mes="12"
End if
ano=Trim(Request("ano")&"")

sel=Trim(Request("sel")&"") 'Variable que evalúa si hemos seleccionado una fecha

' Si las variables están vacías, les asignamos un valor por defecto
' Con la fecha actual
If dia="" then dia = day(now())
If mes="" then mes = month(now())
If ano="" then ano = year(now())

' Establecemos una fecha
' Windows en Español
Fecha = Cdate(mes&"/"&dia&"/"&ano)

' Windows en Ingles
'Fecha = Cdate(mes&"/"&dia&"/"&ano)

' Lo primero que debemos saber es en qué día de la semana comienza el mes
' Le asignamos un valor de dia 1 a la fecha para identificar ese valor
Fecha_primer_dia = Cdate("1"&"-"&mes&"-"&ano)
Primer_dia_del_mes= DatePart("W", Fecha_primer_dia)
Select Case Primer_dia_del_mes
Case 1 :
dia_comienza = "diumenge"
vacios=6
hasta=1
Case 2 :
dia_comienza = "dilluns"
vacios=0
hasta=0
Case 3 :
dia_comienza = "dimarts"
vacios=1
hasta=6
Case 4 :
dia_comienza = "dimecres"
vacios=2
hasta=5
Case 5 :
dia_comienza = "dijous"
vacios=3
hasta=4
Case 6 :
dia_comienza = "divendres"
vacios=4
hasta=3
Case 7 :
dia_comienza = "dissabte"
vacios=5
hasta=2
End Select

' Response.write "El mes comienza en " & dia_comienza

'Identificamos el Mes de la fecha a evaluar

Select case mes
Case 1 : Mes_text = "gener"
Case 2 : Mes_text = "febrer"
Case 3 : Mes_text = "mar&ccedil;"
Case 4 : Mes_text = "abril"
Case 5 : Mes_text = "maig"
Case 6 : Mes_text = "juny"
Case 7 : Mes_text = "juliol"
Case 8 : Mes_text = "agost"
Case 9 : Mes_text = "setembre"
Case 10 : Mes_text = "octubre"
Case 11 : Mes_text = "novembre"
Case 12 : Mes_text = "desembre"
End Select

' Response.write "el mes es " & mes_text & " y comienza el día " & dia_comienza

' Identificamos ahora el número de días del mes
' Hacemos una fecha con el dia 01 para saber cuantos dias tiene el mes

Fecha_con_dia_1 = Cdate("01/"&mes&"/"&ano)
Dias_del_mes = day(DateAdd("M",1,Fecha_con_dia_1)-1)

'Response.write Dias_del_mes & " comienza en " & dia_comienza
%>
<Table border='0' cellspacing="0" cellpadding="0">
<tr>
<td valign="top"><font face="verdana" Size="1">
<% if mes>1 and mes<=12Then %>
<a href="calendario.asp?mes=<%=mes-1%>&dia=<%=dia%>&ano=<%=ano%>"><</a></font>
<% else %>
<a href="calendario.asp?mes=12&dia=<%=dia%>&ano=<%=an o-1%>"><</a></font>
<% end if %>
</font></td>
<td valign="top" align="center"><font face="arial" Size="1"><%=dia%> de <%=mes_text%> de <%=ano%></font>
<td valign="top"><font face="verdana" Size="1">
<% if mes<12 Then %>
<a href="calendario.asp?mes=<%=mes+1%>&dia=<%=dia%>&a no=<%=ano%>">></a></font>
<% else %>
<a href="calendario.asp?mes=1&dia=<%=dia%>&ano=<%=ano +1%>">></a></font>
<% end if %>
</font></td>
</tr>
<tr>
<td valign="top"></td>
<td valign="top">
<Table border='0' cellspacing="2" cellpadding="2">
<tr>
<td width="15" align='center'><font face="verdana" Size="1"><b>dl</B></font></td>
<td width="15" align='center'><font face="verdana" Size="1"><b>dt</B></font></td>
<td width="15" align='center'><font face="verdana" Size="1"><b>dc</B></font></td>
<td width="15" align='center'><font face="verdana" Size="1"><b>dj</B></font></td>
<td width="15" align='center'><font face="verdana" Size="1"><b>dv</B></font></td>
<td width="15" align='center'><font face="verdana" Size="1"><b>ds</B></font></td>
<td width="15" align='center'><font face="verdana" Size="1"><b>dg</B></font></td>
</tr>
<%
For y=1 to vacios
Response.Write "<td width='15'><font face='verdana' Size='1'>&nbsp;</font></td>"
Next
For x=1 to day(Dias_del_mes+1)
If Cont_hasta=hasta Then
Response.Write "</tr><tr>"
Contador=0
End if

If Contador=7 Then
Response.Write "</tr><tr>"
Contador=0
End if

If dia=Cstr(x) Then
size="2"
tag_ini="<b>"
tag_fin="</b>"
Else
size="1"
tag_ini=""
tag_fin=""
End if

Response.Write "<td width='15' align='center'><font face='verdana' size='" & size & "'>" &_
"<a href='calendari2.asp?sel=1&dia=" & x & "&mes=" & mes & "&ano="& ano & "'>" & tag_ini & x & tag_fin & "</font></td>"
Contador=Contador+1
Cont_hasta=Cont_hasta+1
Next

If contador=1 then finales=6
If contador=2 then finales=5
If contador=3 then finales=4
If contador=4 then finales=3
If contador=5 then finales=2
If contador=6 then finales=1
If contador=7 then finales=0

For y=1 to finales
Response.Write "<td width='15'><font face='verdana' Size='1'>&nbsp;</font></td>"
Next

%>
</table></td>
<td valign="top">&nbsp;</td>
</tr>
<% if Sel="1" Then%>
<tr>
<td valign="top"></td>
<td valign="top"><font face="arial" size="1"><br>Data: <b><%=dia%>/<%=mes%>/<%=ano%></b></font><br></td>
<td valign="top"></td>
</tr>
<% end if %>
</table>

[potenkin]

El codigo del calendario asp para quien lo pueda necesitar.

salut