tabel > array > dropdown

<%
i = 0
set rs = Server.CreateObject("ADODB.Connection")
sql = "SELECT * FROM tabel ORDER BY ID ASC"
rs.Open str
set rs = rs.execute(sql)
%>

<SELECT NAME="oplysning">
    <option>
<% while NOT rs.EOF
myArr(i) = rs.fields("felt")
%>
<OPTION><%= rs.Fields("felt")%>
<%
rs.Move(1)
i = i+1
wend
rs.Close
%>
</select>

Så ændre du bare felt og tabel, så det passer...

Du kan bruger rs.GetRows:


SQL = "SELECT id, navn FROM tabel"
Set rs = Conn.Exeute(SQL)
if not rs.eof then
  arrRecords = rs.getrows()
end if
rs.close
set rs = nothing
%>
<select name="valg">
<% for i = 0 to ubound(arrRecords,2) %>
  <option value="<%=arrRecords(0,i)%>"><%=arrRecords(1,i)%></option>
<% next %>
</select>

eagleeye > Det var noget i den stil jeg tænkte på, men jeg får denne fejl :
Fejltype:
ADODB.Connection (0x800A0BB9)
Argumenterne har en forkert type eller er uden for det angivne område, eller der er opstået en konflikt mellem dem.

hov jeg kan ikke stave der mangler et c i executee i denne linje:

Set rs = Conn.Execute(SQL)

heh, så den heller ikke..
Nå, men nu får jeg "Der opstod en Microsoft VBScript-kørselsfejl (0x800A0009)
Indekset er uden for området: '1'" i linien  <option value="<%=arrRecords(0,i)%>"><%=arrRecords(1,i)%></option>

ahh, det er seføli' fordi jeg kun henter en attribut og derfor kun får et 1d array.. Har fixet det nu - tak for hjælpen

Du kan faktisk bruge GetStirng og lidt snide så gøre det kortere sådan her:


SQL = "SELECT id, navn FROM tabelhghg"
Set rs = Conn.Execute(SQL)
if not rs.eof then
  optionStr = "<option value=""" & rs.GetString(,,""">","</option><option value=""")
  optionStr = Left(optionStr,len(optionStr)-15 ) 'længden af <option value="
end if
rs.close
set rs = nothing
%>
<select name="valg"><%=optionStr%></select>

Den sidste kræver du hender to kolonne ud, den føste som ryger i value på option og den anden som bruge som det som vises. <option value=ID>NAVN</option>

hmm, sidder lidt og tænker på om det ikke ville være smartere at lave en metode der modtager tabel, attribut i parameterlisten og så kalde den funktion når man fik brug for den?

har lige strikket dette sammen:

<%
'Funktion til at oprette dropdown menu udfra databasetabel
function lavDropdown(paramTabel,paramAttribut)
    tabel = paramTabel
    attrib = paramAttribut
    SQL="SELECT " & attrib & " FROM " & tabel & ""
    Response.write(SQL)
    Response.end
    set rs = Conn.Execute(SQL)
        if not rs.eof then
            arrRecords = rs.getrows()
        end if
        rs.close
    set rs = nothing
    '//Opbygger listen%>
    <select name="<%= paramAttribut%>">
    <%  for i = 0 to ubound(arrRecords,2) %>
            <option value="<%= arrRecords(0,i)%>"><%= arrRecords(0,i)%></option>
    <%    next
    response.write "</select>"
end function
%>

men jeg kan ikke få variablene i parameterlisten til at indgå i min SQL streng - hvordan gør man det?

Så skal du kalde din function:  lavDropdown("tabelnavn","id,navn")

hehe.. naturligvis tak igen :)