COMBO EM ASP

Sub PreencheCBO(NomeCBO, Campo, CodigoCampo, Arquivo, CampoOrdem, Ordem, ItemSelecionado, UsaDistinct, InstrucaoWhere)



Dim rsRecordSet, sqlRecordSet, seleciona

if UsaDistinct <> "" AND UCASE(UsaDistinct)<>"NAO" then
	UsaDistinct = "DISTINCT"
	sqlRecordSet = "SELECT DISTINCT "
ELSE
	sqlRecordSet = "SELECT "
end if

sqlRecordSet = sqlRecordSet  & CAMPO &"," &CodigoCampo 

sqlRecordSet = sqlRecordSet  & " FROM " & ARQUIVO 
if InstrucaoWhere <> "" then
	sqlRecordSet = sqlRecordSet &" WHERE " & InstrucaoWhere	
end if
sqlRecordSet = sqlRecordSet & " ORDER BY " & CAMPOORDEM & " " & ORDEM

'response.write sqlrecordset
'response.End()

Set rsRecordSet = Server.CreateObject("ADODB.Recordset")
With rsRecordSet 
   .ActiveConnection = conexaodb 'Montamos acima.
    .CursorLocation   = adUseClient
	.CursorType       = adOpenStatic   
	.LockType         = adLockReadOnly    
    .Open             sqlRecordSet          
End With

do while not rsRecordSet.eof
	if rsRecordSet(CodigoCampo) = ItemSelecionado then
		seleciona = "selected"
	else
		seleciona = ""
	end if
	%>
	
	<option value = "<%=rsRecordSet(CodigoCampo)%>" <%=seleciona%> > <%=rsRecordSet(Campo)%> 
	</option>
<%
	rsRecordSet.movenext
loop



rsRecordSet.close
set rsRecordSet= nothing

end Sub