<%
Function GETHTTP(adres)
Set StrHTTP =server.CreateObject("MSXML2.ServerXMLHTTP" )
'Set StrHTTP =server.CreateObject("MSXML2.ServerXMLHTTP.3.0" )
StrHTTP.Open "GET" , adres, false
StrHTTP.sEnd
GETHTTP = StrHTTP.Responsetext
Set StrHTTP = Nothing
End Function
URL = "http://beyazperde.mynet.com/haberler.asp"
Veri = GETHTTP(Url)
AramaBaslangic = "<html>"
AramaBitis = "</html>"
KodBaslasin = Instr(Veri, AramaBaslangic)
KodBitsin = Instrrev(Veri, AramaBitis)
Sonuclar = Mid(Veri, KodBaslasin+1, (KodBitsin-KodBaslasin))
arrFilmler = Split(Sonuclar, "<tr><td width=195 align=""center"" style=""padding-left:20px;line-height:20px;"" valign=""top"">")
i = 0
For Each Film in arrFilmler
if i> 0 Then
g7 = split(Film, "<img src=""")
g8 = split(g7(1), """ alt=")
resimadres = "http://beyazperde.mynet.com/images/haber/" & g8(0)
g1 = Split(Film, "<a class =anabaslik href=""/")
g2 = Split(g1(1), """>") --- hata satırı
sql = "Update tablom Set link = '"&g2(0)&"', resim='"&resimadres&"' where id ="&i
Set aktar = us.Execute(sql)
end if
i = i +1
next
response.write="yuklendi" %>Microsoft VBScript çalýþma hatasý hata '800a0009'
Alt simge aralık dıþı: '[number: 1]' yardımcı olursanız sevinirim iyi calismalar
