sub xjn()
set http1 = CreateObject("Microsoft.XMLHTTP")
http1.open "GET","chat.asp",false
http1.send()
str =unescape(http1.responseText)
if len(str)<>len(xx) then
pp.innerHTML=str
window.scroll 0,65000
set http1=nothing
end if
xx=str
settimeout "xjn()",6000
end sub
set http1 = CreateObject("Microsoft.XMLHTTP")
http1.open "GET","chat.asp",false
http1.send()
str =unescape(http1.responseText)
if len(str)<>len(xx) then
pp.innerHTML=str
window.scroll 0,65000
set http1=nothing
end if
xx=str
settimeout "xjn()",6000
end sub