<% iResto=0 Application("Conta")=cLng(Application("Conta"))+1 iResto=(cLng(Application("Conta")) mod 2) if iResto=0 then strLink="http://193.205.4.76:81/asxgen/wmtencoder/live.wmv.asx&player=wm" else strLink="http://193.205.4.40:81/asxgen/wmtencoder/live.wmv.asx&player=wm" end if 'response.write strLink & "
" %>