Foster World --> News

<% view = request("v") if view = "" then view ="008" end if numstory = request("ns") if numstory = "" then numstory = "1" end if weeknum = DatePart("ww", Date, 2, vbFirstFourDays) thisyeart = DatePart("yyyy", date) thisdayt = DatePart("d", date) weekdayt = DatePart("w", date) if weekdayt = "1" then weeknum = weeknum + 1 end if if weeknum > 52 then weeknum = 1 end if adayt = "---" if weekdayt = "1" then vdayt = "Sunday" adayt = "Sun" elseif weekdayt = "2" then vdayt = "Monday" adayt = "Mon" elseif weekdayt = "3" then vdayt = "Tuesday" adayt = "Tue" elseif weekdayt = "4" then vdayt = "Wednesday" adayt = "Wed" elseif weekdayt = "5" then vdayt = "Thursday" adayt = "Thu" elseif weekdayt = "6" then vdayt = "Friday" adayt = "Fri" elseif weekdayt = "7" then vdayt = "Saturday" adayt = "Sat" end if if vMonth = "" then thisdate = date thismonth = DatePart("M", thisdate) if thismonth = "1" then vMonth = "January" elseif thismonth = "2" then vMonth = "February" elseif thismonth = "3" then vMonth = "March" elseif thismonth = "4" then vMonth = "April" elseif thismonth = "5" then vMonth = "May" elseif thismonth = "6" then vMonth = "June" elseif thismonth = "7" then vMonth = "July" elseif thismonth = "8" then vMonth = "August" elseif thismonth = "9" then vMonth = "September" elseif thismonth = "10" then vMonth = "October" elseif thismonth = "11" then vMonth = "November" elseif thismonth = "12" then vMonth = "December" end if end if if vMonth = "January" then aMonth = "Jan" pMonth = "December" nMonth = "February" elseif vMonth = "February" then aMonth = "Feb" pMonth = "January" nMonth = "March" elseif vMonth = "March" then aMonth = "Mar" pMonth = "February" nMonth = "April" elseif vMonth = "April" then aMonth = "Apr" pMonth = "March" nMonth = "May" elseif vMonth = "May" then aMonth = "May" pMonth = "April" nMonth = "June" elseif vMonth = "June" then aMonth = "Jun" pMonth = "May" nMonth = "July" elseif vMonth = "July" then aMonth = "Jul" pMonth = "June" nMonth = "August" elseif vMonth = "August" then aMonth = "Aug" pMonth = "July" nMonth = "September" elseif vMonth = "September" then aMonth = "Sep" pMonth = "August" nMonth = "October" elseif vMonth = "October" then aMonth = "Oct" pMonth = "September" nMonth = "November" elseif vMonth = "November" then aMonth = "Nov" pMonth = "October" nMonth = "December" elseif vMonth = "December" then aMonth = "Dec" pMonth = "November" nMonth = "January" end if %> Foster World --> News

|

|

|

|

|

|

<%= vdayt %>, <%= vMonth %> <%= thisdayt %>, <%= thisyeart %> - News Time is <%= FormatDateTime(Now, 3)%> PST

Front Page

Weather

Money

Business

Technology

Sports

Comics

Lifestyle

Food

Entertainment

Employment

<% if view = "" then %>

TOP STORIES

<% elseif view = "001" then %>

ECONOMIC NEWS

<% elseif view = "002" then %>

MEDIA FEATURES

<% elseif view = "003" then %>

RELIGION NEWS

<% elseif view = "004" then %>

SCIENCE NEWS

<% elseif view = "005" then %>

SPACE SCIENCE NEWS

<% elseif view = "006" then %>

TOP BUSINESS STORIES

<% elseif view = "007" then %>

TOP MEDIA STORIES

<% elseif view = "008" then %>

TOP STORIES

<% elseif view = "101" then %>

DENVER-BOULDER NEWS

<% elseif view = "102" then %>

LOS ANGELES NEWS

<% elseif view = "103" then %>

MINNEAPOLIS-ST. PAUL NEWS

<% elseif view = "104" then %>

SEATTLE-TACOMA NEWS

<% elseif view = "105" then %>

WASHINGTON D.C. NEWS

<% elseif view = "201" then %>

ISRAEL NEWS

<% elseif view = "202" then %>

MIDEAST NEWS

<% elseif view = "203" then %>

CANADA NEWS

<% elseif view = "204" then %>

EUROPE NEWS

<% elseif view = "205" then %>

JAPAN NEWS

<% elseif view = "206" then %>

RUSSIA NEWS

<% elseif view = "207" then %>

CHINA NEWS

<% else %>

TOP STORIES

<% end if %>

<% if numstory = "1" then %> Click here for more stories in this section! <% end if %>

Current Weather

Time

New York:
Chicago:
Denver:
Los Angeles:

Metric Time:
Internet Time:

<%=DATEADD("h",3,time)%>
<%=DATEADD("h",2,time)%>
<%=DATEADD("h",1,time)%>
<%= FormatDateTime(Now, 3)%>

Today's Scoreboard

Daily Crossword Puzzle

Click Here To Play

� Copyright 2003, FosterWorld.Com. All Rights reserved. View our Terms of Service and Privacy Policy. onl ine user(s)

Home Work News Pics Fun Contact Links Search
Sitemap

<%= weeknum %>