<%
const Request_GET = 2
url = "http://www.tcmb.gov.tr/kurlar/today.html"
Dim Tear, veri
On Error Resume Next 'Herkes hata yapabilir :)
Set Tear = Server.CreateObject("Softwing.AspTear")
veri = Tear.Retrieve(url,Request_Get, "","","")
if Err <> 0 then ' Eğer bizde hata yaptı isek
Response.Write "Bir hata oluştu:"& Err.Description
REsponse.End
end if
dlr = Instr(1,veri,"ABD DOLARI")
dAlis = Mid(veri,dlr+40,15) '
dSatis = Mid(veri,dlr+53,15)
dlr2 = Instr(1,veri,"EURO")
eAlis = Mid(veri,dlr2+40,15) '
eSatis = Mid(veri,dlr2+53,15)
%>
Usd Alış
Usd Satış
Euro Alış Euro Satış |
:
:
: : |
<%=dSatis%> YTL
<%=dAlis%> YTL
<%=eSatis%> YTL
<%=eAlis%> YTL |
|
|
|
-Fiyat Listeleri
-
Donanım (.xls 300 kb) -
Yazılım
- Teknik Destek
-İstek ve Öneriler Formu |
- Kampanyalar
-
Kampanya I
( ekono )
-
Kampanya II ( amd süper )
-
Kampanya III ( intel süper )
-
Kampanya IV ( intel ultra ) |
Başka yerde bu fiyatlar
yok.
www.ekonoweb.com
www.7175design.com
|