%@ Language=VBScript %>
<% IP_Remote = Request.ServerVariables("HTTP_X_FORWARDED_FOR") Espacios = "." Pos1 = InStr(1,IP_Remote,Espacios,1) Pos2 = InStr(Pos1+1,IP_Remote,Espacios,1) PosT = Len(IP_Remote) Nombre = Left(IP_Remote,Pos2) If Nombre = "" Then 'Response.Redirect "http://gemma.unisabana.edu.co/oasis/search.html" Else Response.Redirect "http://www.unisabana.edu.co/directorio.htm" End IF %>
|