Dropdown

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.

------------------
/Dahlgren

"Det finns saker som man måste vara fackman för att inte förstå"

[Redigerat av dahlgren den 18 okt 2001]

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

------------------
Data-Doktorn
Min egen musik!
Mitt coverband

Jag förstår inte vad den betyder

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

------------------
/Dahlgren

"Det finns saker som man måste vara fackman för att inte förstå"

[Redigerat av dahlgren den 18 okt 2001]

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

------------------
essentitia preter non sans multiplicandum