<% 'XMLHTTP Open private Function GETHTTP(adres) Set StrHTTP = Server.CreateObject("Microsoft.XMLHTTP" ) StrHTTP.Open "GET" , adres, false StrHTTP.sEnd GETHTTP = StrHTTP.Responsetext Set StrHTTP = Nothing End Function 'XMLHTTP Close URL = "http://www.tcmb.gov.tr/kurlar/today.html" bilgicek = GETHTTP(URL) 'Asagidaki Bölüm "alfatasarim" in yazdigi Code' dan alinmistir 'http://www.alfatasarim.com a=InStr(1,bilgicek,"USD" ) dolar1=Mid(bilgicek,a+39,10) dolar2=Mid(bilgicek,a+52,10) c=InStr(1,bilgicek,"EUR" ) euro1=Mid(bilgicek,c+37,11) euro2=Mid(bilgicek,c+52,11) %>
 
  Peugeot 407

ROAD TOUCH TECH, mükemmel bir yol tutuş için geliştirilmiş,
çift salıncaklı ön süspansiyon ve yatık amortisörlü çok kollu
bağımsız arka süspansiyon gibi teknolojileri birleştirmektedir.
1.6 HDi 110 hp versiyonunun üstün özellikleri**

  • En yüksek tork değeri: 240 Nm/1750 dd
  • En düşük şehir dışı yakıt tüketimi: 4.4 lt /100 km
  • En düşük CO2 emisyon değeri: 140 gr/km
 
 
<% set oPage = nothing %>