%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." %>
|