herkese selamlar.. arkadaşlar benim elimde döviz kurlarını siteye eklemek için gereken kodlar var fakat nasıl yapacağımı bilmiyorum. bana adım adım anlatırsanız çok sevinirim...
<%
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
%>
Döviz kurlarının görünmesini istediğiniz yere aşağıdaki kodları yazın.
<%=strdolarsatis%>
<%=streurosatis%>
kodlar bunlar. en aşağıdaki kodu uzantısı html olan indexin içine attım, üstteki kodlarıda doviz.asp diye bir dosya yapıp onun içine attım ve ftpye upload ettim. fakat siteyi çalıştırdığımda döviz ler çıkmıyor, sadece "<%=strdolarsatis%>
<%=streurosatis%>" bu kodlar çıkıyor. yardımlarınız bekliyorum...
<%
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
%>
Döviz kurlarının görünmesini istediğiniz yere aşağıdaki kodları yazın.
<%=strdolarsatis%>
<%=streurosatis%>
kodlar bunlar. en aşağıdaki kodu uzantısı html olan indexin içine attım, üstteki kodlarıda doviz.asp diye bir dosya yapıp onun içine attım ve ftpye upload ettim. fakat siteyi çalıştırdığımda döviz ler çıkmıyor, sadece "<%=strdolarsatis%>
<%=streurosatis%>" bu kodlar çıkıyor. yardımlarınız bekliyorum...