|
|
|
|
Istanbul Weather
 |
Exchange Rates
| |
|
| |
| |
WELCOME
TO
OUR COMPANY
WEBSITE SOURCE
Oryx Ltd.
has dedicated its large human and financial resources to
support and continue its growth in international markets,
together with its business partners, customers and special
consultants. This open minded approach, good reputation
and dedication to its business will continue to be the
corner stone for its future success.
|
 |
|
|
|
|
uPVC Profiles
|
|
<%
'_______________________________________________________
' motifnet.com WEB TASARIM - HOSTING - DOMAIN Hizmetleri
' info@motifnet.com
'_______________________________________________________
Dim Cagir, Veri, dAlis, dSatis, eAlis, eSatis, Url, kur1, kur2, usd, euro
const Request_GET = 2
Url = "http://www.tcmb.gov.tr/kurlar/today.html"
Set Cagir = Server.CreateObject("Softwing.AspTear")
Veri = Cagir.Retrieve(Url,Request_Get, "","","")
if Err <> 0 then
Response.Write "TCMB Döviz KURLARI ALINAMADI"& Err.Description
REsponse.End
end if
kur1 = Instr(1,Veri,"ABD DOLARI")
dAlis = Mid(Veri,kur1+24,15)
dSatis = Mid(Veri,kur1+40,15)
kur2 = Instr(1,Veri,"EURO")
eAlis = Mid(Veri,kur2+26,15)
eSatis = Mid(Veri,kur2+40,15)
%>
| |
|
| | | |
|
 |
