sitende olmayan yerlr var üste doğru kayan resimlerin orda
Alıntı
<% Set objVeriAl = Server.CreateObject("Microsoft.XMLHTTP" ) objVeriAl.Open "GET" , "http://www.tcmb.gov.tr/kurlar/today.html", FALSE objVeriAl.sEnd Veri = objVeriAl.Responsetext Set objVeriAl = Nothing 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) strEuroSatis=Mid(strVeri,iEuro+50,11) %>
böyle bir kod görünüyor
