<%
On Error Resume Next
strCtrysign="$"
faceValue=20
strPromotion="10%"
strFacePlusPromo=22
strLanguage="sp"
if strlanguage="en" then
infoCountry="Código País"
infoRate="Tarifa por Minuto"
if strFacePlusPromo>0 then
infoMinutes="Minutos Compra de " & strCtrysign & faceValue & " mas Promoción"
else
infoMinutes="Minutos Compra de " & strCtrysign & faceValue
end if
strSel="Buscar"
strPais="País Destino:"
strDiscado="Ingrese Número de Destino:"
strHelp="Para consultar las tarifas vigentes para un país seleccione uno de la lista. Tambien puede ingresar el número telefonico destino que usted desea llamar y presione el boton Buscar."
strDesc = "Descripcion"
else
infoCountry="Country Code"
infoRate="Rate per Minute"
if strFacePlusPromo>0 then
infoMinutes="Minutes with purchase of " & strCtrysign & faceValue & " plus Promotion"
else
infoMinutes="Minutes with purchase of " & strCtrysign & faceValue
end if
strSel="Find"
strPais="Select Destination Country:"
strDiscado="or Enter Destination Number:"
strHelp="In order to find the rate for a specific country please select the destination country from the list. You can also enter the telephone number you wish to reach and press Find button."
strDesc = "Description"
end if
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRS = Server.CreateObject("ADODB.Recordset")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("rates.mdb")
strSelDestination=""
strSQL="SELECT CountryID, " & strDesc & " as CountryName FROM MP_Countries Order By " & strDesc
objRS.Open strSQL,objConn
strDestination=""
Do While Not objRS.EOF
If CStr(objRS("CountryID")) = cstr(strSelDestination) Then
strDestination=strDestination & ""
Else
strDestination=strDestination & ""
End If
objRS.MoveNext
Loop
objRS.close
%>
MultiPhone Best Rates for Long Distance to Colombia, Venezuela and the World / Para llamar a Venezuela, Colombia y todo el Mundo / Larga Distancia Internacional y Nacional /
