<%
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%>
Desde el mes de abril se activó un plan para evitar la expansión de la Gripe A que permitió que el primer caso no llegase hasta mediado el mes de junio. Desde algunas corporaciones locales se organizaron cacerías de jabalíes por la denominación de "gripe porcina".
Para más información: http://www.santetunisie.rns.tn/index.asp
<%
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%>