<%
dim comm_server_nameagencias
comm_server_nameagencias= trim(request.servervariables("server_name"))
Select Case lcase(comm_server_nameagencias)
case "sevilla.abc.es","sevilla-origin.abc.es","abcdesevilla.es","www.abcdesevilla.es","www.sevilla.abc.es","nuevosevilla.abc.es","prueba-sevilla.abc.es","prueba-cordoba.abc.es","cordoba.abc.es","www.cordoba.abc.es","cerosevilla.abc.es","cerosevilla-origin.abc.es","cero.abcdesevilla.es","cero-origin.abcdesevilla.es"
Common_GetSiteTagDiragencias = "sevilla"
case else
Common_GetSiteTagDiragencias = "abc"
End Select
if (Common_GetSiteTagDiragencias = "sevilla") then
%>
<%else%>
<%end if%>
<%
Select Case lcase(comm_server_nameagencias)
case "sevilla.abc.es","sevilla-origin.abc.es","abcdesevilla.es","www.abcdesevilla.es","www.sevilla.abc.es","nuevosevilla.abc.es","prueba-sevilla.abc.es","prueba-cordoba.abc.es","cordoba.abc.es","www.cordoba.abc.es","cerosevilla.abc.es","cerosevilla-origin.abc.es","cero.abcdesevilla.es","cero-origin.abcdesevilla.es"
Common_GetSiteTagDiragencias = "sevilla"
case else
Common_GetSiteTagDiragencias = "abc"
End Select
if (Common_GetSiteTagDiragencias = "sevilla") then
%>
<%else%>
<%end if%>
Los alemanes ven con relax la amenaza de gripe y dos de cada tres afirma que no se vacunará; sólo un 10% se dice determinado a ello, pese a que han sido contabilizadas ya 17.000 infecciones en el país, si bien sin desenlace mortal alguno. Con todo, los gobiernos central y federado están dispuestos a vacunar a las capas que consideran más débiles de la población y se ha dado luz verde al tratamiento gratuito de todo ciudadano asegurado que lo desee, con prioridad para los grupos de riesgo. Entre éstos no han sido mencionados los niños y los colegios han empezado a funcionar normalmente, aunque los gobiernos han editado y distribuido las normas de higiene a observar. La vacunación, que comienza a finales de septiembre, posibilitará proteger hasta a 65 millones de personas. Los primeros en ser atendidos serán pacientes con asma, diabetes, problemas cardiovasculares, obesos o portadores del virus VIH, además de personal sanitario.
Para más información: http://www.bmg.bund.de
<%
Select Case lcase(comm_server_nameagencias)
case "sevilla.abc.es","sevilla-origin.abc.es","abcdesevilla.es","www.abcdesevilla.es","www.sevilla.abc.es","nuevosevilla.abc.es","prueba-sevilla.abc.es","prueba-cordoba.abc.es","cordoba.abc.es","www.cordoba.abc.es","cerosevilla.abc.es","cerosevilla-origin.abc.es","cero.abcdesevilla.es","cero-origin.abcdesevilla.es"
Common_GetSiteTagDiragencias = "sevilla"
case else
Common_GetSiteTagDiragencias = "abc"
End Select
if (Common_GetSiteTagDiragencias = "sevilla") then
%>
<%else%>
<%end if%>