<% @LANGUAGE=VBSCRIPT %>
...::::: SAD La Matanza :::::...
<%
Requ = Request.ServerVariables("SERVER_NAME")
'Response.Write(Requ)
'sin www secretaria1
if Requ = "secretaria1.sadmatanza.com" then
Response.Redirect("http://sadmatanza.com/secretaria1")
end if
'con www secretaria1
if Requ = "www.secretaria1.sadmatanza.com" then
Response.Redirect("http://www.sadmatanza.com/secretaria1")
end if
'sin www secretaria2
if Requ = "secretaria2.sadmatanza.com" then
Response.Redirect("http://sadmatanza.com/secretaria2")
end if
'con www secretaria2
if Requ = "www.secretaria2.sadmatanza.com" then
Response.Redirect("http://www.sadmatanza.com/secretaria2")
end if
'Contador de Visitas...
Set FileObj = Server.CreateObject("Scripting.FileSystemObject")
nombFichero = Server.MapPath ("/contador/contador.txt")
Set Entrada= FileObj.OpenTextFile (nombFichero, 1, false )
Actual = Trim(Entrada.ReadLine)
Nuevo = Actual + 1
Set Salida= FileObj.CreateTextFile (nombFichero, True)
Salida.WriteLine(Nuevo)
%>