<% dim dt,dtstr Session("Display")="Timetable" 'dim Candles, TzaitDeg, TzaitMin 'Candles=Session("Candles") 'TzaitDeg=Session("TzaitDeg") 'TzaitMin=Session("TzaitMin") ' 'dim locn, dlat, dlon, tz, dstzone, dt, dtstr dt=Session("StartDate") 'locn=Session("City") 'dlat=Session("Latitude")/60 'dlon=-Session("Longitude")/60 'convert so that -ve means West like tz 'tz=Session("TimeZone")/60 'dstzone=Session("DSTRule") if Request("content_length")<>0 then if isdate(request("Date")) then dt=datevalue(request("Date")) else dt=date end if end if if Request("submitNext")<>"" then dt=dt+7 if Request("submitPrev")<>"" then dt=dt-7 dtstr=datepart("d",dt)&"-"&monthname(month(dt))&"-"&year(dt) Session("StartDate")=dt %>

Start date: name=Date maxlength=17 style="WIDTH: 150px">

<% ' calc the table even on first load of page 'call Timetable(locn,dt,dlat,dlon,tz,dstzone,Candles,TzaitDeg,TzaitMin) call Timetable(dt) %>