<%response.Charset="ISO-8859-1"%> <% Dim Setores__MMColParam Setores__MMColParam = "1" If (Request.QueryString("CategoriaID") <> "") Then Setores__MMColParam = Request.QueryString("CategoriaID") End If %> <% Dim Setores Dim Setores_cmd Dim Setores_numRows Set Setores_cmd = Server.CreateObject ("ADODB.Command") Setores_cmd.ActiveConnection = MM_curriculo_STRING Setores_cmd.CommandText = "SELECT * FROM Subcategoria WHERE CategoriaID = ? ORDER BY Subcategoria ASC" Setores_cmd.Prepared = true Setores_cmd.Parameters.Append Setores_cmd.CreateParameter("param1", 5, 1, -1, Setores__MMColParam) ' adDouble Set Setores = Setores_cmd.Execute Setores_numRows = 0 %> - Selecione um setor - <% While (NOT Setores.EOF) %> "><%=(Setores.Fields.Item("Subcategoria").Value)%> <% Setores.MoveNext() Wend If (Setores.CursorType > 0) Then Setores.MoveFirst Else Setores.Requery End If %> <% Setores.Close() Set Setores = Nothing %>