Como recojo el valor de un control calendar en una variable asp?

rodri_doga · #1 (**permalink**) 05/07/2004, 10:49

Saludos a todos
Quiero poner un control ActiveX específicamente el calendario y que cuando los usuarios escojan un día me pueda dar el valor de la fecha que selecciono , pero me manda error diciendo que falta un objeto
Este es el código.
<form name='cal' method='POST' action='bitacora_falla2.asp'>

<p align="center">
<object classid="clsid:8E27C92B-1264-101C-8A2F-040224009C02" id="calendar1">
<param name="_Version" value="524288">
<param name="_ExtentX" value="7620">
<param name="_ExtentY" value="5080">
<param name="_StockProps" value="1">
<param name="BackColor" value="-2147483633">
<param name="Year" value="<%=Year(Date())%>">
<param name="Month" value="<%=Month(Date())%>">
<param name="Day" value="<%=Day(Date())%>">
<param name="DayLength" value="1">
<param name="MonthLength" value="1">
<param name="DayFontColor" value="0">
<param name="FirstDay" value="7">
<param name="GridCellEffect" value="1">
<param name="GridFontColor" value="10485760">
<param name="GridLinesColor" value="-2147483632">
<param name="ShowDateSelectors" value="-1">
<param name="ShowDays" value="-1">
<param name="ShowHorizontalGrid" value="-1">
<param name="ShowTitle" value="-1">
<param name="ShowVerticalGrid" value="-1">
<param name="TitleFontColor" value="10485760">
<param name="ValueIsNull" value="0">
</object>
</p>
<%
calresp = calendar1.value <------Aqui manda el error

%>

orharo2003 · #2 (**permalink**) 06/07/2004, 09:27

Hola. Y o también pasa el mismo problema Nunca pude averiguar ¿como recuperar el valor???? :-p :-p :-p
No me quedo de otra que hacer mi propio calendario, tengo uno similar que hice, vamos no le pide nada. Si quieres te lo envio x mail.

Demons · #3 (**permalink**) 10/07/2004, 17:47

Hola OHARO, sabes que necesito un calendario para poderlo en mi pagina ASP, podrias por favor enviarme a mi direccion? Gracias por tu ayuda
Mail: [email protected]

orharo2003 · #4 (**permalink**) 10/07/2004, 20:12

<title>
Calendario
</title>
<%
if(Request.Form("valormes")="")then
envio_de_fecha=date
fecha_obtenida=date
mes=month(date)
else
fecha_obtenida=dateadd("m",cint(Request.Form("valo rmes")),Request.Form("fecha_oculta"))
mes=month(fecha_obtenida)
envio_de_fecha=fecha_obtenida
end if
mesagregado=mes+1
%>
<body link=black vlink=black alink=black>
<form name="frm" action="calendario.asp" method="post">
<fieldset style="BORDER-RIGHT: #6699ff thick inset; BORDER-TOP: #6699ff thick outset; BORDER-LEFT: #6699ff thick outset; BORDER-BOTTOM: #6699ff thick inset">
<TABLE cellPadding=0 width="100%" cellspacing="1" cellpadding=20 border=2 bordercolor="gray" style="BORDER-COLLAPSE: collapse">
<tr><td bgcolor="#BECFDF"><a href="" title="Regresar 1 mes" style="text-decoration:none" onclick="beforesending();return false"><FONT SIZE=4 color=black><B><center> - </a></td><td colspan=5 bgcolor="#dbe7f3"><font size=2><center><B><%=UCASE(monthname(mes))%> , <%=year(fecha_obtenida)%></font></td><td bgcolor="#BECFDF"><a href="" title="Adelantar 1 mes" style="text-decoration:none" onclick="aftersending();return false"><b><FONT SIZE=4 color=black><center> + </td>
<tr>
<td bgcolor="#BECFDF"><font face=arial size=2><b><center>D</td><td bgcolor="#BECFDF"><font face=arial size=2><b><center>L</td><td bgcolor="#BECFDF"><font face=arial size=2><b><center>M</td><td bgcolor="#BECFDF"><font face=arial size=2><b><center>M</td><td bgcolor="#BECFDF"><font face=arial size=2><b><center>J</td><td bgcolor="#BECFDF"><font face=arial size=2><b><center>V</td><td bgcolor="#BECFDF"><font face=arial size=2><b><center>S</td>
<%
cuantosdias=datediff("d",dateserial(year(fecha_obt enida),mes,1),dateserial(year(fecha_obtenida),mesa gregado,1))
primeravez=true
iniciodesemana=datepart("w",dateserial(year(fecha_ obtenida),mes,1))
dias_pasados=1
dia=cint(datepart("d",date))
for semana=1 to 6
if(semana=6 and dias_pasados>cuantosdias)then
exit for
end if
Response.Write "<tr>"
for dias=1 to 7
if(dias=1 or dias=7)then
fondo="#BECFDF"
else
fondo="#dbe7f3"
end if
if(dia=dias_pasados)then
color="red"
else
color="black"
end if
if(len(dias_pasados)=1)then
vb="  "
else
vb=" "
end if
if(dias<>iniciodesemana and primeravez=true)then
Response.Write "<td bgcolor="&fondo&"> </td>"
else
if(dias_pasados<=cuantosdias)then
primeravez=false
if(fondo="#BECFDF")then
%>
<td bgcolor="<%=fondo%>" bordercolor="6699ff" ><input size=1 onMouseOut="this.style.backgroundColor='<%=fondo%> ';this.style.color='black'" OnMouseOver="this.style.backgroundColor='#dbe7f3'; this.style.color='blue'" value=<%=vb&dias_pasados%> style="BACKGROUND-COLOR:#BECFDF;FONT-SIZE: xx-small;WIDTH: 20px; HEIGHT: 17px;cursor:hand;FONT-WEIGHT: bold;BORDER-TOP-STYLE: none; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; BORDER-BOTTOM-STYLE: none; color=<%=color%>" readonly onclick="dia_js(this.value)"></td>
<%else
%>

