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