Listbox itemdata?

[thedee23]

Lets say that your list box can hold 20 characters across and then all characters after that get cut off. So what you could do with your primary key is put that value in position 25 or somthing like that. For example let say your key is '10' you would put this string when adding the item -
list1.additem left$(StringFromTable + space$(24), 24) + yourkey.

So this is only going to show '10 ' and then the primary key is going to be cut off from the list box.

derek

[dcarlson]

Thanks, but I already got it.

function query2htmList(myquery,myname,myDSN)
	dim conntemp, rstemp
	set conntemp=server.createobject("adodb.connection")
	
	conntemp.open myDSN
	set rstemp=conntemp.execute(myquery)
	
	query2HTMlist="<Select name='" & myname & "'>"
	do until rstemp.eof
		thisfield=trim(RStemp(1))
		thisid=RStemp(0)
		if not isnull(thisfield) or thisfield<>"" then
			query2HTMlist=query2HTMlist & "<option value=" & thisid & ">" & thisfield & "</option>"
		end if
		rstemp.movenext
	loop
	query2HTMlist=query2HTMlist & "</select>"
	rstemp.close
	set rstemp=nothing
	conntemp.close
	set conntemp=nothing
end function