 |
|
Alış-Veriş
On-Line Alış-Veriş sitemiz şuanda güncellenmektediir. İlerleyen günlerde adresimizden alış-veriş yapabileceksiniz... |
|
Şikayet ve Önerileriniz için formumuzu kullanabilirsiniz. Form için... |
Artık Sitemiz Üzerinden kolayca istediğiniz heryere Mail Gönderebilirsiniz...
Mail Göndermek için Tıklayınız...
|
|
|
|
Hayatı kolaylaştırmak için çalışıyoruz... |
|
Broşürler
Çevreye katkımız olsun istedik ve sizler için hazırladık...
Bizi arayın
Telefon yada fax yolu bize ulaşabilirsiniz.
Tel : +90224 362 03 64
Fax : +90224 362 03 65
Kullanım Kulavuzları
Bosch Ürünlerinin kullanım klavuzlarını bu bölümde bulabilirsiniz.
On_Line Kredi Kartı Başvuruları
Bosch Ürünlerindeki Taksit ve ayrıcalıklardan daha fazla yararlanmak için kart başvurularınızı bu bölümden yapabilirsiniz.
|
|
| |
| <%
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)
strDolarSatis=Mid(strVeri,iDolar+52,10)
iEuro=InStr(strVeri,"EUR" )
strEuroAlis=Mid(strVeri,iEuro+39,11) 'alis
strEuroSatis=Mid(strVeri,iEuro+52,11) 'satis
%>
|
|
| |
|
|
|
|
|
