<% strIP = Request.ServerVariables("REMOTE_ADDR") strUSER = Request.Cookies("rand_number") if strUSER = "" then 'Response.Cookies("web") = strUSER Dim strrand randomize strrand=Int((10000000000000000000000000000000000000000 - 1 + 1) * Rnd + 1) Response.Cookies("rand_number") = strrand end if %>
Phone Card Hotline,phone card discounts Live chat by Boldchat Live chat by Boldchat  
VIEW WHOLESALE SHOPPING CART
Home
<% '---------drop down menu insert---------------------------------------------------------- Set MyConn = Server.CreateObject("ADODB.Connection") ConnStr = "DRIVER={Microsoft Access Driver (*.mdb)}; " ConnStr = ConnStr & "DBQ=" & Server.MapPath("/phonecardhotline/database/PhoneCardHotline.mdb") MyConn.Open(ConnStr) SQL = "Select * From web_card_file_copy where LIST <> 'n' ORDER BY DESCRIPTION" 'execute the SQL statement Set RS=MyConn.Execute(SQL) %>
Africa Asia Central America Europe International Mexico Middle East Philippines USA
 

PCH Carrier 1 Rates

A-Z carrier with least cost routing (LCR) and a minimum of 4 routes deep.
 
Sell Us Direct VoIP Termination   |   PCH Carrier 2 Rates
 
 |  bob@phonecardhotline.com


View Complete Rate Deck

A  B  C   D   E   F   G   H   I   J   K   L   M   N   O   P   Q   R   S   T   U   V   W   Y   Z  

