função writeSlt(arrstr,arrstrValue,selectedstr)
'arrstr O valor a ser exibido na opção, arrstrValue O valor real da opção, selectedstr O valor padrão a ser selecionado
'Divida uma string em um array, produza a opção selecionada e selecione selectedstr arrstr&arrstrValue para ter o mesmo comprimento
arr=dividir(arrstr,",")
arrValue=split(arrstrValue,",")
j=0
faça enquanto j<=ubound(arr)
se trim(arrValue(j))=trim(selectedstr) então
resposta.write "<option value='" & arrValue(j) & "' selecionado>" & arr(j) & "</option>"
outro
resposta.write "<option value='" & arrValue(j) & "'>" & arr(j) & "</option>"
terminar se
j=j+1
laço
função final
Os dados podem ser lidos do banco de dados para formar uma string delimitada por vírgula para gerar dinamicamente
a função <option> getArrString(table,fld,cond,sortfld)
do select
'Obtém os dados do campo especificado na tabela especificada e retorna uma string separada por vírgula
definir rs=server.createobject("adodb.recordset")
sql="select" & fld & "de" & tabela
se len(cond)>0 então
sql=sql & "onde" & cond
terminar se
se len(sortfld)>0 então
sql=sql & "ordenar por" & sortfld
terminar se
rs.Abrir sql,conn,1,1
se não (rs.bof ou rs.EOF), então
faça enquanto não rs.EOF
getArrString=getArrString & trim(rs(fld)) & ","
rs.MoveNext
laço
terminar se
getArrString=esquerda(getArrString,len(getArrString)-1)
rs.Fechar
definir rs = nada
função final