Nå så siger vi det. Men koden virker fint uden HierMenus. I kan selv se på koden og påvise hvad der er galt med den.
<%
Response.Expires = 0
Response.AddHeader "Pragma", "NO-CACHE"
Session.Timeout=120
%>
<html>
<head>
<title></title>
<SCRIPT LANGUAGE="JavaScript" TYPE="text/javascript">
<!--
NS4 = (document.layers);
IE4 = (document.all);
ver4 = (NS4 || IE4);
isMac = (navigator.appVersion.indexOf("Mac") != -1);
isMenu = (NS4 || (IE4 && !isMac));
function popUp(){return};
function popDown(){return};
if (!ver4) event = null;
//-->
</SCRIPT>
<SCRIPT LANGUAGE="JavaScript1.2" TYPE="text/javascript">
<!--
if (isMenu) {
menuVersion = 3;
menuWidth = 130;
childOverlap = 50;
childOffset = 5;
perCentOver = null;
secondsVisible = .5;
fntCol = "#000000";
fntSiz = "10";
fntBold = false;
fntItal = false;
fntFam = "sans-serif";
backCol = "#DDDDDD";
overCol = "#FFCCCC";
overFnt = "#000000";
borWid = 0;
borCol = "black";
borSty = "solid";
itemPad = 3;
imgSrc = "../images/pil.gif";
imgSiz = 10;
separator = 1;
separatorCol = "red";
isFrames = false; // <-- IMPORTANT
navFrLoc = "left";
keepHilite = true;
NSfontOver = true;
clickStart = false;
clickKill = false;
}
//-->
</SCRIPT>
<SCRIPT LANGUAGE="JavaScript1.2">
<!--
if (isMenu) {
document.write("<SCR" + "IPT LANGUAGE='JavaScript1.2' SRC='../hierArrays.js'><\/SCR" + "IPT>");
document.write("<SCR" + "IPT LANGUAGE='JavaScript1.2' SRC='../hierMenus.js'><\/SCR" + "IPT>");
}
//-->
</SCRIPT>
<link rel="stylesheet" type="text/css" href="../style.css">
</head>
<body bgcolor="#000000">
<table width="700" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" align="center">
<tr>
<td><img src="../images/top_logo1.jpg" width="251" height="61"><img src="../images/top_logo2.gif" width="304" height="61"><img src="../images/top_logo3.gif" width="145" height="61"><br>
<table width="700" border="0" cellpadding="0" cellspacing="0" name="Help line" height="18">
<tr>
<td width="259" bgcolor="#C2B26A" height="18">
<div align="center"><font face="Arial, Helvetica, sans-serif" size="2">Den
Sociale Ankestyrelses Intranet</font></div>
</td>
<td width="224"><img src="../images/rh_corner.gif" width="5" height="19" align="absbottom"></td>
<td width="22"> </td>
<td width="37" bgcolor="#C2B26A"><img src="../images/lh_corner.gif" width="5" height="18"></td>
<td width="49" bgcolor="#C2B26A">
<div align="center" class=text><a href="
http://aida/index.htm">Hjem</a></div> </td>
<td width="61" bgcolor="#C2B26A">
<div align="center" class=text><a href="../links/index.htm">Links</a></div>
</td>
<td width="48" bgcolor="#C2B26A">
<div align="center" class=text><a href="../help/index.htm">Hjælp</a></div>
</td>
</tr>
</table>
</td>
</tr>
<tr valign="top">
<td height="182">
<table width="700" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="128" bgcolor="#EFEAD6" valign="top">
<p><a href="#" onMouseOver="popUp('elMenu1',event)"
onMouseOut="popDown('elMenu1')"><img src="../images/menu_but1.jpg" width="128" height="44" border="0"></a><br>
<a href="#" onMouseOver="popUp('elMenu2',event)"
onMouseOut="popDown('elMenu2')"><img src="../images/menu_but2.jpg" width="128" height="23" border="0"></a><br>
<a href="#" onMouseOver="popUp('elMenu3',event)"
onMouseOut="popDown('elMenu3')"><img src="../images/menu_but8.jpg" width="128" height="23" border="0"></a><br>
<a href="#" onMouseOver="popUp('elMenu4',event)"
onMouseOut="popDown('elMenu4')"><img src="../images/menu_but3.jpg" width="128" height="23" border="0"></a><br>
<a href="#" onMouseOver="popUp('elMenu5',event)"
onMouseOut="popDown('elMenu5')"><img src="../images/menu_but4.jpg" width="128" height="23" border="0"></a><br>
<a href="#" onMouseOver="popUp('elMenu6',event)"
onMouseOut="popDown('elMenu6')"><img src="../images/menu_but5.jpg" width="128" height="23" border="0"></a><br>
<a href="#" onMouseOver="popUp('elMenu7',event)"
onMouseOut="popDown('elMenu7')"><img src="../images/menu_but6.jpg" width="128" height="23" border="0"></a><br>
<a href="#" onMouseOver="popUp('elMenu8',event)"
onMouseOut="popDown('elMenu8')"><img src="../images/menu_but7.jpg" width="128" border="0"></a></p>
<form method="post" action="" id=form1 name=form1>
<div align="center"><font face="Arial, Helvetica, sans-serif" size="2" color="#C2B26A">
</font>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<div align="center"><font face="Arial, Helvetica, sans-serif" size="2" color="#C2B26A"><b><font color="#000000">Simpel
søgning</font></b></font></div>
</td>
</tr>
<tr>
<td>
<div align="center">
<input type="text" name="textfield" size="14">
</div>
</td>
</tr>
</table>
</div>
</form>
<p> </p>
</td>
<td colspan="2" width="572" valign="top">
<table cellpadding="8"><tr><td>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
'tempConn = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("sm.mdb") & ";UID=admin;PWD=;"
Conn.Open "DSN=SM"
if Request.Form("valg") = "Søg på alt" then
SQL = "SELECT DISTINCT nummer, socialmeddelelseid, tmpdate1, tmpstikord, tmplov FROM [qrySM] WHERE [qrySM].[nummer] LIKE '%" & Request.Form("search") & "%' OR [qrySM].[tmpdate1] LIKE '%" & Request.Form("search") & "%' OR [qrySM].[tmpdate2] LIKE '%" & Request.Form("search") & "%' OR [qrySM].[resume] LIKE '%" & Request.Form("search") & "%' OR [qrySM].[tmpmyndighed] LIKE '%" & Request.Form("search") & "%' OR [qrySM].[tmpstikord] LIKE '%" & Request.Form("search") & "%' OR [qrySM].[tmplov] LIKE '%" & Request.Form("search") & "%' OR [qrySM].[tmpBekendt] LIKE '%" & Request.Form("search") & "%' OR [qrySM].[Resume] LIKE '%" & Request.Form("search") & "%' OR [qrySM].[Sagsfremstilling] LIKE '%" & Request.Form("search") & "%' OR [qrySM].[Afgoerelse] LIKE '%" & Request.Form("search") & "%' ORDER BY [qrySM].[tmpdate1]"
end if
if Request.Form("valg") = "Afgørelse truffet af" then
SQL = "SELECT distinct nummer, socialmeddelelseid, tmpdate1, tmpstikord, tmplov, tmpmyndighed FROM [qrySM] WHERE [qrySM].[tmpmyndighed] LIKE '%" & Request.Form("search") & "%' ORDER BY [qrySM].[tmpdate1]"
end if
if Request.Form("valg") = "Journal nr." then
SQL = "SELECT distinct nummer, tmpmyndighed, socialmeddelelseid, tmpdate1, tmpstikord, tmplov, nummer FROM [qrySM] WHERE [qrySM].[tmpmyndighed] LIKE '%" & Request.Form("search") & "%' ORDER BY [qrySM].[tmpdate1]"
end if
if Request.Form("valg") = "Afgørelsesdato" then
SQL = "SELECT distinct nummer, socialmeddelelseid, tmpdate1, tmpstikord, tmplov FROM [qrySM] WHERE [qrySM].[tmpdate1] LIKE '%" & Request.Form("search") & "%' ORDER BY [qrySM].[tmpdate1]"
end if
if Request.Form("valg") = "Udsendelsesdato" then
SQL = "SELECT distinct nummer, socialmeddelelseid, tmpdate1, tmpdate2 tmpstikord, tmplov FROM [qrySM] WHERE [qrySM].[tmpdate2] LIKE '%" & Request.Form("search") & "%' ORDER BY [qrySM].[tmpdate1]"
end if
if Request.Form("valg") = "Meddelelse nr." then
SQL = "SELECT distinct nummer, socialmeddelelseid, tmpdate1, tmpstikord, tmplov FROM [qrySM] WHERE [qrySM].[nummer] LIKE '%" & Request.Form("search") & "%' ORDER BY [qrySM].[tmpdate1]"
end if
if Request.Form("valg") = "Meddelelse om" then
SQL = "SELECT distinct nummer, socialmeddelelseid, tmpdate1, tmpstikord, tmplov, tmpstikord FROM [qrySM] WHERE [qrySM].[tmpstikord] LIKE '%" & Request.Form("search") & "%' ORDER BY [qrySM].[tmpdate1]"
end if
if Request.Form("valg") = "Lov" then
SQL = "SELECT distinct nummer, socialmeddelelseid, tmpdate1, tmpstikord, tmplov FROM [qrySM] WHERE [qrySM].[tmpLov] LIKE '%" & Request.Form("search") & "%' ORDER BY [qrySM].[tmpdate1]"
end if
if Request.Form("valg") = "Bekendtgørelse" then
SQL = "SELECT distinct nummer, socialmeddelelseid, tmpdate1, tmpstikord, tmplov, tmpbekendt FROM [qrySM] WHERE [qrySM].[tmpbekendt] LIKE '%" & Request.Form("search") & "%' ORDER BY [qrySM].[tmpdate1]"
end if
if Request.Form("valg") = "Resume" then
SQL = "SELECT distinct nummer, socialmeddelelseid, tmpdate1, tmpstikord, tmplov, resume FROM [qrySM] WHERE [qrySM].[Resume] LIKE '%" & Request.Form("search") & "%' ORDER BY [qrySM].[tmpdate1]"
end if
if Request.Form("valg") = "Sagsfremstilling" then
SQL = "SELECT distinct nummer, socialmeddelelseid, tmpdate1, tmpstikord, tmplov, sagsfremstilling FROM [qrySM] WHERE [qrySM].[sagsfremstilling] LIKE '%" & Request.Form("search") & "%' ORDER BY [qrySM].[tmpdate1]"
end if
if Request.Form("valg") = "Afgørelse" then
SQL = "SELECT distinct nummer, socialmeddelelseid, tmpdate1, tmpstikord, tmplov, afgoerelse FROM [qrySM] WHERE [qrySM].[afgoerelse] LIKE '%" & Request.Form("search") & "%' ORDER BY [qrySM].[tmpdate1]"
end if
set Result = Conn.Execute(SQL)
if request.form("search") = "" then
Response.Write "<table width=400><tr><td><span class=text>Du har ikke indtastet et søgeord</P><P><A HREF=search_sm.htm>Prøv igen</A></SPAN></tr></td></table>"
elseif Result.Eof then
Response.Write "<table width=400><tr><td><span class=text>Din søgning gav desværre intet resultat</P><P><A HREF=search_sm.htm>Prøv med en bredere søgning</A></SPAN></tr></td></table>"
else
Response.Write "<table width=400 border=0 cellpadding=4 cellspacing=0><tr><td bgcolor=#C2B26A><span class=text>Din søgning gav følgende resultat (sorteret efter afgørelsesdato):</SPAN></td></tr></table>"
do while not Result.Eof
Response.Write "<table border=""0"" width=""400"" bgcolor=#EFEAD6>"
Response.Write "<tr><td width=""300"">" & "<span class=text><b>Meddelelse nr.:</b> " & Result("nummer") & "</SPAN></td></tr>"
Response.Write "<tr><td width=""300"">" & "<span class=text><b>Afgørelsesdato:</b> " & Result("tmpdate1") & "</SPAN></td></tr>"
Response.Write "<tr><td width=""300"">" & "<span class=text><b>Meddelelse om:</b> " & Result("tmpstikord") & "</SPAN></td></tr>"
Response.Write "<tr><td width=""300"">" & "<span class=text><b>Lov:</b> " & Result("tmpLov") & "</SPAN></td></tr>"
Response.Write "<tr><td width=""300"">" & "<span class=text><a href=sm.asp?ID=" & Result("socialmeddelelseID") & ">" & "Læs SM" & " <img src=../images/link.gif border=0>" & "</a>" & "</SPAN><br><br></td></tr></table>"
Result.Movenext
i = i + 1
loop
end if
%></td>