hola busco un calendario

ivan02 · #1 (**permalink**) 15/06/2004, 12:51

estoy checando donde puedo encontrar un calendario en asp que funcione con acces y pues que sea gratis

muchas gracias ya cheque hotscrip pero no la verdad no encontre uno bueno

muchas gracias y que padre les quedo el foro

saludo

RootK · #2 (**permalink**) 15/06/2004, 13:17

MMM.. para que necesitas que trabaje con acces..??

porque hay varios calendarios en asp (no necesitan de BD) pero me gustaría saber para que lo necesitas con access..??

Salu2

orharo2003 · #3 (**permalink**) 15/06/2004, 22:48

Son fáciles de hacer, te pongo de muestra uno que hice. lo único que tendrás que agregarle será el objeto válido a donde quieres que te envie la fecha, y lo puedes abrir usando los sig parametros:

window.open "calendario.asp","","height=223,width=208"

<title>
Calendario
</title>
<%
'[email protected]
'Modulo 3-1
'Sistema Integral de Facturación [NEOGA]

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)
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
'By orharo2003
</script>
</body>

LeCLUB · #4 (**permalink**) 16/06/2004, 00:43

Rootk, supongo que lo querrá para que sea calendario y agenda a la vez (supongo) xDD

ivan02 · #5 (**permalink**) 16/06/2004, 12:50

gracias pues a asi es que sea ajenda este calendario para programar las actividades de nosotros y los quye esten fuera

sale muchas gracias checo el codigo y si tienen alguna pagina donde descargar uno selo agradeseria mucho

LeCLUB · #6 (**permalink**) 16/06/2004, 15:38

Bueno, aqui tienes 57 tipos diferentes, entre los cuales se encuentran algunos de pago y otros gratuitos:

http://www.hotscripts.com/ASP/Script...ars/index.html

ivan02 · #7 (**permalink**) 17/06/2004, 00:02

gracias lo voy a revisar