|
<%
Sub write_includes_derecha()
dim comm_server_name,Dir_Site
comm_server_name = ucase(trim(request.servervariables("server_name")))
Select Case comm_server_name
Case "METHODESEVILLA.ABC.ES","testsevilla.abc.es","sevilla.abc.es","www.abcdesevilla.es"
Dir_Site = "sevilla"
Case "METHODECORDOBA.ABC.ES","testcordoba.abc.es","cordoba.abc.es"
Dir_Site = "cordoba"
Case Else
Dir_Site = "abc"
End Select
'Server.Execute "/" & Dir_Site & "/includes/ocio/obj_0.htm"
'Server.Execute "/" & Dir_Site & "/includes/ocio/obj_1.htm"
'Server.Execute "/" & Dir_Site & "/includes/ocio/obj_2.htm"
'Server.Execute "/" & Dir_Site & "/includes/ocio/obj_3.htm"
'Server.Execute "/COM_ABC/google.asp"
End Sub
Call write_includes_derecha()
%>
|
