Dropdown

3 svar · 174 visningar · startad av dahlgren 18 okt. 2001

dahlgrenMedlem sedan aug. 20011 946 inlägg

Trådstart18 okt. 2001 11:11#1

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.

aleborgMedlem sedan jan. 20013 341 inlägg

18 okt. 2001 11:37#2

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

dahlgrenMedlem sedan aug. 20011 946 inlägg

18 okt. 2001 16:57#3

Jag förstår inte vad den betyder

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

LarsGMedlem sedan dec. 200012 464 inlägg

18 okt. 2001 17:09#4

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