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

Test gripe A

¿Crees saberlo todo sobre la gripe A? ¿Estás preparado para identificarla? Contesta a nuestras diez preguntas sobre el virus A(H1N1) y te diremos tu grado de preparación para sobrevivir a la Gripe A .

1 . ¿Puedes contagiarte de gripe A si comes carne de cerdo?

b. No.
<% 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%>