---
title: "Dropdown"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/12167-dropdown"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "dahlgren"
published: "2001-10-18T11:11:00.000Z"
updated: "2001-10-18T17:09:00.000Z"
replies: 3
views: 174
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/asp/12167-dropdown"
---

# Dropdown

## #1 — dahlgren, 2001-10-18T11:11Z

Jag håller på med en admin sida till min länksamling. Om nån råkar lägga länken i fel kategori så vill jag kunna ändra det. Att gör det med en textbox som visar kategorin som är vald för länken är inte svårt men jag vill ha en dropdown meny där man som första valet har den kategorin som är vald och sen de överiga fem som man kan ändra till. Hela länksamlingen ligger i en Acessdatabas.

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

## #2 — aleborg, 2001-10-18T11:37Z

Så här har jag gjort för att kunna flytta inlägg i ett forum:

```
<%
kSQL="Select * From DevForum Where ForumBel Is Null"
Set rum=Conn.Execute(kSQL)
Do Until rum.EOF

fSQL="Select * From DevForum Where ForumBel="& rum("ForumID")
Set forum=Conn.Execute(fSQL)
Do Until forum.EOF
%>
        <option value="<%=forum("ForumID")%>"<% If forum("ForumID")= topic("ForumBel") Then %> selected<% End If %>><%=rum("ForumName")%> - <%=forum("ForumName")%></option>
<%
forum.MoveNext
Loop
forum.Close
Set forum=Nothing
rum.MoveNext
Loop
rum.Close
Set rum=Nothing
%>
```

hoppas det är till nån hjälp

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

## #3 — dahlgren, 2001-10-18T16:57Z

Jag förstår inte vad den betyder

> kSQL="Select \* From DevForum Where ForumBel Is Null"

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

## #4 — LarsG, 2001-10-18T17:09Z

Något så här, jag har gissat lite på vad dina kolumner och tabeller heter.

```
<%
set connect = server.createobject("adodb.connection")
connect.open "dsn"

kategori = "den som är vald"
sql = "select distinct kategori from kategorier" & _
      " order by iif(kategori='" & kategori & "',0,1),1"
%>
<select name='kategori'>
<%
selected = "selected"
set rs = connect.execute(sql)
while not rs.eof
  response.write "<option value='" & rs(0) & "' " & selected & ">" & rs(0) & "</option>"
  selected = ""
  rs.movenext
wend
response.write "</select>"
rs.close
connect.close
%>
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/12167-dropdown