|
|
<%
'// De??enler tan?lan?or
Dim rssOku
Dim ObjeListesi
Dim Obje
Dim I
Set rssOku = Server.CreateObject("MSXML2.FreeThreadedDOMDocument")
rssOku.async = False
rssOku.setProperty "ServerHTTPRequest", True
rssOku.Load("http://xml.altinkaynak.com.tr/doviz.xml")
'// Hata olu?rsa Ekrana Hata A?klamas?Yazd???or
If rssOku.parseError.errorCode <> 0 Then
Response.Write "Hata: " & rssOku.parseError.reason &"
" '// Hata Sebebi
Response.Write "Sat?: " & rssOku.parseError.line &"
" '// Hatan? Bulundu? Sat?
Response.Write "A?klama: " & rssOku.parseError.srcText '// Hata A?klamas?
End If
Set ObjeListesi = rssOku.getElementsByTagName("DOVIZ[ADI='Tarih']")
Set rssOku = Nothing
%>
<%
For Each Obje In ObjeListesi
Response.Write "Güncelleme: " & Obje.childNodes(1).Text & ""
Next
Set ObjeListesi = Nothing
%>
|
|
DÖVİZ
KURU BİLGİLERİ |
| |
Alış |
Satış |
<%
Set rssOku = Server.CreateObject("MSXML2.FreeThreadedDOMDocument")
rssOku.async = False
rssOku.setProperty "ServerHTTPRequest", True
rssOku.Load("http://xml.altinkaynak.com.tr/doviz.xml")
'// Hata olu?rsa Ekrana Hata A?klamas?Yazd???or
If rssOku.parseError.errorCode <> 0 Then
Response.Write "Hata: " & rssOku.parseError.reason &"
" '// Hata Sebebi
Response.Write "Sat?: " & rssOku.parseError.line &"
" '// Hatan? Bulundu? Sat?
Response.Write "A?klama: " & rssOku.parseError.srcText '// Hata A?klamas?
End If
Set ObjeListesi = rssOku.getElementsByTagName("DOVIZ[ADI='USD']")
Set rssOku = Nothing
%>
|
Dolar |
<%
For Each Obje In ObjeListesi
Response.Write "" & Obje.childNodes(1).Text & " | "
Response.Write "" & Obje.childNodes(2).Text & " | "
Next
Set ObjeListesi = Nothing
%>
<%
Set rssOku = Server.CreateObject("MSXML2.FreeThreadedDOMDocument")
rssOku.async = False
rssOku.setProperty "ServerHTTPRequest", True
rssOku.Load("http://xml.altinkaynak.com.tr/doviz.xml")
'// Hata olu?rsa Ekrana Hata A?klamas?Yazd???or
If rssOku.parseError.errorCode <> 0 Then
Response.Write "Hata: " & rssOku.parseError.reason &"
" '// Hata Sebebi
Response.Write "Sat?: " & rssOku.parseError.line &"
" '// Hatan? Bulundu? Sat?
Response.Write "A?klama: " & rssOku.parseError.srcText '// Hata A?klamas?
End If
Set ObjeListesi = rssOku.getElementsByTagName("DOVIZ[ADI='EUR']")
Set rssOku = Nothing
%>
|
Euro |
<%
For Each Obje In ObjeListesi
Response.Write "" & Obje.childNodes(1).Text & " | "
Response.Write "" & Obje.childNodes(2).Text & " | "
Next
Set ObjeListesi = Nothing
%>
|
|
|
ALTIN
KURU BİLGİLERİ |
| |
Alış |
Satış |
<%
Set rssOku = Server.CreateObject("MSXML2.FreeThreadedDOMDocument")
rssOku.async = False
rssOku.setProperty "ServerHTTPRequest", True
rssOku.Load("http://xml.altinkaynak.com.tr/altin.xml")
'// Hata olu?rsa Ekrana Hata A?klamas?Yazd???or
If rssOku.parseError.errorCode <> 0 Then
Response.Write "Hata: " & rssOku.parseError.reason &"
" '// Hata Sebebi
Response.Write "Sat?: " & rssOku.parseError.line &"
" '// Hatan? Bulundu? Sat?
Response.Write "A?klama: " & rssOku.parseError.srcText '// Hata A?klamas?
End If
Set ObjeListesi = rssOku.getElementsByTagName("DOVIZ[ADI='GA']")
Set rssOku = Nothing
%>
|
Has |
<%
For Each Obje In ObjeListesi
Response.Write "" & Obje.childNodes(1).Text & " | "
Response.Write "" & Obje.childNodes(2).Text & " | "
Next
Set ObjeListesi = Nothing
%>
<%
Set rssOku = Server.CreateObject("MSXML2.FreeThreadedDOMDocument")
rssOku.async = False
rssOku.setProperty "ServerHTTPRequest", True
rssOku.Load("http://xml.altinkaynak.com.tr/altin.xml")
'// Hata olu?rsa Ekrana Hata A?klamas?Yazd???or
If rssOku.parseError.errorCode <> 0 Then
Response.Write "Hata: " & rssOku.parseError.reason &"
" '// Hata Sebebi
Response.Write "Sat?: " & rssOku.parseError.line &"
" '// Hatan? Bulundu? Sat?
Response.Write "A?klama: " & rssOku.parseError.srcText '// Hata A?klamas?
End If
Set ObjeListesi = rssOku.getElementsByTagName("DOVIZ[ADI='C']")
Set rssOku = Nothing
%>
|
Çeyrek |
<%
For Each Obje In ObjeListesi
Response.Write "" & Obje.childNodes(1).Text & " | "
Response.Write "" & Obje.childNodes(2).Text & " | "
Next
Set ObjeListesi = Nothing
%>
|
|
HOŞGELDİNİZ
 Bursa'nın güzide ilçelerinden biri olan Gemlik'te halen
hizmet vermekte olan Kafkas Kuyumculuğun temeli 1950'li
yıllarda Sahabettin HASBUDAK tarafından İstanbul Kapalı
Çarşısında ufak bir atölye ile atılmıştır. Sahabettin
HASBUDAK İstanbul doğumlu fakat aslen Kafkasya kökenlidir.
Çıraklıkta ve kalfalıkta eğitimini dönemin büyük
atölyelerinde tamamlamış daha sonraki dönemlerde ise
el işi kakma ustalığını başarılı bir şekilde sürdürmüştür.
Babadan oğul'a devam eden süreç içerisinde ise Necmi
HASBUDAK 1985 yılında Kafkas Kuyumculuk adı altında
Eskişehir'de faaliyete başlamıştır. 1985-1989 yılları
arasında faaliyet gösteren Kafkas Kuyumculuk 1989 yılından
günümüze kadar ise Gemlik'te Hizmet vermektedir.
 |
|
