Dropdown-Function til generering af utallige dropdowns!

oRS("MinVariabel") = strMinVar

Jeg skal køre sub'en med flere variabler, fx:
MinVar="bananer" i første kørsel og jeg skal spørge til recordsettet oRs("bananer")
I næste kørsel er MinVar="æbler" og jeg skal spørge efter oRs("Æbler")
Hvordan får jeg forespørgslerne inde i While/Wend til at være henholdsvis oRs("bananer") i første kørsel og oRs("Æbler") i næste?

Jeg forstår ikke helt spørgsmålet.

Okay!
Jeg har to dropdown boxe - en til fx værktøj (tools) og en til Frugter (Fruits).
Jeg vil have en function/sub som jeg kan kalde når jeg skal have generet en dropdown box med tools, fruits, cows osv.
Altså, ønsker jeg en tools-dropdown i min HTML, så skriver jeg
<% Call genDropdown(toolID,tool)%>
Dette skulle gerne kalde en Sub som ovennævte!
I denne Sub skulle der så gerne genereres output på oRs("toolID") og oRs("tool") som så fyldes ind i dropdown'en.

Spørsmålet er så hvordan får jeg min "toolID" ind i DDitemID
og videre til oRs("DDitemID") - Det skulle ende med at der reelt står oRs("toolID") inde i Sub'en

Er det lidt klarere nu!

AnyOne?

Jeg håber du kan bruge nedenstående:
<%
Sub genDropdown(ATableName, AFieldName, ASelectedID)
' ATableName = Tablenavn i database
' AFieldName = Feltnavn i tabel, som skal vises i dropdownlisten
' ASelectedID = Det valgte ID fra tabellen - hvis der var valgt et
  Set oConn=Server.CreateObject("ADODB.Connection")
  oConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("test.mdb")
  strSQL = "Select * From " & ATableName ' tblfrugt, tbltools mv.
  Set oRs = oConn.Execute(strSQL)
  While not oRs.EOF
    if CInt(ASelectedID) = CInt(oRs("ID")) then
      Response.Write "<option selected value=" & oRs("ID") & ">" & oRs(AFieldName) & "</option>"  & VbCrLf
    else
      Response.Write "<option value=" & oRs("ID") & ">" & oRs(AFieldName) & "</option>"  & VbCrLf
    end if
    oRs.MoveNext
  Wend
  oRs.Close
  oConn.Close
  Set oRs = Nothing
  Set oConn = Nothing
End Sub
%>

<html>
<head>
<title>Untitled</title>
</head>
<body>
<% ' Hvis der er valgt en vises den
  if Request.QueryString("mode") <> "" then
    strSel = request.Form("MyItem")
    Response.Write("Du valgte: " & strSel)
  end if
  Response.Write("<br>")
%>
  <FORM METHOD="POST" ACTION="dropdown.asp?mode=check">
  <select name="MyItem">
  <option>--- MyItems ----</option>
  <% Call genDropdown("tbltools", "navn", strSel)%>
  </select>
  <input type="submit" name="submit">
  </form>
</body>
</html>

1000 Tak!!!