|
'create
dropdown box
str =
""
str = str
& "<select onchange=""window.location.href=" &
_
"this.options[this.selectedIndex].value;""><option
value="""">" & _
"Please
select</option>"
'select values
from database
strSQL =
"SELECT LastName FROM Members"
Set rstmp =
server.CreateObject("ADODB.Recordset")
rstmp.open
strSQL,dbConnection
while not
rstmp.eof
str = str
& "<option value=""Members_list.asp?" & _
"a=integrated&simpleSrchFieldsComboOpt=&simpleSrchTypeComboNot="
& _
"&simpleSrchTypeComboOpt=&criteria=and&type1=&value11="
& _
rstmp("LastName")
& "&field1=LastName&option1=Equals¬1="">" & _
rstmp("LastName")
& "</option>"
rstmp.movenext
wend
str = str
& "</select>"
Response.Write
str
|