<%sv = Request.ServerVariables("PATH_INFO")%> <% 'if Request.ServerVariables("HTTPS") = "off" then if left(sv,1) = "/" then sv = Replace(lcase(left(sv,6)),"/","") else sv = lcase(left(sv,5)) end if select case Request.ServerVariables("HTTPS") case "off" select case sv case "conta", "donat" Response.Redirect("https://www.lifeprojectafrica.org" & Request.ServerVariables("PATH_INFO")) end select case else if (sv <> "conta" and sv <> "donat") and (Request.ServerVariables("HTTPS") = "on") then%> <% Response.Redirect("http://www.lifeprojectafrica.org" & Request.ServerVariables("PATH_INFO")) end if end select %> <%sv = Request.ServerVariables("PATH_INFO")%> <% 'if Request.ServerVariables("HTTPS") = "off" then hostName = request.ServerVariables("HTTP_HOST") sv = request.ServerVariables("PATH_INFO") if left(sv,1) = "/" then sv = Replace(lcase(left(sv,6)),"/","") else sv = lcase(left(sv,5)) end if select case Request.ServerVariables("HTTPS") case "off" select case sv case "conta", "donat" Response.Redirect("https://" & hostName & Request.ServerVariables("PATH_INFO")) end select case else if (sv <> "conta" and sv <> "donat") and (Request.ServerVariables("HTTPS") = "on") then%> <% Response.Redirect("https://" & hostName & Request.ServerVariables("PATH_INFO")) end if end select %> <%if len(Session("intFact")) & "" => 0 then Session("intFact") = Session("intFact") + 1 else Session("intFact") = 0 end if if Session("intFact") = 14 then Session("intFact") = 0 end if dim aryFacts(13) aryFacts(0) = "In 2002, 1.1 billion people lacked access to improved water sources, which represented 17% of the global population" aryFacts(1) = "In sub-Saharan Africa sanitation coverage is a mere 36%. " aryFacts(2) = "There are 396 million episodes of malaria every year, most of the disease burden is in Africa south of the Sahara." aryFacts(3) = "In sub-Saharan Africa, 42% of the population is still without improved water" aryFacts(4) = "Snail Fever (Schistosomiasis) from parasitic flatworms causes tens of thousands of deaths every year, mainly in sub-Saharan Africa." aryFacts(5) = "Many poor people, children and women in particular, die without ever accessing a health facility" aryFacts(6) = "Eight out of ten children, who get infections, die at home and six of them without any contact with formal health services." aryFacts(7) = "Almost 90% of all child deaths are due to preventable causes - malaria, pneumonia, diarrhoea, malnutrition and complications of low birth weight." aryFacts(8) = "Over 52% of deaths are caused by acute febrile illness, primarily Malaria." aryFacts(9) = "Taken together, acute respiratory infections, still births, and diarrhea diseases account for another 25% of deaths." aryFacts(10) = "84% of the total burden of disease is caused by communicable, maternal, perinatal and nutritional causes" aryFacts(11) = "Malaria causes an estimated 2.7 million deaths per year, with most of these deaths occurring in Africa." aryFacts(12) = "About 28.6 percent of Tanzanians cannot read and write in any language." aryFacts(13) = "The United Republic of Tanzania realizes that quality education is the pillar of national development. Only through quality education will Tanzania will be able to create a strong and competitive economy which can cope with the challenges of development and can easily adapt to the changing market and technological conditions in the region and global economy." %> Facts about Africa

   Life Project for Africa

 

 

Facts about Africa

<%=aryFacts(Session("intFact"))%>

More Facts

 

 

Contact Information

 

Life Project, Inc.
The Holyoke-Manhattan Building
80 South Highland Ave
Ossining, New York 10562 USA
Tel 914-941-5668
Fax 914-941-6091
Email: info@lifeprojectafrica.org

 

The creation, maintenance and hosting for this site is generously donated by
GAPC.net, Inc.

 

(Left)

Facts About Africa 

 

 

 

    <% for x = 0 to UBound(aryFacts)%>
  • <%=aryFacts(x)%>
  • <%next%>