Merhaba arkadaşlar veri çekme sitemde bir hata oluştu. çözmeye çalıştım çözemedim.
Hata :
Microsoft VBScript çalışma zamanı hatası ’800a0009 ’
Aralık dışında: ’[number: 1]’
/ Veriikon / websitem / livescore.asp , satır 24
Hata Sayfaım kodları aşadıdadır. yardımlarınız için şimdiden teşekkürler.
<%
renk1="cccccc"
renk2="ededed"
renk3="cccccc"
private Function GETHTTP(adres)
Set StrHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP" )
if request("lig")<>"" then
StrHTTP.Open "GET" , "http://www.livescore.tv/default.dll?page="&request("lig"), false
else
StrHTTP.Open "GET" , "http://www.livescore.tv/default.dll", false
end if
StrHTTP.sEnd
GETHTTP = StrHTTP.Responsetext
Set StrHTTP = Nothing
End Function
site = GETHTTP(URL)
basla="<table width=""101"" bgcolor=""#666666"" cellspacing=""0"" cellpadding=""0"" border=""0"">"
bitir="<td colspan=""4"" height=""4""></td></tr></table>"
baslangic = split(site,basla)
bitis = split(baslangic(1),bitir)
site=bitis(0)
site=replace(site,"#666666",renk1)
site=replace(site,"#333333",renk2)
site=replace(site,"#111111",renk3)
site=replace(site,"default.dll","gjersisht.asp")
site=replace(site,"/game","")
site=replace(site,"comp=","lig=")
site=replace(site,"&game=","&oyun=")
%>
<html>
<head>
<title>livescore "</title>
<META HTTP-EQUIV="REFRESH" CONTENT="100">
<LINK href="../../style.css" type=text/css rel=stylesheet>
<head/>
<table>
<%=site%>
Hata :
Microsoft VBScript çalışma zamanı hatası ’800a0009 ’
Aralık dışında: ’[number: 1]’
/ Veriikon / websitem / livescore.asp , satır 24
Hata Sayfaım kodları aşadıdadır. yardımlarınız için şimdiden teşekkürler.
<%
renk1="cccccc"
renk2="ededed"
renk3="cccccc"
private Function GETHTTP(adres)
Set StrHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP" )
if request("lig")<>"" then
StrHTTP.Open "GET" , "http://www.livescore.tv/default.dll?page="&request("lig"), false
else
StrHTTP.Open "GET" , "http://www.livescore.tv/default.dll", false
end if
StrHTTP.sEnd
GETHTTP = StrHTTP.Responsetext
Set StrHTTP = Nothing
End Function
site = GETHTTP(URL)
basla="<table width=""101"" bgcolor=""#666666"" cellspacing=""0"" cellpadding=""0"" border=""0"">"
bitir="<td colspan=""4"" height=""4""></td></tr></table>"
baslangic = split(site,basla)
bitis = split(baslangic(1),bitir)
site=bitis(0)
site=replace(site,"#666666",renk1)
site=replace(site,"#333333",renk2)
site=replace(site,"#111111",renk3)
site=replace(site,"default.dll","gjersisht.asp")
site=replace(site,"/game","")
site=replace(site,"comp=","lig=")
site=replace(site,"&game=","&oyun=")
%>
<html>
<head>
<title>livescore "</title>
<META HTTP-EQUIV="REFRESH" CONTENT="100">
<LINK href="../../style.css" type=text/css rel=stylesheet>
<head/>
<table>
<%=site%>