1. en el formulario de donde se hará el llamado al calendario, se debe colocar este codigo:
<SCRIPT LANGUAGE="JavaScript">
<!-- Begin
function popUp(URL) {
day = new Date();
id = day.getTime();
eval("page" + id + " = window.open(URL, '" + id + "', 'toolbar=0,scrollbars=0,location=0,statusbar=0,men ubar=0,resizable=0,width=270,height=170,left =470,top = 321.5');");
}
// End -->
</script>
2. extrar el calendario de:
http://www.asptutor.com/asp/vart.asp?id=144...
editar el archivo "calendario.asp" y adicionar estas linea
programa=session("programa") 'es el nombre del programa que esta invocando al calendario
campo=request.querystring("campo") 'es el nombre del campo que recibira la fecha en el formulario
ademas cambiar estas linenas:
Const URLDestino = "OtraPagina.asp"
por esta:
URLDestino =programa 'para que retorne al programa en caso de utilizarse el mismo calendario desde programas diferentes
calendari = calendari & "<a href='" & URLDestino & "?day=" & CurrentDay & "&month=" & cInt(MyMonth) & "&year=" & cInt(MyYear) & "'>"
por esta:(dependiendo del numero de campos fechas que tengamos definidos en el formulario, en mi caso son cuatro fechas)
if campo="txtfecha" then calendari = calendari & "<a href=""javascript
: ;"" onclick= ""opener.document."&programa&".txtfecha.value = '"&CurrentDay&"/"&cInt(MyMonth)&"/"&cInt(MyYear)&"';window.close();"">"
if campo="txtfecha1" then calendari = calendari & "<a href=""javascript
: ;"" onclick= ""opener.document."&programa&".txtfecha1.value = '"&CurrentDay&"/"&cInt(MyMonth)&"/"&cInt(MyYear)&"';window.close();"">"
if campo="txtfecha2" then calendari = calendari & "<a href=""javascript
: ;"" onclick= ""opener.document."&programa&".txtfecha2.value = '"&CurrentDay&"/"&cInt(MyMonth)&"/"&cInt(MyYear)&"';window.close();"">"
if campo="txtfecha3" then calendari = calendari & "<a href=""javascript
: ;"" onclick= ""opener.document."&programa&".txtfecha3.value = '"&CurrentDay&"/"&cInt(MyMonth)&"/"&cInt(MyYear)&"';window.close();"">"
cambiar esta linea
ShowHeader = ShowHeader & " <form name='calendario' action='default.asp' method='post'>"
por esta: (en caso que el fomulario no sea por defecto (default.asp),debido a que debe llamarse asi mismo cuando cambia de mes o año)
ShowHeader = ShowHeader & " <form name='calendario' action='calendario.asp' method='post'>"
3. en el formulario invocamos el calendario asi: (en mi caso, renombre default.asp por calendar.asp)
<td><input type="text" name="txtfecha" size="20" maxlength="12"> <a href="#" onclick="javascript
:popUp('calendar.asp?campo=txtf echa')"> <img border="0" src="recent.gif"></a></td>
espero se entienda y sirva de algo