Byte av kategoribild vid klick

zeekeMedlem sedan apr. 20047 inlägg

21 apr. 2004 19:39#1

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>**