%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open myDNS
set rs = server.createobject("ADODB.recordset")
%>
Super Rich Thailand (บริษัท ซุปเปอร์ริช (ประเทศไทย) จำกัด
<%
SQLs = "SELECT * FROM Item where Enable = 1 ORDER BY Dateadd desc "
'Response.Write vbCrLf & "" &vbCrLf
rs.Open SQLs, conn, 0, 1
if not rs.eof then
DateA = rs("DateAdd")
end if
rs.close
%>
DATE/วันที่
<%=FormatDatetime(DateA,2)%>
TIME/เวลา
<%=FormatDatetime(DateA,4)%>
Country
ประเทศ
Currency
สกุลเงิน
Buying Rate
ราคาซื้อ
Selling Rate
ราคาขาย
<%
SQLs = "SELECT * FROM Item where Enable = 1 ORDER BY SortCode,ID "
'Response.Write vbCrLf & "" &vbCrLf
rs.Open SQLs, conn, 0, 1
do while not rs.EOF
%>
Remarks
-The exchange rate above is the Baht per one unit of Foreign Currency.
-The above rates are subject to change without prior notice.
-Please contact our call center for firm rates : Call Centre (66) 02 254 4444