Yardım ( Ücretli )

Merhaba arkadaşlar

ikişey isteyeceğim XMLHTTP ile anlık olarak altın ve borsa bilgilerini çekmem gerekmekte. Bunu yapabilecek arkadaşlar mutlaka vardır. Herhangi bir siteden anlık olarak çekmesigerekecek döviz kuru olayında olduğu gibi.

Pazartesiye kadar bana bunu yapabilecek arkadaslar arıyorum ücretli olarak. İstemiş olduğunuz ücret ve ileitşim bilgilerinizi bu konuya mesaj yada pm ile bildirirmisiniz.

1. Altın fiyatları
2. Borsa bilgileri

Teşekkürler

pm attım.

Programmer pm alındı ve msn eklendiniz msn de bekliyorum teşekkürler

<%
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)
strEuroSatis=Mid(strVeri,iEuro+52,11)
%>
<table width="201" border="0" cellpadding="0" cellspacing="0">
<tr>
<td>TUR</td>
<td>ALIS</td>
<td>SATIR</td>
</tr>
<tr>
<td>DOLAR</td>
<td><%=strDolarAlis%></td>
<td><%= strDolarSatis%></td>
</tr>
<tr>
<td>EURO</td>
<td><%=strEuroAlis %></td>
<td><%=strEuroSatis%></td>
</tr>
</table>

Al bu kod döviz gösterimi için işine yarar