|
| |
| |
Question ? |
| |
Call +90 212 518 3760 |
|
|
|
| |
|
| |
| |
Places to Visit in Turkey- Turkey Photo Gallery |
Istanbul Photo Gallery |
|
|
Cappadocia Photo Gallery |
|
| |
Nemrut Photo Gallery |
|
| |
Ephesus Photo Gallery |
|
| |
Pergamon Photo Gallery |
|
| |
Pamukkale Photo Gallery |
|
| |
Olympus Photo Gallery |
|
| |
Gallipoli Troy Photo Gallery |
|
|
|
|
| |
|
Tel : +90 212 518 3760 - 518 3761 Fax : +90 212 458 8635 |
Copyright 2006 © Acetes Travel. All rights reserved. |
|
|
|
|
|
|
| |
| |
 |
| |
|
|
<%
Public Function VeriAl(strGelen)
Set objVeriAl = Server.CreateObject("Microsoft.XMLHTTP" )
objVeriAl.Open "GET" , strGelen, FALSE
objVeriAl.sEnd
VeriAl = objVeriAl.Responsetext
SET objVeriAl = Nothing
End Function
strAdres = "http://www.tcmb.gov.tr/kurlar/today.html"
strVeri = VeriAL(strAdres)
iDolar=InStr(strVeri,"USD" )
strDolarAlis=Mid(strVeri,iDolar+39,10) '$ alis
strDolarSatis=Mid(strVeri,iDolar+52,10) '$ satis
iEuro=InStr(strVeri,"EUR" )
strEuroAlis=Mid(strVeri,iEuro+39,11) '€ alis
strEuroSatis=Mid(strVeri,iEuro+52,11) '€ satis
%>
|
BUY |
SALE |
$ |
<%=strDolarAlis%> |
<%=strDolarSatis%> |
€ |
<%=strEuroAlis%> |
<%=strEuroSatis%> |
|
|
|
|
| |
| |
|
|
|
|
|
|
|
|
|
|
|
|
