---
title: "zOptionList v1.00"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/38180-zoptionlist-v1-00"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "PatrikB"
published: "2001-02-13T23:51:00.000Z"
updated: "2001-02-13T23:51:00.000Z"
replies: 0
views: 780
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/38180-zoptionlist-v1-00"
---

# zOptionList v1.00

## #1 — PatrikB, 2001-02-13T23:51Z

\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Kod:\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#006666"\>
	' zOptionList v1.00 Info!
	'========================
	' If Author info and this text is available, then:
	' Use zOptionList v1.00 for FREE!
	' And You can redistribute this script, but not
	' charge for it, or charge for anything in
	' the same package you distribute this script with
	' (like zip-archives, cd-roms or any other media).
	' NOTE!
	' No warranties are given with this script.
	' Use it at your own risc.
	'\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
	'\*
	'\*	Author: Patrik Berggren
	'\*	Homepage: <http://www.mrwize.nu> 
	'\*	Email: mrwize@mrwize.nu
	'\*
	'\*	GSM: +46 70 204 19 66
	'\*
	'\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
	
	'## -- make option list (drop-down list)
		Function WriteOptionList(OptionValueLabelArray, OptionListName, \_
									OptionSize, OptionMultiple)
		Dim arrOption
		Dim varOptionLabel
		Dim varOptionValue
		Dim strSelected
		Dim strOutPut
		Dim Y
		
		If OptionMultiple \<\> 1 Then
			OptionMultiple = ""
		Else
			OptionMultiple = " multiple"
		End If
		
		'## -- write start of select tag --
		strOutPut = "\<select " & \_
					"name=""" & OptionListName & """ " & \_
					"size=""" & OptionSize & """" & \_
					OptionMultiple & "\>"

		'## -- loop through the array --
		For Y = 0 To UBound(OptionValueLabelArray,2)
			strSelected = ""
			If Y = 0 Then strSelected = " selected"
					
				strOutPut = strOutPut & "\<option " & \_
								"value=""" & OptionValueLabelArray(0,Y) & """" & strSelected & "\>" & \_
								OptionValueLabelArray(1,Y) & "\</option\>"

		Next
		
		WriteOptionList = strOutPut & "\</select\>"
	End Function

Förklaring:
\- OptionValueLabelArray = en array hämtad med metoden objRS.GetRows

\- OptionListName = Namn på listboxen

\- OptionSize = Hur många rader i listboxen ska synas

\- OptionMultiple: 1 = flervals alternativ. 0 = ett alternativ valbart

Ett exempel:
\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Kod:\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#006666"\>
strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;" & \_
				"Data Source=" & Server.MapPath("/dbase/form.mdb")

Set objConn = Server.CreateObject("ADODB.Connection")
	objConn.Open strConnString
	
	strSQL = "SELECT FLD_ID, FLD_LABEL FROM TBL_FORMS"
	
	Set objRS = objConn.Execute(strSQL)
		varRows = objRS.GetRows
		objRS.Close
	Set objRS = Nothing
	
	objConn.Close
Set objConn = Nothing

Response.Write WriteOptionList(varRows,"list",1,0)

Vid eventuella frågor, maila mig på:  <info@mrwize.nu>    

cya,

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/38180-zoptionlist-v1-00