Dropdownbox med link

Det gøres med onChange værdien på selectboxen

<select name="link" onchange="location=this[this.selectedIndex].value;">
<option>-- Vælg --</option>
<% set rs = conn.execute("...")
  while not rs.eof %>
<option value="<%=rs("Url")%>"><%=rs("Name")%></option>
<%  rs.MoveNext
  wend %>
</select>

okay ser godt ud :)
men det jeg gerne vil er at der linkes til side2.asp
men querystringen til det link skal trækkes ud fra db..

håber du forstår..

Querystringen er det det der står i rs("Url")?? For så er det noget i denne stil:
<option value="side2.asp?<%=rs("Url")%>"><%=rs("Name")%></option>

det var lige det jeg manglede :) NU virker resten dog ikke.. hehe
Det her er hvad jeg har:

<select name="link" onchange="location=this[this.selectedIndex].value;">
<option>-- Vælg --</option>
<% set rs = conn.execute("...")
  while not rs.eof %>
  <option value="side2.asp?<%=rs("Name")%>"><%=rs("Name")%></option>
<%  rs.MoveNext
  wend %>
</select>

  <%Do While Not rs.eof

rs.MoveNext
Loop
rs.Close
Set rs = Nothing
%>

<%
conn.close
set conn = nothing
%>

Der er noget ef koden du ikke behøver, men det er ikke noget som vil give en fejl:

<select name="link" onchange="location=this[this.selectedIndex].value;">
<option>-- Vælg --</option>
<% set rs = conn.execute("...")
  while not rs.eof %>
  <option value="side2.asp?<%=rs("Name")%>"><%=rs("Name")%></option>
<%  rs.MoveNext
  wend %>
</select>
<%
conn.close
set conn = nothing
%>

Hmm jeg får ingen fejl men den trækker ikke ud fra databasen. Den har altså ingen data i boxen.

<%
Response.Buffer = True
%>
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open ("Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/saloon.mdb"))
SQL ="SELECT * FROM Galleri ORDER BY Id"
Set rs = Connect.Execute(SQL)
%>

<form method="POST" name="dropdown">
<select name="link" onchange="location=this[this.selectedIndex].value;">
<option>-- Vælg --</option>
<% set rs = conn.execute("...")
  while not rs.eof %>
  <option value="side2.asp?<%=rs("Name")%>"><%=rs("Name")%></option>
<%  rs.MoveNext
  wend %>
</select>
<%
conn.close
set conn = nothing
%>

Du har en tidligere set rs. så slet den jeg skrev inde i dropdownboxen:
<% while not rs.eof %>
  <option value="side2.asp?<%=rs("Name")%>"><%=rs("Name")%></option>
<%  rs.MoveNext
  wend %>

Så virker det :)
Får dog denne fejl:
Microsoft VBScript runtime error '800a01a8'

Object required: ''

/test/gallery2.asp, line 33

Hvad står der i linje 33??

der står

conn.close

Ændre de 2 linjer til:
Connect.close
set Connect = nothing

Saa mangler jeg bare et svar... :)

.o) <-- One Eyed Jack