<% stralpha = request.querystring("Alpha") response.write "" response.write stralpha response.write "" if stralpha = "A" or stralpha = "" then Set MyConn = Server.CreateObject("ADODB.Connection") ConnStr = "DRIVER={Microsoft Access Driver (*.mdb)}; " ConnStr = ConnStr & "DBQ=" & Server.MapPath("/phonecardhotline/database/voip.mdb") MyConn.Open(ConnStr) SQL4 = "Select distinct Country,Rate From t1 " 'execute the SQL statement Set RS4=MyConn.Execute(SQL4) end if if stralpha = "B" then Set MyConn = Server.CreateObject("ADODB.Connection") ConnStr = "DRIVER={Microsoft Access Driver (*.mdb)}; " ConnStr = ConnStr & "DBQ=" & Server.MapPath("/phonecardhotline/database/voip_b.mdb") MyConn.Open(ConnStr) SQL4 = "Select distinct Country,Rate From t1" 'execute the SQL statement Set RS4=MyConn.Execute(SQL4) end if if stralpha = "C" then Set MyConn = Server.CreateObject("ADODB.Connection") ConnStr = "DRIVER={Microsoft Access Driver (*.mdb)}; " ConnStr = ConnStr & "DBQ=" & Server.MapPath("/phonecardhotline/database/voip_c.mdb") MyConn.Open(ConnStr) SQL4 = "Select distinct Country,Rate From t1" 'execute the SQL statement Set RS4=MyConn.Execute(SQL4) end if if stralpha = "D" then Set MyConn = Server.CreateObject("ADODB.Connection") ConnStr = "DRIVER={Microsoft Access Driver (*.mdb)}; " ConnStr = ConnStr & "DBQ=" & Server.MapPath("/phonecardhotline/database/voip_d.mdb") MyConn.Open(ConnStr) SQL4 = "Select distinct Country,Rate From t1" 'execute the SQL statement Set RS4=MyConn.Execute(SQL4) end if if stralpha = "E" then Set MyConn = Server.CreateObject("ADODB.Connection") ConnStr = "DRIVER={Microsoft Access Driver (*.mdb)}; " ConnStr = ConnStr & "DBQ=" & Server.MapPath("/phonecardhotline/database/voip_e.mdb") MyConn.Open(ConnStr) SQL4 = "Select distinct Country,Rate From t1" 'execute the SQL statement Set RS4=MyConn.Execute(SQL4) end if if stralpha = "F" then Set MyConn = Server.CreateObject("ADODB.Connection") ConnStr = "DRIVER={Microsoft Access Driver (*.mdb)}; " ConnStr = ConnStr & "DBQ=" & Server.MapPath("/phonecardhotline/database/voip_f.mdb") MyConn.Open(ConnStr) SQL4 = "Select distinct Country,Rate From t1" 'execute the SQL statement Set RS4=MyConn.Execute(SQL4) end if if stralpha = "G" then Set MyConn = Server.CreateObject("ADODB.Connection") ConnStr = "DRIVER={Microsoft Access Driver (*.mdb)}; " ConnStr = ConnStr & "DBQ=" & Server.MapPath("/phonecardhotline/database/voip_g.mdb") MyConn.Open(ConnStr) SQL4 = "Select distinct Country,Rate From t1" 'execute the SQL statement Set RS4=MyConn.Execute(SQL4) end if if stralpha = "H" then Set MyConn = Server.CreateObject("ADODB.Connection") ConnStr = "DRIVER={Microsoft Access Driver (*.mdb)}; " ConnStr = ConnStr & "DBQ=" & Server.MapPath("/phonecardhotline/database/voip_h.mdb") MyConn.Open(ConnStr) SQL4 = "Select distinct Country,Rate From t1" 'execute the SQL statement Set RS4=MyConn.Execute(SQL4) end if if stralpha = "I" then Set MyConn = Server.CreateObject("ADODB.Connection") ConnStr = "DRIVER={Microsoft Access Driver (*.mdb)}; " ConnStr = ConnStr & "DBQ=" & Server.MapPath("/phonecardhotline/database/voip_i.mdb") MyConn.Open(ConnStr) SQL4 = "Select distinct Country,Rate From t1" 'execute the SQL statement Set RS4=MyConn.Execute(SQL4) end if if stralpha = "J" then Set MyConn = Server.CreateObject("ADODB.Connection") ConnStr = "DRIVER={Microsoft Access Driver (*.mdb)}; " ConnStr = ConnStr & "DBQ=" & Server.MapPath("/phonecardhotline/database/voip_j.mdb") MyConn.Open(ConnStr) SQL4 = "Select distinct Country,Rate From t1" 'execute the SQL statement Set RS4=MyConn.Execute(SQL4) end if if stralpha = "K" then Set MyConn = Server.CreateObject("ADODB.Connection") ConnStr = "DRIVER={Microsoft Access Driver (*.mdb)}; " ConnStr = ConnStr & "DBQ=" & Server.MapPath("/phonecardhotline/database/voip_k.mdb") MyConn.Open(ConnStr) SQL4 = "Select distinct Country,Rate From t1" 'execute the SQL statement Set RS4=MyConn.Execute(SQL4) end if if stralpha = "L" then Set MyConn = Server.CreateObject("ADODB.Connection") ConnStr = "DRIVER={Microsoft Access Driver (*.mdb)}; " ConnStr = ConnStr & "DBQ=" & Server.MapPath("/phonecardhotline/database/voip_l.mdb") MyConn.Open(ConnStr) SQL4 = "Select distinct Country,Rate From t1" 'execute the SQL statement Set RS4=MyConn.Execute(SQL4) end if if stralpha = "M" then Set MyConn = Server.CreateObject("ADODB.Connection") ConnStr = "DRIVER={Microsoft Access Driver (*.mdb)}; " ConnStr = ConnStr & "DBQ=" & Server.MapPath("/phonecardhotline/database/voip_m.mdb") MyConn.Open(ConnStr) SQL4 = "Select distinct Country,Rate From t1" 'execute the SQL statement Set RS4=MyConn.Execute(SQL4) end if if stralpha = "N" then Set MyConn = Server.CreateObject("ADODB.Connection") ConnStr = "DRIVER={Microsoft Access Driver (*.mdb)}; " ConnStr = ConnStr & "DBQ=" & Server.MapPath("/phonecardhotline/database/voip_n.mdb") MyConn.Open(ConnStr) SQL4 = "Select distinct Country,Rate From t1" 'execute the SQL statement Set RS4=MyConn.Execute(SQL4) end if if stralpha = "O" then Set MyConn = Server.CreateObject("ADODB.Connection") ConnStr = "DRIVER={Microsoft Access Driver (*.mdb)}; " ConnStr = ConnStr & "DBQ=" & Server.MapPath("/phonecardhotline/database/voip_o.mdb") MyConn.Open(ConnStr) SQL4 = "Select distinct Country,Rate From t1" 'execute the SQL statement Set RS4=MyConn.Execute(SQL4) end if if stralpha = "P" then Set MyConn = Server.CreateObject("ADODB.Connection") ConnStr = "DRIVER={Microsoft Access Driver (*.mdb)}; " ConnStr = ConnStr & "DBQ=" & Server.MapPath("/phonecardhotline/database/voip_p.mdb") MyConn.Open(ConnStr) SQL4 = "Select distinct Country,Rate From t1" 'execute the SQL statement Set RS4=MyConn.Execute(SQL4) end if if stralpha = "Q" then Set MyConn = Server.CreateObject("ADODB.Connection") ConnStr = "DRIVER={Microsoft Access Driver (*.mdb)}; " ConnStr = ConnStr & "DBQ=" & Server.MapPath("/phonecardhotline/database/voip_q.mdb") MyConn.Open(ConnStr) SQL4 = "Select distinct Country,Rate From t1" 'execute the SQL statement Set RS4=MyConn.Execute(SQL4) end if if stralpha = "R" then Set MyConn = Server.CreateObject("ADODB.Connection") ConnStr = "DRIVER={Microsoft Access Driver (*.mdb)}; " ConnStr = ConnStr & "DBQ=" & Server.MapPath("/phonecardhotline/database/voip_r.mdb") MyConn.Open(ConnStr) SQL4 = "Select distinct Country,Rate From t1" 'execute the SQL statement Set RS4=MyConn.Execute(SQL4) end if if stralpha = "S" then Set MyConn = Server.CreateObject("ADODB.Connection") ConnStr = "DRIVER={Microsoft Access Driver (*.mdb)}; " ConnStr = ConnStr & "DBQ=" & Server.MapPath("/phonecardhotline/database/voip_s.mdb") MyConn.Open(ConnStr) SQL4 = "Select distinct Country,Rate From t1" 'execute the SQL statement Set RS4=MyConn.Execute(SQL4) end if if stralpha = "T" then Set MyConn = Server.CreateObject("ADODB.Connection") ConnStr = "DRIVER={Microsoft Access Driver (*.mdb)}; " ConnStr = ConnStr & "DBQ=" & Server.MapPath("/phonecardhotline/database/voip_t.mdb") MyConn.Open(ConnStr) SQL4 = "Select distinct Country,Rate From t1" 'execute the SQL statement Set RS4=MyConn.Execute(SQL4) end if if stralpha = "U" then Set MyConn = Server.CreateObject("ADODB.Connection") ConnStr = "DRIVER={Microsoft Access Driver (*.mdb)}; " ConnStr = ConnStr & "DBQ=" & Server.MapPath("/phonecardhotline/database/voip_u.mdb") MyConn.Open(ConnStr) SQL4 = "Select distinct Country,Rate From t1" 'execute the SQL statement Set RS4=MyConn.Execute(SQL4) end if if stralpha = "V" then Set MyConn = Server.CreateObject("ADODB.Connection") ConnStr = "DRIVER={Microsoft Access Driver (*.mdb)}; " ConnStr = ConnStr & "DBQ=" & Server.MapPath("/phonecardhotline/database/voip_v.mdb") MyConn.Open(ConnStr) SQL4 = "Select distinct Country,Rate From t1" 'execute the SQL statement Set RS4=MyConn.Execute(SQL4) end if if stralpha = "W" then Set MyConn = Server.CreateObject("ADODB.Connection") ConnStr = "DRIVER={Microsoft Access Driver (*.mdb)}; " ConnStr = ConnStr & "DBQ=" & Server.MapPath("/phonecardhotline/database/voip_w.mdb") MyConn.Open(ConnStr) SQL4 = "Select distinct Country,Rate From t1" 'execute the SQL statement Set RS4=MyConn.Execute(SQL4) end if if stralpha = "Y" then Set MyConn = Server.CreateObject("ADODB.Connection") ConnStr = "DRIVER={Microsoft Access Driver (*.mdb)}; " ConnStr = ConnStr & "DBQ=" & Server.MapPath("/phonecardhotline/database/voip_y.mdb") MyConn.Open(ConnStr) SQL4 = "Select distinct Country,Rate From t1" 'execute the SQL statement Set RS4=MyConn.Execute(SQL4) end if if stralpha = "Z" then Set MyConn = Server.CreateObject("ADODB.Connection") ConnStr = "DRIVER={Microsoft Access Driver (*.mdb)}; " ConnStr = ConnStr & "DBQ=" & Server.MapPath("/phonecardhotline/database/voip_z.mdb") MyConn.Open(ConnStr) SQL4 = "Select distinct Country,Rate From t1" 'execute the SQL statement Set RS4=MyConn.Execute(SQL4) end if while not RS4.eof strCountry = RS4.fields("Country") strRate = RS4.fields("Rate") %> <% 'Calculate 5 percent + 1.5 cent of original rate strRate_Percent = strRate * 0.05 strRate_Total = strRate + strRate_Percent + 0.005 strRate_Total = FormatCurrency(strRate_Total, 3) %> <% RS4.MoveNext Wend %>
Country Rate
<%=strCountry%> <%=strRate_Total%>

A  B  C   D   E   F   G   H   I   J   K   L   M   N   O   P   Q   R   S   T   U   V   W   Y   Z  

View Complete Rate Deck

  |  bob@phonecardhotline.com