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)
Set conDb = Server.CreateObject("ADODB.Connection")
conDb.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &_
Server.Mappath(DB) & ";"
Set rsDrop = conDb.execute(SQL)
If Cint(multi) = 1 then strMulti = " multiple"
strDrop = "<select name='" & nme & "' size='" & siz & "'" & strMulti & ">"
While NOT rsDrop.EOF
strDrop = strDrop & "<option value='" & rsDrop(fld1) & "'>" & rsDrop(fld2) & "</option>"
rsDrop.MoveNext
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]