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