La verdad, estoy medio perdido con lo de opener.document ....
y por tanto prefiero enviar mas detalladamente mi situacion:
Estoy diligenciando un formulario el cual contiene un campo fecha y para ello hago clic en un boton que me lleva a otro programa que muestra un calendario, del calendario escojo el dia( cada dia es un link) y al escogerlo me devuelve al formulario que estaba diligenciando (mostrandose asi el dia,mes y ano) que se escogio en el calendario.
Hasta ahi, todo va ok. el problema reside en que la pagina del calendario es una ventan pequeña (asi lo quise) y al escoger la fecha me muestra el formulario que estaba diligenciando en esta misma ventana(la ventana del calendario que es pequeña) y yo la necesito en otra ventana(don estaba llenando los datos).
me hago entender? se que es mucho codigo, pero por favaro una ayudita
el codigo del formulario que estoy llenando es:
entre el <head> y </head> tengo
<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>
luego en el campo fecha tengo
<input type="text" name="txtfecha" size="20" maxlength="10" value="<%= mes &"/"& dia &"/"& ano %>"> <A HREF="javascript
:popUp('calendar.asp')"> <img border="0" src="recent.gif" > </a> </td>
y el codigo del calendar.asp es
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="calendario.asp"-->
<html>
<head>
<title>TITULO WEB</title>
<link href="general.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#eeeeee" text="#000000" link="#000000" vlink="#000000" alink="#000000">
<% if Request.Form("Year")<>"" AND Request.Form("Month")<>"" then
Any = CDate(Request.Form("Year"))
Mes = CDate(Request.Form("Month"))
else
Any = year(Now)
Mes = month(Now)
end if
any = Any
mes = Mes
response.write(calendari(any,mes))%>
</body>
</html>
el codigo de calendario.asp es
<%
function calendari(any,mes)
id=session("identificador") 'identificador del formulario
programa=session("programa") 'programa de donde viene
'pagina que recibirá la fecha seleccionada por el usuario
URLDestino =programa
Dim MyMonth 'Month of calendar
Dim MyYear 'Year of calendar
Dim FirstDay 'First day of the month. 1 = Monday
Dim CurrentDay 'Used to print dates in calendar
Dim Col 'Calendar column
Dim Row 'Calendar row
calendari = "" ' Variable que contindra tot el contingut del calendari (Retorn de funcio)
MyMonth = mes
MyYear = any
If IsEmpty(MyMonth) then MyMonth = Month(Date)
if IsEmpty(MyYear) then MyYear = Year(Date)
calendari = ShowHeader(MyMonth, MyYear)
'FirstDay = WeekDay(DateSerial(MyYear, MyMonth, 1)) -1 'Data Anglesa
FirstDay = WeekDay(DateSerial(MyYear, MyMonth, 1)) - 2 'Data Espanyola
CurrentDay = 1
'Let's build the calendar
For Row = 0 to 5
For Col = 0 to 6
If ((Row = 0) and (Col < FirstDay)) then
calendari = calendari & "<td bgcolor='#FFFFFF' class='calSimbolo'> </td>"
elseif (CurrentDay > LastDay(MyMonth, MyYear)) then
calendari = calendari & "<td bgcolor='#FFFFFF' class='calSimbolo'> </td>"
else
if (cInt(MyYear) = Year(Date)) and (cInt(MyMonth) = Month(Date)) and (CurrentDay = Day(Date)) then
calendari = calendari & "<td bgcolor='#FFFFFF' class='calCeldaResaltado' align='center'>"
else
calendari = calendari & "<td bgcolor='#FFFFFF' align='center'>"
end if
calendari = calendari & "<a href='" &URLDestino& "?id= "&id&"&day= "&CurrentDay&"&month= "&cInt(MyMonth)&"&year= "&cInt(MyYear)&"'>"
if (cInt(MyYear) = Year(Date)) and (cInt(MyMonth) = Month(Date)) and (CurrentDay = Day(Date)) then
calendari = calendari & "<div class='calResaltado'>"
else
calendari = calendari & "<div class='calSimbolo'>"
end if
calendari = calendari & CurrentDay & "</div></a></td>"
CurrentDay = CurrentDay + 1
End If
Next
calendari = calendari & "</tr>"
Next
calendari = calendari & "</table>"
calendari = calendari & "</form>"
End function
'------ Sub and functions
function ShowHeader(MyMonth,MyYear)
ShowHeader = ""
ShowHeader = ShowHeader & "<script language='JavaScript'>"
ShowHeader = ShowHeader & " function Hoy() {"
ShowHeader = ShowHeader & " DiaActual = new Date();"
ShowHeader = ShowHeader & " document.calendario.Month.value=DiaActual.getMonth ()+1;"
ShowHeader = ShowHeader & " document.calendario.Year.value=DiaActual.getYear() ;"
ShowHeader = ShowHeader & " document.calendario.submit();"
ShowHeader = ShowHeader & " }"
ShowHeader = ShowHeader & " </script>"
ShowHeader = ShowHeader & "<table border='0' cellspacing='1' cellpadding='1' width='245' align='center' class='calFondoCalendario'>"
ShowHeader = ShowHeader & " <tr align='center'> "
ShowHeader = ShowHeader & " <td colspan='7'>"
ShowHeader = ShowHeader & " <form name='calendario' action='calendar.asp' method='post'>"
ShowHeader = ShowHeader & " <table border='0' cellspacing='1' cellpadding='1' width='100%' class='calFondoEncabe'>"
ShowHeader = ShowHeader & " <tr>"
ShowHeader = ShowHeader & " <td align='left' class='calDatos'>"
ShowHeader = ShowHeader & " Mes:"
ShowHeader = ShowHeader & " <select name='Month' onChange='javascript
:document.calendario.submit(); ' class='calDatos'>"
For i= 1 to 12
cadena = ""
if (CInt(MyMonth)=i) then
cadena = "selected"
end if
ShowHeader = ShowHeader & "<option value='" & i & "' " & cadena & ">" & MonthName(i) & "</option>"
next
ShowHeader = ShowHeader & " </select>"
ShowHeader = ShowHeader & " </td>"
ShowHeader = ShowHeader & " <td align='center'>"
ShowHeader = ShowHeader & " <input type='button' onClick='javascript
:Hoy()' value='Hoy' class='calDatos'>"
ShowHeader = ShowHeader & " </td>"
ShowHeader = ShowHeader & " <td align='right' class='calDatos'>"
ShowHeader = ShowHeader & " Año:"
ShowHeader = ShowHeader & " <select name='Year' onChange='javascript
:document.calendario.submit(); ' class='calDatos'>"
anyActual = year(Date)
For i= 1 to 20
cadena = ""
Anys = (anyActual - 10) + i
if (CInt(MyYear)=Anys) then
cadena = "selected"
end if
ShowHeader = ShowHeader & "<option value='" & Anys & "' " & cadena & ">" & Anys & "</option>"
next
ShowHeader = ShowHeader & " </select>"
ShowHeader = ShowHeader & " </td>"
ShowHeader = ShowHeader & " </tr>"
ShowHeader = ShowHeader & " </table>"
ShowHeader = ShowHeader & " </td>"
ShowHeader = ShowHeader & " </tr>"
ShowHeader = ShowHeader & " <tr align='center'> "
ShowHeader = ShowHeader & " <td bgcolor='#FFCC99'><div class='calDias'>Lun</div></td>"
ShowHeader = ShowHeader & " <td bgcolor='#FFCC99'><div class='calDias'>Mar</div></td>"
ShowHeader = ShowHeader & " <td bgcolor='#FFCC99'><div class='calDias'>Mie</div></td>"
ShowHeader = ShowHeader & " <td bgcolor='#FFCC99'><div class='calDias'>Jue</div></td>"
ShowHeader = ShowHeader & " <td bgcolor='#FFCC99'><div class='calDias'>Vie</div></td>"
ShowHeader = ShowHeader & " <td bgcolor='#FFCC99'><div class='calDias'>Sab</div></td>"
ShowHeader = ShowHeader & " <td bgcolor='#FFCC99'><div class='calDias'>Dom</div></td>"
ShowHeader = ShowHeader & " </tr>"
End function
Function MonthName(MyMonth)
Select Case MyMonth
Case 1
MonthName = "Enero"
Case 2
MonthName = "Febrero"
Case 3
MonthName = "Marzo"
Case 4
MonthName = "Abril"
Case 5
MonthName = "Mayo"
Case 6
MonthName = "Junio"
Case 7
MonthName = "Julio"
Case 8
MonthName = "Agosto"
Case 9
MonthName = "Septiembre"
Case 10
MonthName = "Octubre"
Case 11
MonthName = "Noviembre"
Case 12
MonthName = "Diciembre"
Case Else
MonthName = "ERROR!"
End Select
End Function
Function LastDay(MyMonth, MyYear)
' Returns the last day of the month. Takes into account leap years
' Usage: LastDay(Month, Year)
' Example: LastDay(12,2000) or LastDay(12) or Lastday
Select Case MyMonth
Case 1, 3, 5, 7, 8, 10, 12
LastDay = 31
Case 4, 6, 9, 11
LastDay = 30
Case 2
If IsDate(MyYear & "-" & MyMonth & "-" & "29") Then LastDay = 29 Else LastDay = 28
Case Else
LastDay = 0
End Select
End Function
%>