<td bgcolor="<%=fondo%>" bordercolor="6699ff"><input size=1 onMouseOut="this.style.backgroundColor='<%=fondo%> ';this.style.color='black'" OnMouseOver="this.style.backgroundColor='#BECFDF'; this.style.color='blue'" value=<%=vb&dias_pasados%> style="BACKGROUND-COLOR:#dbe7f3;FONT-SIZE: xx-small;WIDTH: 20px; HEIGHT: 17px;cursor:hand;FONT-WEIGHT: bold;BORDER-TOP-STYLE: none; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; BORDER-BOTTOM-STYLE: none; color=<%=color%>" readonly onclick="dia_js(this.value)"></td>
<%end if
dias_pasados=dias_pasados+1
else
Response.Write "<td bgcolor="&fondo&"> </td>"
end if
end if
next
Response.Write "</tr>"
next
%>

</table>

<input type="hidden" name="valormes">
<input type="hidden" name="fecha_oculta" value=<%=envio_de_fecha%>>
</fieldset>
</form>

<script language="jscript">
function dia_js(escogido)
{
fromjs(escogido);
}

</script>

<script language="vbs">
document.title=date()
function beforesending()
frm.valormes.value=-1
frm.submit()

end function

function aftersending()
frm.valormes.value=1
frm.submit()

end function

function fromjs(b)

' MANDAMOS EL VALOR AL CAMPO aqui configuralo como quieras....
window.opener.printing.fecha_inicio.value=dateadd( "d",cint(b)-1,dateserial(year(frm.fecha_oculta.value),datepart ("m",frm.fecha_oculta.value),1))
window.close

end function

</script>
</body>

' recuerda en darle en tamaño al window.open

orharo2003 · #5 (**permalink**) 11/07/2004, 00:49

Mi intención no fue enviarlo 3 veces, este servidor todas las noches como que se cae. que pasará???

justo cuando intente enviarlo ya no respondio y como actualice la página Por eso. Haber si el moderador quita los dos que se repitieron

AlZuwaga · #6 (**permalink**) 11/07/2004, 22:23

listo, orharo2003 ;)

holaroque · #7 (**permalink**) 02/10/2004, 17:47

Ayudenme a hacer un calendario en asp, yo no se nada de programacion y me han dejado una tarea para el lunes cuatro de Octubre del 2004, en el cual consiste en realizar un calendario por select en el que se elige el mes, año y dia y esto me muestra o elabora un calendario en el cual se muestra en color el dia que se ha elegido

hey porfavor [B]ayudenme[/B], yo no tengo internet en mi casa asi que tengo que venir a un cyber y ahorita lo estan cerrando, por favor espero que me auxilien les agracere mucho con lo poco que se sobre algun tema como de linux o en cualquier tema de red que necesiten gracias

orharo2003 · #8 (**permalink**) 03/10/2004, 21:13

Checate este link, si lo quieres solo en vbs (ejecutado desde el lado del cliente tengo uno que hice), si no te servira el link:

http://www.asptutor.com/asp/ejemplos/calendario/

El código fuente:

http://www.asptutor.com/zip/calendario_ampliado.zip