RANDEVU ALDIKTAN SONRA MUAYENELERİNE GELEMEYECEK HASTALARIMIZIN RANDEVULARINI İPTAL ETMELERİNİ VEYA RANDEVULARIN İPTAL EDİLMESİ İÇİN 614 20 00 NUMARALI TELEFONDAN DAHİLİ 200 TUŞLAYARAK DANIŞMA BİRİMİMİZDEKİ GÖREVLİ ARKADAŞLARIMIZA BİLGİ VERMELERİNİ ÖNEMLE RİCA EDERİZ. BU SAYEDE RANDEVU ALAMAMIŞ OLAN DİĞER HASTALARIN MUAYENE OLABİLMELERİ SAĞLANMIŞ OLACAKTIR.
TEŞEKKÜR EDERİZ.
|
|
|
|||||||||||||||
|
| |||||||||||||||||
<%
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+50,10)
strDolarSatis=Mid(strVeri,iDolar+51,10)
iEuro=InStr(strVeri,"EUR" )
strEuroAlis=Mid(strVeri,iEuro+38,11) 'alis
strEuroSatis=Mid(strVeri,iEuro+50,11) 'satis
%>
devamı...
