[an error occurred while processing this directive] <% RatesSQL = "SELECT Top 1 * FROM Rates,Staff Order by Rtid Desc" SET objRates = SERVER.CreateObject("ADODB.RECORDSET") objRates.OPEN RatesSQL , objConn,1 AgentsSQL = "SELECT AGCOUNTRY from Agents Group by AGCOUNTRY order by AGCOUNTRY " SET objAgents = SERVER.CreateObject("ADODB.RECORDSET") objAgents.OPEN AgentsSQL , objConn,1 %> <% if (Request.Form("Amount2Send") <> "" And Request.Form("Ctry2") <> "0") then if Request.Form("RemitType") = "0" then BRate = Session("BRate") Total = FormatNumber(((Cdbl(Request.Form("Amount2Send")) + Cdbl(Request.Form("Amount2Send") * (Request.Form("Ctry2"))) /100))/BRate,2) else QRate = Session("QRate") Total = FormatNumber(Cdbl(Request.Form("Amount2Send"))/QRate,2) end if else Errorlbl = "Please enter a valid amount and a country to send / receive remittance" end if %> <% NewsSQL = "SELECT * FROM News Order by NewsID Desc" SET objSNews = SERVER.CreateObject("ADODB.RECORDSET") objSNews.OPEN NewsSQL , objConn,1 %> <% if Request.QueryString("ID") <> "" then NewsSQLDetails = "SELECT * FROM News WHERE NewsID = "&Request.QueryString("ID")&"" SET objSNewsDetails = SERVER.CreateObject("ADODB.RECORDSET") objSNewsDetails.OPEN NewsSQLDetails , objConn,1 end if %> <% if Request.Form("AgentsList") <> "0" then AgentListSQL = "SELECT * from Agents Where AGCOUNTRY like '"&Request.Form("AgentsList")&"'" SET objAgentList = SERVER.CreateObject("ADODB.RECORDSET") objAgentList.OPEN AgentListSQL , objConn,1 end if %> [an error occurred while processing this directive]


AMAL EXPRESS LIMITED
T: 020 8749 6050
266 Uxbridge Road , London W: www.amaluk.com/
W12 7JA E : info@amaluk.com

YOUR NAME MESSAGE
TELEPHONE
E-MAIL
   
 
 
 
QBSH RATE
<%Session("BRate") = objRates("BRate")%> <%=objRates("BRate")%> 
BXD RATE
<%Session("QRate") = objRates("QRate")%> <%=objRates("QRate")%> 
DATE
<%=objRates("RTDate")%> 
<%=objRates("StName")%> 
 
 
AMOUNT  $  
 
 
 
   
   
[an error occurred while processing this directive] <% AgentsSQL = "SELECT AGCOUNTRY from Agents Group by AGCOUNTRY order by AGCOUNTRY " SET objAgents = SERVER.CreateObject("ADODB.RECORDSET") objAgents.OPEN AgentsSQL , objConn,1 %>

Our search engine for our agents in the world