<%
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%>
Portugal ha hecho una pre-reserva de vacunas con la que se pretende alcanzar todos los grupos de riesgo (30 % de la población). La vacuna será gratuita y distribuida en los centros de salud. El gobierno anunció que, si fuera necesario, se habilitarían salas de aislamiento en los colegios para los casos de gripe A. Por otro lado, afirma que los ambulatorios están preparados para recibir pacientes con síntomas de gripe A.
Para más información: http://www.dgs.pt/
<%
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%>