Explorer 4.0

Hvad kan explorer 4.o ikke bruge af denne kode, da jeg ikke kan se siden i en 4.0 explorer, men godt i en 5.x eller større?

koden :

<html>
...Database forbindelsen oprettes


<script language=\"javascript\">
function over(pic)
{
pic.src=\"on.gif\";
} //billede når musen er over linket
function out(pic)
{
pic.src=\"off.gif\";
} //billede når musen ikke er over linket

function vaelg()
{
parent.frames[\'HOVED\'].location.href = \'vaelg.asp\';
}
</script>

<body>
<%
Dim iChoice, OkChoice
\' Læser brugerens valg
iChoice = Request.QueryString(\"valg\")
\' Udfører brugerens valg...
Select Case iChoice
    Case \"menu1\"
      TypeNrEr = 1
      call undermenu
    Case \"menu2\"
      TypeNrEr = 2
      call undermenu
    Case \"menu3\"
      TypeNrEr = 3
      call undermenu
    Case \"menu4\"
      TypeNrEr = 4
      call undermenu
    Case Else
      %>
      <H6>
      <A HREF=\"menu.asp?valg=menu1\" TARGET=\"MENU\" onmouseover=\"document.images[0].src=\'knapper/haardehvidevarer2.gif\'; return true;\" border=\"0\" onmouseout=\"document.images[0].src=\'knapper/haardehvidevarer1.gif\'; return true;\" border=\"0\"><IMG SRC=\"knapper/haardehvidevarer1.gif\" alt=\"Se udvalget af h&aring;rde hvidevarer\" width=\"121\" height=\"23\" border=\"0\"></A>
      <A HREF=\"menu.asp?valg=menu2\" TARGET=\"MENU\" onmouseover=\"document.images[1].src=\'knapper/lys2.gif\'; return true;\" border=\"0\" onmouseout=\"document.images[1].src=\'knapper/lys1.gif\'; return true;\" border=\"0\"><IMG SRC=\"knapper/lys1.gif\" alt=\"Lys artikler\" width=\"121\" height=\"23\" border=\"0\"></A>
      <A HREF=\"menu.asp?valg=menu3\" TARGET=\"MENU\" onmouseover=\"document.images[2].src=\'knapper/elapparater2.gif\'; return true;\" border=\"0\" onmouseout=\"document.images[2].src=\'knapper/elapparater1.gif\'; return true;\" border=\"0\"><IMG SRC=\"knapper/elapparater1.gif\" alt=\"Elektriske apparater\" width=\"121\" height=\"23\" border=\"0\"></A>
      <A HREF=\"menu.asp?valg=menu4\" TARGET=\"MENU\" onmouseover=\"document.images[3].src=\'knapper/elartikler2.gif\'; return true;\" border=\"0\" onmouseout=\"document.images[3].src=\'knapper/elartikler1.gif\'; return true;\" border=\"0\"><IMG SRC=\"knapper/elartikler1.gif\" alt=\"Diverse elartikler\" width=\"121\" height=\"23\" border=\"0\"></A>
      <A HREF=\"tilbud.asp\" TARGET=\"HOVED\" onmouseover=\"document.images[4].src=\'knapper/tilbud2.gif\'; return true;\" border=\"0\" onmouseout=\"document.images[4].src=\'knapper/tilbud1.gif\'; return true;\" border=\"0\"><IMG SRC=\"knapper/tilbud1.gif\" alt=\"P&aring; tilbud nettop NU\" width=\"121\" height=\"23\" border=\"0\"></A>
      <A HREF=\"soeg.asp\" TARGET=\"HOVED\" onmouseover=\"document.images[5].src=\'knapper/soeg2.gif\'; return true;\" border=\"0\" onmouseout=\"document.images[5].src=\'knapper/soeg1.gif\'; return true;\" border=\"0\"><IMG SRC=\"knapper/soeg1.gif\" alt=\"S&oslash;g efter specifikke produkter\" width=\"121\" height=\"23\" border=\"0\"></A>
      <A HREF=\"indkoeb.asp\" TARGET=\"HOVED\" onmouseover=\"document.images[6].src=\'knapper/indkoebsguide2.gif\'; return true;\" border=\"0\" onmouseout=\"document.images[6].src=\'knapper/indkoebsguide1.gif\'; return true;\" border=\"0\"><IMG SRC=\"knapper/indkoebsguide1.gif\" alt=\"Hvordan handler Jeg online ved BAK-ELteknik?\" width=\"121\" height=\"23\" border=\"0\"></A>
      <BR>
      <A HREF=\"styring.shtml\" TARGET=\"HOVED\" onmouseover=\"document.images[7].src=\'knapper/styringstavler2.gif\'; return true;\" border=\"0\" onmouseout=\"document.images[7].src=\'knapper/styringstavler1.gif\'; return true;\" border=\"0\"><IMG SRC=\"knapper/styringstavler1.gif\" alt=\"Eksempler på styringstavler\" width=\"121\" height=\"23\" border=\"0\"></A>
      <A HREF=\"links.shtml\" TARGET=\"HOVED\" onmouseover=\"document.images[8].src=\'knapper/links2.gif\'; return true;\" border=\"0\" onmouseout=\"document.images[8].src=\'knapper/links1.gif\'; return true;\" border=\"0\"><IMG SRC=\"knapper/links1.gif\" alt=\"Links til vore leverand&oslash;rer\" width=\"121\" height=\"23\" border=\"0\"></A>
      <A HREF=\"profil.shtml\" TARGET=\"HOVED\" onmouseover=\"document.images[9].src=\'knapper/profil2.gif\'; return true;\" border=\"0\" onmouseout=\"document.images[9].src=\'knapper/profil1.gif\'; return true;\" border=\"0\"><IMG SRC=\"knapper/profil1.gif\" alt=\"Virksomheds profilen\" width=\"121\" height=\"23\" border=\"0\"></A>
      <BR>
      <A HREF=\"indkoeb.asp\" TARGET=\"HOVED\" onmouseover=\"document.images[10].src=\'knapper/informationer2.gif\'; return true;\" border=\"0\" onmouseout=\"document.images[10].src=\'knapper/informationer1.gif\'; return true;\" border=\"0\"><IMG SRC=\"knapper/informationer1.gif\" alt=\"Hj&aelig;lp, vejledning og forklaringer\" width=\"121\" height=\"23\" border=\"0\"></A>
      <%
    End Select
%>
<IMG SRC=\"knapper/lys2.gif\" width=\"0\" height=\"0\" border=\"0\">
<IMG SRC=\"knapper/brugt2.gif\" width=\"0\" height=\"0\" border=\"0\">
<IMG SRC=\"knapper/elapparater2.gif\" width=\"0\" height=\"0\" border=\"0\">
<IMG SRC=\"knapper/elartikler2.gif\" width=\"0\" height=\"0\" border=\"0\">
<IMG SRC=\"knapper/haardehvidevarer2.gif\" width=\"0\" height=\"0\" border=\"0\">
<IMG SRC=\"knapper/styringstavler2.gif\" width=\"0\" height=\"0\" border=\"0\">
<IMG SRC=\"knapper/tilbud2.gif\" width=\"0\" height=\"0\" border=\"0\">
<IMG SRC=\"knapper/soeg2.gif\" width=\"0\" height=\"0\" border=\"0\">
<IMG SRC=\"knapper/profil2.gif\" width=\"0\" height=\"0\" border=\"0\">
<IMG SRC=\"knapper/informationer2.gif\" width=\"0\" height=\"0\" border=\"0\">

<%
sub undermenu
    OkChoice = Request.QueryString(\"valg2\")
    Select Case OkChoice
    Case \"ok\"
        if Request.QueryString(\"valg\") = \"menu1\" then
          %>
          <A HREF=\"menu.asp?valg=none\" TARGET=\"MENU\" onmouseover=\"document.images[0].src=\'knapper/haardehvidevarer2.gif\'; return true;\" border=\"0\" onmouseout=\"document.images[0].src=\'knapper/haardehvidevarer1.gif\'; return true;\" border=\"0\"><IMG SRC=\"knapper/haardehvidevarer1.gif\" alt=\"Viser start menuen igen\" width=\"121\" height=\"23\" border=\"0\"></A><br>
          <%
          else
          if Request.QueryString(\"valg\") = \"menu2\" then
              %>
                <A HREF=\"menu.asp?valg=none\" TARGET=\"MENU\" onmouseover=\"document.images[0].src=\'knapper/lys2.gif\'; return true;\" border=\"0\" onmouseout=\"document.images[0].src=\'knapper/lys1.gif\'; return true;\" border=\"0\"><IMG SRC=\"knapper/lys1.gif\" alt=\"Lys artikler\" width=\"121\" height=\"23\" border=\"0\"></A>
              <%
            else
              if Request.QueryString(\"valg\") = \"menu3\" then
                  %>
                  <A HREF=\"menu.asp?valg=none\" TARGET=\"MENU\" onmouseover=\"document.images[0].src=\'knapper/elapparater2.gif\'; return true;\" border=\"0\" onmouseout=\"document.images[0].src=\'knapper/elapparater1.gif\'; return true;\" border=\"0\"><IMG SRC=\"knapper/elapparater1.gif\" alt=\"Elektriske apparater\" width=\"121\" height=\"23\" border=\"0\"></A>
                  <%
                  else
                  if Request.QueryString(\"valg\") = \"menu4\" then
                      %>
                      <A HREF=\"menu.asp?valg=none\" TARGET=\"MENU\" onmouseover=\"document.images[0].src=\'knapper/elartikler2.gif\'; return true;\" border=\"0\" onmouseout=\"document.images[0].src=\'knapper/elartikler1.gif\'; return true;\" border=\"0\"><IMG SRC=\"knapper/elartikler1.gif\" alt=\"Diverse elartikler\" width=\"121\" height=\"23\" border=\"0\"></A>
                      <%
                end if
              end if
          end if
        end if
        x=1
        \' Her klargøres til overmenu punkterne
        strSQL = \"SELECT COUNT(*) FROM emne WHERE Typenr= \" & TypeNrEr
        Set database = con.Execute(strSQL)
        nItems = (database(0))
          strSQL = \"SELECT * FROM emne WHERE Typenr= \" & TypeNrEr
          Set database = con.Execute(strSQL)
          %>
          <Font class=\"H3\">
          <%
          For i = 1 To nItems
                strSQL = \"SELECT COUNT(*) FROM emne WHERE emne.Emne = \'\" & database(\"emne\") & \"\' AND Typenr= \" & TypeNrEr & \" \"
                Set database3 = con.Execute(strSQL)
                nItems3 = (database3(0))
                if nItems3 > 0 then
                  %>       
              <IMG NAME=\'pic<%=x%>\' SRC=\'off.gif\' WIDTH=10 HEIGHT=10 BORDER=0><A HREF=\'menu.asp?valg=<%=Request.QueryString(\"valg\")%>&i=<%=i%>&valg2=ok&kategori=<%=database(\"Emnenr\")%>&varetype=<%=database(\"Emne\")%>\' Target=\'MENU\' onMouseOver=\'over(pic<%=x%>)\' onMouseOut=\'out(pic<%=x%>)\'><font color=\"#F1FF11\"><%=konverter(database(\"Emne\"))%></a><br>
                <%
              x = x + 1
              if database(\"emne\") = request.querystring(\"varetype\") then
                strSQL = \"SELECT COUNT(*) FROM kategori WHERE kategori.Emnenr = \" & Request.QueryString(\"kategori\")
                Set database5 = con.Execute(strSQL)
                nItems = (database5(0))
                if nItems > 0 then
                      strSQL = \"SELECT * FROM kategori WHERE kategori.Emnenr = \" & Request.QueryString(\"kategori\")
                      Set database4 = con.Execute(strSQL)
                      %>
                      <Font class=\"H4\">
                      <%
                      For j = 1 To nItems
                      x = x+1
                      %>       

                        <IMG NAME=\'pic<%=x%>\' SRC=\'off.gif\' WIDTH=10 HEIGHT=10 BORDER=0><A HREF=\'vare/vare.asp?varetype=<%=database4(\"Kategori\")%>\' Target=\'HOVED\' onMouseOver=\'over(pic<%=x%>)\' onMouseOut=\'out(pic<%=x%>)\'><font color=\"#FFFFFF\">» <%=konverter(database4(\"Kategori\"))%></a><br>
                        <script language=javascript>
                        vaelg()
                        </script>
                          <%
                      x= x+1
                      Database4.MoveNext
                      Next
                      %>
                    <Font class=\"H3\">
                      <%
                    else
                      %>
                      <IMG NAME=\'pic<%=x%>\' SRC=\'off.gif\' WIDTH=10 HEIGHT=10 BORDER=0><A HREF=\'vare/vare.asp?varetype=<%=request.querystring(\"varetype\")%>&kategori=<%=database(\"Emnenr\")%>\' Target=\'HOVED\' onMouseOver=\'over(pic<%=x%>)\' onMouseOut=\'out(pic<%=x%>)\'></a><br>
                      <%
                    x=x+1
                end if
                else
                \' ikke noget
              end if
            else
              %>
              <IMG NAME=\'pic<%=x%>\' SRC=\'off.gif\' WIDTH=10 HEIGHT=10 BORDER=0><A HREF=\'vare/vare.asp?varetype=<%=database(\"Emne\")%>\' Target=\'HOVED\' onMouseOver=\'over(pic<%=x%>)\' onMouseOut=\'out(pic<%=x%>)\'><font color=\"#F1FF11\"><%=konverter(database(\"Emne\"))%></a><br>
              <%
              x = x + 1
              end if
          Database.MoveNext
          Next
        %>
        <%
    \' Her laves den aktuelle hovedmenu knap...
    Case Else
        if Request.QueryString(\"valg\") = \"menu1\" then
          %>
          <A HREF=\"menu.asp?valg=none\" TARGET=\"MENU\" onmouseover=\"document.images[0].src=\'knapper/haardehvidevarer2.gif\'; return true;\" border=\"0\" onmouseout=\"document.images[0].src=\'knapper/haardehvidevarer1.gif\'; return true;\" border=\"0\"><IMG SRC=\"knapper/haardehvidevarer1.gif\" alt=\"Viser start menuen igen\" width=\"121\" height=\"23\" border=\"0\"></A><br>
          <%
          else
          if Request.QueryString(\"valg\") = \"menu2\" then
              %>
                <A HREF=\"menu.asp?valg=none\" TARGET=\"MENU\" onmouseover=\"document.images[0].src=\'knapper/lys2.gif\'; return true;\" border=\"0\" onmouseout=\"document.images[0].src=\'knapper/lys1.gif\'; return true;\" border=\"0\"><IMG SRC=\"knapper/lys1.gif\" alt=\"Lys artikler\" width=\"121\" height=\"23\" border=\"0\"></A>
              <%
            else
              if Request.QueryString(\"valg\") = \"menu3\" then
                  %>
                  <A HREF=\"menu.asp?valg=none\" TARGET=\"MENU\" onmouseover=\"document.images[0].src=\'knapper/elapparater2.gif\'; return true;\" border=\"0\" onmouseout=\"document.images[0].src=\'knapper/elapparater1.gif\'; return true;\" border=\"0\"><IMG SRC=\"knapper/elapparater1.gif\" alt=\"Elektriske apparater\" width=\"121\" height=\"23\" border=\"0\"></A>
                  <%
                  else
                  if Request.QueryString(\"valg\") = \"menu4\" then
                      %>
                      <A HREF=\"menu.asp?valg=none\" TARGET=\"MENU\" onmouseover=\"document.images[0].src=\'knapper/elartikler2.gif\'; return true;\" border=\"0\" onmouseout=\"document.images[0].src=\'knapper/elartikler1.gif\'; return true;\" border=\"0\"><IMG SRC=\"knapper/elartikler1.gif\" alt=\"Diverse elartikler\" width=\"121\" height=\"23\" border=\"0\"></A>
                      <%
                end if
              end if
          end if
        end if
        \' Her optælles antal punkter
        strSQL = \"SELECT COUNT(*) FROM emne WHERE Typenr= \" & TypeNrEr
        Set database = con.Execute(strSQL)
        nItems = (database(0))
        if nItems = 0 then
          response.write \"Kontakt venligst systemadministratoren på : webmaster@bak-elteknik.dk\"
          else
          strSQL = \"SELECT * FROM emne WHERE Typenr= \" & TypeNrEr
          Set database = con.Execute(strSQL)
          %>
          <Font class=\"H3\">
          <%
          \' Her gennemløbes hvad der sker ved klik på undermenu punkt...
          For i = 1 To nItems
                strSQL = \"SELECT COUNT(*) FROM emne WHERE emne.Emne = \'\" & database(\"emne\") & \"\' AND Typenr= \" & TypeNrEr & \" \"
                Set database3 = con.Execute(strSQL)
                nItems3 = (database3(0))
                if nItems3 > 0 then
                %>       
              <IMG NAME=\'pic<%=i%>\' SRC=\'off.gif\' WIDTH=10 HEIGHT=10 BORDER=0><A HREF=\'menu.asp?valg=<%=request.querystring(\"valg\")%>&i=<%=i%>&valg2=ok&kategori=<%=database(\"Emnenr\")%>&varetype=<%=database(\"Emne\")%>\' Target=\'MENU\' onMouseOver=\'over(pic<%=i%>)\' onMouseOut=\'out(pic<%=i%>)\'><font color=\"#F1FF11\"><%=konverter(database(\"Emne\"))%></a><br>
                <%
            else
              %>
              <IMG NAME=\'pic<%=i%>\' SRC=\'off.gif\' WIDTH=10 HEIGHT=10 BORDER=0><A HREF=\'vare/vare.asp?varetype=<%=database(\"Emne\")%>\' Target=\'HOVED\' onMouseOver=\'over(pic<%=i%>)\' onMouseOut=\'out(pic<%=i%>)\'><font color=\"#F1FF11\"><%=konverter(database(\"Emne\"))%></a><br>
              <%
              end if
          Database.MoveNext
          Next
        %>
        <%
        end if
        database.Close
        Set database = Nothing
    End Select
end sub
%>

</body>
</html>