---
title: "Byte av kategoribild vid klick"
type: "forum-thread"
url: "https://www.webforum.nu/amne/javascript/102083-byte-av-kategoribild-vid-klick"
topic: "JavaScript"
topic_url: "https://www.webforum.nu/amne/javascript"
author: "zeeke"
published: "2004-04-21T19:39:18.000Z"
updated: "2004-04-21T19:39:18.000Z"
replies: 0
views: 179
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/javascript/102083-byte-av-kategoribild-vid-klick"
---

# Byte av kategoribild vid klick

## #1 — zeeke, 2004-04-21T19:39Z

Hej 
Jag håller på med att skapa en meny som är kopplad till en databas för man enkelt ska kunna lägga till och ta bort olika kategorier mm. Hämtade ett script från <https://www.dynamicdrive.com> som hade den funktionen jag ville ha (stänga en nivå när man klickar på en annan)
Scriptet fungera nu kanon efter jag fick hjälp av jawbreaker
här med ett fnuttifikationsproblem. 
Till frågan. Kan man göra så att en bild byts när man öppnar och stänger en kategori med mitt script? Har ett annat menyscript som har den funktionen. Har försökt använda det här men men det blir inget bra. Problemet är nog att jag inte hajar vad scriptet gör exakt.
Vill någon ge mig tips hur jag ska lösa det eller kanske förklara scriptet lite så kanske jag kan lösa det själv?

Här kommer hela min kod iaf. 

\[kod\]
\<html\>
\<head\>
\<title\>kwmeny\</title\>
\<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"\>
\<style type="text/css"\>
.menutitle{
	cursor:pointer;
	margin-bottom: 5px;
	color:#000000;
	padding:2px;
	text-align:left;
	font-weight:bold;
	margin-left: 10px;
	font-family: Verdana, Arial, Helvetica, sans-serif;
	font-size: 10px;
}

.submenu{
margin-bottom: 0.5em;
margin-left: 20px;
}
\</style\>
\<script type="text/javascript"\>

/\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
\* Switch Menu script- by Martial B of <http://getElementById.com/>
\* Modified by Dynamic Drive for format & NS4/IE4 compatibility
\* Visit <http://www.dynamicdrive.com/> for full source code
\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*/

if (document.getElementById){ //DynamicDrive.com change
document.write('\<style type="text/css"\>\\n')
document.write('.submenu{display: none;}\\n')
document.write('\</style\>\\n')
}

function SwitchMenu(obj){
	if(document.getElementById){
	var el = document.getElementById(obj);
	var ar = document.getElementById("masterdiv").getElementsByTagName("span"); //DynamicDrive.com change
		if(el.style.display != "block"){ //DynamicDrive.com change
			for (var i=0; i\<ar.length; i++){
				if (ar*.className=="submenu") //DynamicDrive.com change
				ar*.style.display = "none";
			}
			el.style.display = "block";
		}else{
			el.style.display = "none";
		}
	}
}

\</script\>
\<link href="filer/style.css" rel="stylesheet" type="text/css"\>
\<%
	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & server.MapPath ("db/recept.mdb")
	Set RecSet = Server.CreateObject("ADODB.Recordset")

   kategori = "SELECT \* FROM tbl_kategori Order by cCat1 desc"
   RecSet.Open kategori, Connect 

%\>
\</head\>

\<body bgcolor="#F1E8C9"\>
\<%
response.Write("\<strong\>\<font size='3' face='Verdana, Arial, Helvetica, sans-serif'\>Meny\</font\>\</strong\> \<BR\>\<a href='default.htm' target='\_parent'class='menutitle'\>HEM\</a\>")

IF RecSet.eof THEN
Response.Write "tomt"
else
X= empty '\*\*\*\*\*\*\*\*\*\*\* X=räknare \*\*\*\*\*\*\*\*\*\*\*\*\*\*
X=1
'\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*'Meny start\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
Response.Write"\<div id='masterdiv'\>" 
'Response.Write"\<table width='130' border='1' cellspacing='0' cellpadding='0' bordercolor='#000000'\>\<tr\>\<td\>"

Do Until RecSet.EOF
'\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*Kategorier\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
'Response.Write "\<div class='menutitle' onclick='SwitchMenu('sub"&X&"')'\>" & RecSet("cCat1") &"\</div\>"
Response.Write "\<div class=""menutitle"" onclick=""SwitchMenu('sub"&X&"')""\>" & RecSet("cCat1") &"\</div\>"
'Response.Write("\<BR\>")
		'\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*Varor\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
		   varor = "SELECT \* FROM tbl_prod where cID = " & RecSet("cID")&""
		   set rs2 = Connect.execute(varor)
		
		IF rs2.eof THEN
		'Response.Write ("tomt" & "\<BR\>")
		else
				Response.Write("\<span class='submenu' id='sub"&X&"'\>")

		Do Until rs2.EOF
		'Response.Write("&nbsp; &nbsp; &nbsp; -" & rs2("receptnamn")& "\<BR\>")
		 Response.Write ("&nbsp; &nbsp;" &"\<a href='recept.asp?threadID="&rs2("rID")&"' title='"&rs2("receptnamn")&"' target='mainFrame'\>"&rs2("receptnamn")&"\</a\>" & "\<BR\>")

	rs2.MoveNext
       Loop
	   response.Write("\</span\>")
	   end if
	rs2.Close
	set rs2 = nothing
	'\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*Varor slut\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
X= X+1
RecSet.MoveNext
       Loop
	   end if
	   'response.Write"\</td\>\</tr\>\</table\>"

RecSet.Close
set RecSet = nothing
'\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*Kategorier slut\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
response.Write("\</div\>")'\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*Meny slut\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
%\>
\<a href="laggtill.asp" target="mainFrame" class="menutitle"\>Lägg till nytt recept\</a\> 
\</body\>
\</html\>**

Permalänk: https://www.webforum.nu/p/102083

---

Tråden på webben: https://www.webforum.nu/amne/javascript/102083-byte-av-kategoribild-vid-klick
