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