zOptionList v1.00

<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,

------------------
Private Function OutPut(ByRef sString)
OutPut = "Who gives ..." & sString
End Function

[Redigerat av PatrikB den 14 feb 2001]