>Hi Friends!
>
>I have this code for check on Internet if is a valid version of the program, using especific pages... (Just for demo, using a temporary page for some days)
>
> On Start
>

oIE = CreateObject("InternetExplorer.Application")
>oIE.visible = .f.
>oIE.Navigate("www.extraofertas.com/comaco/validation/ivan01.html") //temporary page
>thisform.timer1.interval = 5000
>thisform.timer1.init

No need to call the init() here...

>
>On Timer:

Put the code to stop the timer before the loop.
If it take more than the interval to download the file,
the timer event will shoot again...

>

>Do While oIE.Document.ReadyState <> "complete"
>Enddo
>
>lcHTML = oIE.document.documentElement.innerHTML
>If Atc("Error 404", lcHTML)<>0 Then // if doesn´t exist, the program won´t work
>	this.interval = 0
>	oIE.Quit
>	Release oIE
>	thisform.caption = "Autorización Negada"
>	thisform.label1.visible = .f.
>	thisform.label2.visible = .f.
>	thisform.label3.visible = .f.
>	thisform.label4.visible = .t.
>	thisform.label5.visible = .t.
>	thisform.label6.visible = .t.
>	thisform.label7.visible = .t.
>	thisform.refresh
>	thisform.timer2.interval = 12000
>	thisform.timer2.init
>else
>	oIE.Quit
>	this.interval = 0
>	thisform.visible = .f.
>	do form entrada
>Endif

>
>It works fine, but sometimes, this code don´t recognize DOCUMENT.... any idea?

This probably occur when the page was loaded by another timer event...
Stop the timer on entering the timer event.

>
>Thanks in advance!!


HTH