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ç"
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'> </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'> </font></td>"
Next
%>
</table></td>
<td valign="top"> </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>