---
title: "Function GetDrop"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/38108-function-getdrop"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Vide"
published: "2000-10-02T11:54:00.000Z"
updated: "2000-10-02T11:54:00.000Z"
replies: 0
views: 819
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/38108-function-getdrop"
---

# Function GetDrop

## #1 — Vide, 2000-10-02T11:54Z

Detta är en funktion för att skapa en Selec-tagg med dynamsikt innehåll ifrån en databas...

\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Kod:\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#006666"\>Function GetDrop(SQL,DB,fld1,fld2,nme,siz,multi)

&nbsp;&nbsp;Set conDb = Server.CreateObject("ADODB.Connection")
&nbsp;&nbsp;conDb.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &\_
&nbsp;&nbsp;&nbsp;Server.Mappath(DB) & ";"

&nbsp;&nbsp;Set rsDrop = conDb.execute(SQL)

&nbsp;&nbsp;If Cint(multi) = 1 then strMulti = " multiple"

&nbsp;&nbsp;strDrop = "\<select name='" & nme & "' size='" & siz & "'" & strMulti & "\>"

&nbsp;&nbsp;While NOT rsDrop.EOF

&nbsp;&nbsp;&nbsp;&nbsp;strDrop = strDrop & "\<option value='" & rsDrop(fld1) & "'\>" & rsDrop(fld2) & "\</option\>"

&nbsp;&nbsp;rsDrop.MoveNext

&nbsp;&nbsp;Wend

GetDrop = strDrop & "\</select\>"

End Function

SQL är den SQLsträng som skall exekveras.
DB är sökvägen till databasen i Server.MapPath.
fld1 är det fält som skall representera 'value' i option-taggen
fld2 är det fält som skall representera det som står mellan option-taggarna
nme är namnet som select-taggen skall ha.
siz är värdet metoden size får i select-taggen.
multi är antingen 0 eller 1, 0 = inte multiselect, 1 = multiselect.

Ett exempel:

\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Kod:\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#006666"\>SQL = "Select \* from tblUsers"
DB = "/scripts/databas.mdb"
Response.write "\<form action='sida.asp' method='post'\>" &\_
GetDrop(SQL,DB,"id","namn","namnet",1,0) &\_
"\</form\>"

\[Redigerat av Vide den 02 okt 2000\]

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/38108-function-getdrop