private Function GETHTTP(adres)
Set StrHTTP = Server.CreateObject("Microsoft.XMLHTTP" )
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="
"
bitir="
"
itibaren = Instr(site,basla)
ekadar = Instr(site,bitir)
site = Mid(site,itibaren,ekadar-itibaren)
site=replace(site,"#666666",renk1)
site=replace(site,"#333333",renk2)
site=replace(site,"#111111",renk3)
site=replace(site,"/default.dll/Game","ayrinti.asp")
site=replace(site,"comp=","lig=")
site=replace(site,"&game=","&oyun=")
%>
canlı Maç Detayları
<%=site%>
