Loopa upp i rullgardinsmeny

4 svar · 317 visningar · startad av mackanz 9 juli 2006

mackanzMedlem sedan sep. 2003443 inlägg

Frågan9 juli 2006 12:15#1

Hur gör man om man vill loopa upp i en dropdown list?

Jag gör så här: (saxad kod)


  <tr>

    <td valign="top" width="340" class="rander">

    

<FORM NAME="menyn">
<!--This is one of many scripts which are available at:     *---
//--http://www.JavaScript.nu/javascript                     *---
//--This script is FREE, but you MUST let these lines       *---
//--remain if you use this script.                          *---

Byt ut "self" mot "parent.framens_namn" om du har frames
och vill länka sidan till framen "framens_namn".
För att få "TARGET=_top" funktionen skriver du "top".
------------------------------****------->
<SELECT NAME="meny" onChange="self.location.href=this.options[this.selectedIndex].value;">
<OPTION VALUE="visautan.asp?id=<%=RecSet("namn")%>">[<%=RecSet("namn")%>]

<%End If
RecSet.MoveNext
Loop
End If%>

</SELECT>
</FORM>

</td>
  </tr>

</table>

Men den loopar ut flera dropdown listor.

Jag vill att den ska loopa ut länkarna i EN ENDA rullgardinsmeny

J.N.Medlem sedan apr. 20031 660 inlägg

10 juli 2006 08:26#2

HEJ!

Koden är ju endast halv, om ens det.

Det verkar som att du har början av loopen på fel ställe, men det finns inte ens en början!
Då slutet av loopen står på rätt ställe återstår början, men den har du inte skickat med.

mackanzMedlem sedan sep. 2003443 inlägg

10 juli 2006 10:38#3

Det är ett gruvsjöscript som jag håller på att modifiera.
Här är hela koden =)

<%Response.Buffer = "True"%>
<!--#Include file="settings.asp"-->

<!--************************************************Åsa Gruvsjö © 2001 www.gruvsjo.com  Asa@gruvsjo.com	Fri att använda om ni låter copyrightkoden stå kvar!************************************************-->

<html>
<head>
<title>»» Bildgalleri ««</title>

<script language="JavaScript">
<!-- 
function blured()
{
for (a in document.links) document.links[a].onfocus = document.links[a].blur;
}
if (document.all)
{
document.onmousedown = blured;
}
// -->
</script>

<link rel="stylesheet" href="stil.css" type="text/css">
</head>

<body bgcolor="#f0f0f0">

<%Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db%>

<table width="500" border="1" align="center">

<tr><td>Rubrik</td></tr>

<%Set RecSet=Conn.Execute("Select * From galleri Where sort='" & Request.Querystring("kat") & "' Order By namn desc")

If RecSet.EOF Then%>
  <tr>
    <td>Inga användare inlagda i kategorin <%=Request.Querystring("kat")%>!</td>
  </tr>
<%Else
Do Until RecSet.EOF
Set RS=Conn.Execute("Select * From galleri Where namn='" & RecSet("namn") & "'")
Set ReS=Conn.Execute("Select Top 1 * From bilder Where namn='" & RecSet("namn") & "' Order By datum desc")
Set Bilder=Conn.Execute("Select Count(*) As antal From bilder Where namn='" & RecSet("namn") & "'")

If ReS.EOF Then%>
  <tr>
    <td width="60" height="60" valign="top" nowrap class="normal">
 	<img src="pics/tom.gif" width="60" height="60" border="1">
    </td>
    <td valign="top" width="340" class="normal">
         <font size="2"><%=RecSet("namn")%> <font color="#800000">(<i>Inga bilder</i>)</font></font><br>
         Skapad: <%=Day(RS("datum")) & " " & MonthName(Month(RS("datum"))) & " " & Year(RS("datum"))%><br>
        <%If Len(RS("info")) > 60 Then%><%= Left(Replace(RS("info"), vbCrLf, "<br>" ),60)%>..<%Else%><%=Replace(RS("info"), vbCrLf, "<br>" )%><%End If%>
    </td>
  </tr>
<%Else%>
  <tr>

    <td valign="top" width="340" class="rander">

    

<FORM NAME="menyn">
<!--This is one of many scripts which are available at:     *---
//--http://www.JavaScript.nu/javascript                     *---
//--This script is FREE, but you MUST let these lines       *---
//--remain if you use this script.                          *---

Byt ut "self" mot "parent.framens_namn" om du har frames
och vill länka sidan till framen "framens_namn".
För att få "TARGET=_top" funktionen skriver du "top".
------------------------------****------->
<SELECT NAME="meny" onChange="self.location.href=this.options[this.selectedIndex].value;">
<OPTION VALUE="visautan.asp?id=<%=RecSet("namn")%>"><%=RecSet("namn")%>

<%End If
RecSet.MoveNext
Loop
End If%>

</SELECT>
</FORM>

</td>
  </tr>

</table>

           
			

</body>
</html>

J.N.Medlem sedan apr. 20031 660 inlägg

10 juli 2006 12:05#4

Ja, tre olika recordset; RS, ReS och Bilder gör det ju inte enklare...
Och ingen intendetering.
Hittade dock början av loopen, så den finns. :)
Det får bli generella råd.

Har du justerat koden på något sätt, eller är det originalkoden? Om, gå isåfall tillbaka till originalkoden.
Titta i källan på html-koden, och lista ut varför du (antagligen) får flera select-taggar.

mackanzMedlem sedan sep. 2003443 inlägg

10 juli 2006 22:05#5

det där är koden så som den ska vara..
har bara plockat bort en img tagg