merhaba 6.1 de çalışan blok 6.2 geçince çalışmadı 17 satıra hata veriyor kod aşağıda bilenler lütfen bir incelesin.

<div align="center">
<center>
<table widş="550" id="doviz" cellspacing="1" height="20">
     <tr>
     <td widş="100%" valign="baseline">
          <div align="right">

          <marquee widş="82%" scrolldelay="15" scrollamount="3"><%
Public Function VeriAl(strGelen)
Set objVeriAl = Server.CreateObject("Microsoft.XMLHTTP" )
objVeriAl.Open "GET" , strGelen, FALSE
objVeriAl.sEnd
VeriAl = objVeriAl.Responsetext
SET objVeriAl = Noşing
End Function

*** sorun bu satırda 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+51,10)

iEuro=InStr(strVeri,"EUR" )

strEuroAlis=Mid(strVeri,iEuro+39,11) 'alis
strEuroSatis=Mid(strVeri,iEuro+50,11) 'satis

iSterlin=InStr(strVeri,"GBP" )

strSterlinAlis=Mid(StrVeri,iSterlin+35,15)
strSterlinSatis=Mid(StrVeri,iSterlin+50,15)

%>
<font face="Verdana" size="1" color="#3399FF">Amerikan Doları $</font> (<b>Alış:</b> <font face="Verdana" size="1" color="#FF0000"><%=strdolaralis%></font> <b>Satış:</b> <font face="Verdana" size="1" color="#FF0000"><%=strdolarsatis%></font>)<font face="Verdana" size="1" color="#3399FF">
// Euro €</font> (<b>Alış:</b> <font face="Verdana" size="1" color="#FF0000"><%=streuroalis%></font> <b>Satış:</b> <font face="Verdana" size="1" color="#FF0000"><%=streurosatis%></font>)<font face="Verdana" size="1" color="#3399FF">
// İngiliz Sterlini £</font> (<b>Alış:</b> <font face="Verdana" size="1" color="#FF0000"><%=strsterlinalis%></font> <b>Satış:</b> <font face="Verdana" size="1" color="#FF0000"><%=strsterlinsatis%></font>)</marquee></font><font face="Tahoma" size="2">
          </font>
     </td>
     </tr>
</table>
</center>
</div>

Kodlarda herhangi bir sorun göremedim. Ne tür bir hata verdiğini de yazarsanız çözüm bulma açısından iyi olur.

arkadaşım boş sayfada çalışıyor ama defaulta eklediğimizde çalışmıyor verdiği hata

Microsoft VBScript runtime error '800a01f4'

Variable is undefined: 'strAdres'

/blok/orta_piyasalar.asp, line 17

Değerli arkadaşım, sorun kodundaki değişkenlerin tanımlanmamış olmasından kaynaklanıyor.
------------------------
default.asp'de
------------------------
'// Değişkenler Tanımlanıyor
Dim Bag

bölümüne tanımlanmadığı için hata veren değişkenleri aşağıdaki gibi ekle.

'// Değişkenler Tanımlanıyor
Dim Bag, strAdres (varsa diğerleri de)

Sunucun kullandığın yöntemi destekliyorsa sorunsuzca çalışacaktır.

İyi çalışmalar dilerim.

evet dostum değişkenlerde sorunmuş şuan düzeldi. değişkenleri aşağıda veriyorum 6.1 den direk kopyaladım

'// Değişkenler Tanımlanıyor
Dim SQL
Dim intToplam
Dim intLooper
Dim intTdLooper
Dim arrMansetHaberler
Dim strAdres
Dim ObjVerial
Dim iDolar
Dim strDolarAlis
Dim strDolarSatis
Dim iEuro
Dim strEuroAlis
Dim strEuroSatis
Dim iSterlin
Dim strSterlinAlis
Dim strSterlinSatis

ama 1 sorun daha var bloğun resmi çıkmıyor 6.1 de o da sorunsuzdu şimdi çıkmıyor onada bakan olsa bi zahmet