Tengo un formulario con un cuadro de txto q lleva una fecha pedida al usuario (mediante un script javascript q crea un calendario por capas y tal, que funciona bien). También hay 5 botones, cuyo texto es el resultado de un proceso en asp, que calcula la semana a la que pertenece la fecha introducida y rellena los botones dejando la semana actual en el tercero (en medio) y en el resto, las dos anteriores y las dos posteriores.
Digamos que todo eso va para una especia de panel de reserva semanal.
El caso es que el form envía la fecha bien. El asp la recibe y procesa bien. Una y otra vez...hasta la tercera o la cuarta (aleatoriamente) en la que el resultado del proceso son fechas ¡¡¡¡¡¡¡¡¡alrededor de diciembre de 1899!!!!!!!!!
El asp procesa, al iniciarse, lo siguiente (Al menos con lo de php se colorea algo el código, aunque no sea php xDD):
Código PHP:
if isempty(Request.QueryString) or isempty(Request.QueryString("txtDateFrom")) or not isdate(Request.QueryString("txtDateFrom")) then
sFechaBusqueda=formatdatetime(now(),vbshortdate)
else
sFechaBusqueda=Request.QueryString("txtDateFrom")
end if
Código PHP:
formatdatetime(dateadd("d",-14,calculaInicioSemana(sFechaBusqueda)),vbshortdate)
Código PHP:
Public function calculaInicioSemana(sFecha)
dim iDOW,iInicioSemana
iDOW=weekday(sFecha,vbMonday)
select case iDow
case 1: sInicioSemana=sFecha
case 2: sInicioSemana=dateadd("d",-1,cdate(sFecha))
case 3: sInicioSemana=dateadd("d",-2,cdate(sFecha))
case 4: sInicioSemana=dateadd("d",-3,cdate(sFecha))
case 5: sInicioSemana=dateadd("d",-4,cdate(sFecha))
end select
calculaInicioSemana=sInicioSemana
end function
Saludos y gracias
McRuffian
Ole Ole xDD 
