<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
response.Expires=0
set conn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
conn.open trim(ConnStr)
bSetData=false
for i=0 to CantArrayTarTel
arTarPais(i)=empty:arTarPaisTar(i)=0
next
i=0
do
rs.Open "exec sp_GetRandomTarifas",conn
for j=0 to CantArrayTarTel
if trim(arTarPais(j))=trim(rs("nameTarifa")) then
exit for
elseif trim(arTarPais(j))=empty then
arTarPais(j)=trim(rs("nameTarifa")):arTarPaisTar(j)=rs("priceTarifa")
i=i+1:bSetData=true:exit for
end if
next
rs.close
loop until i>CantArrayTarTel
i=0
%>
NetGlobalPhone - Manténgase en contacto sin límites
Características incluidas
en cada plan:
Active su servicio de Net Global Phone con
números en los siguientes países
Correo
de voz
