Why doesn't my web page load up?

When I run this program it just ends without loading my page. The page is there but it just doesn't work.
Can anyone suggest where I might be going wrong.

Global win2,gw,gh,id,contactwin
gw = ClientWidth(Desktop()) : gh = ClientHeight(Desktop())
win2 = CreateWindow("Brochure",0,0,gw,gh,0,1)
contactwin=CreateHtmlView(0,0,gw,gh,win2)
ChangeDir "c:\Diskstuff2"
HtmlViewGo contactwin,CurrentDir$()+"contact.htm"
Repeat
id = WaitEvent()
VWait
Until id=$803
FreeGadget contactwin
FreeGadget win2

This may be obvious to someone, but please be patient with me, I am a newbie!

Are you sure the CurrentDir$() has a "/" @ the end....

Of you want to display a file in a html gadget u probably need to format the url string. So it needs to be something like this. file://c:/blabla/bla/contact.htm... I don't own B+ but i think its the way togo...

Thanks darklordz.
I got home from work and tried it on my computer. It works OK first time. I don't know why it doesn't work on computer at work. I'll try again tomorrow.
Maybe there are some different internet settings on my computer at work or something...

The page has quite a few gif's on it.