IE geeft foutmelding bij openen pagina

[Baumans]

We zijn voor school bezig met een website, maar we hebben een klein probleempje. Zodra de pagina geopent wordt in een internet explorer, ouder dan de nieuwste versie krijgen we de volgende foutmelding:

Regel 24:
fout: 'End' wordt verwacht.

In de nieuwste internet explorer werkt het wel goed.
De betreffende pagina is te bezoeken op www.rozema.lu

hieronder volgt de betreffende code:

code:

<script language="JavaScript"> 
<!--
var vb, goPage, flash5, flash4, geenFlash
//-->
</SCRIPT>

<script language="VBScript">
<!--
vb = 1

Function checkFlashIE()
dim goPage, flash5, flash4
    on error resume next
    
    flash5 = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.5"))
    flash4 = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.4"))

    if flash5 = true then
        if (screen.width > 800) then goPage = "indexg.htm"
        Else goPage = "indexk.htm"
        End if
    Else
        If flash4 = true  Then
            if (screen.width > 800) then goPage = "indexg.htm"
            Else goPage = "indexk.htm"      
            End if
    Else
            if (Screen.width >800) then goPage = "htmlg.htm"
            Else goPage = "htmlk.htm"
            End if
        End if
    End If
    checkFlashIE = goPage
End Function

//-->
</SCRIPT>

<script language="JavaScript1.1"> 
<!--
var ie  = (navigator.appName.toLowerCase().indexOf("microsoft") != -1);
var ns  = (navigator.appName.toLowerCase().indexOf("netscape") != -1);
var win = (navigator.platform.toLowerCase().indexOf("win") != -1);
var mac = (navigator.platform.toLowerCase().indexOf("mac") != -1);

if (ns) {
if (screen.width >800) {
goPage = "htmlng.htm"} 
else   {goPage = "htmlnk.htm"}}

if (ie && win) {
    if (vb == 1){
        goPage = checkFlashIE();
    } else {
    if (screen.width > 800) {goPage="indexg.htm"}
else {goPage="indexk.htm"}  }
}

document.location.href = goPage

//-->

</script>

[D2k]

en regel 24 is

[Verwijderd]

je moet eerst je code wat beter fomatteren, want vooral je if statements zijn onleesbaar...
Mischien komt daar de fout ook door, ik zou alle

code:

if c then blabla
else blabla2
endif

vravangen door

code:

if c then
  blabla
else
  blabla2
end if

als je in vb namelijk na de if ... then doorgaat op een regel moet je geen end if tikken...

Ik zou ook nooit client-side vb-script gebruiken, dan kan namelijk bijna niemand je pagina bekijken...

[ACM]

JS: P&W -> W&G

[Baumans]

Op zaterdag 05 januari 2002 13:29 schreef KoenM het volgende:
je moet eerst je code wat beter fomatteren, want vooral je if statements zijn onleesbaar...
Mischien komt daar de fout ook door, ik zou alle

code:

if c then blabla
else blabla2
endif

vravangen door

code:

if c then
  blabla
else
  blabla2
end if

als je in vb namelijk na de if ... then doorgaat op een regel moet je geen end if tikken...

Ik zou ook nooit client-side vb-script gebruiken, dan kan namelijk bijna niemand je pagina bekijken...

Bedankt daar lag het aan.