UN MOMENTO POR FAVOR

ENTRANDO EN FESTAK.COM MAXIMO DE 20 SEGUNDOS

PERDONEN LAS MOLESTIAS

<% DIM strURL(3),KEP(3),GUTXI,SERVI GUTXI=10000 SERVI=1 '212.142.226.186-AG '212.142.227.248-JO '192.168.1.2-AZAZ strURL(1)="http://85.86.238.208/" strURL(2)="http://85.86.229.117/" 'strURL(3)="http://80.24.237.150/" strURL(3)="http://85.86.238.208/" FOR N=1 TO 3 On Error Resume Next Dim xml Set xml = Server.CreateObject("Microsoft.XMLHTTP") xml.Open "GET",strURL(N)&"test.txt", False xml.Send if xml.statusText = "OK" THEN KEP(N)=CLng(xml.responseText) if N=1 THEN KEP(1)=KEP(1) if N=3 THEN KEP(3)=KEP(3)*3 ' Response.Write xml.responseText&"
" ELSE KEP(N)=900 ' Response.Write "NO ENCONTRADO"&"
" END IF Set xml = Nothing NEXT FOR N =1 TO 3 IF KEP(N) < GUTXI THEN GUTXI = KEP(N) SERVI=N END IF NEXT 'Response.Write strURL(SERVI)&"
" Response.redirect strURL(SERVI) 'if SERVI=3 THEN SESSION.ABANDON %>