Boa tarde pessoal! Preciso de uma ajudinha de vcs urgente. ``` Por motivo de segurança eu preciso criar um select na minha página, fazendo uso de parameters. (Primeira vez que faço uso disto- no ASP Classic). Após eu crio o recordset, e preciso percorrê-lo pára imprimir a lista. Meu recordset retorna 38 registros, porém imprime apenas 01 registro. Vou colocar o código da página, para ver se podem me dar alguma luz. Obrigada ************************************************* vDataInicial = Trim(Request.Form("txtDataInicial")) vDataFinal = Trim(Request.Form("txtDataFinal")) AbrirConexao objConn Set rstEmail = Server.CreateObject("ADODB.Recordset") Set command = Server.CreateObject("ADODB.Command") command.ActiveConnection = objConn command.Prepared = true command.CommandType = adCmdText command.commandtext="SELECT * FROM MCD014TB_LOG WHERE (TRUNC(PKDT_014LOG) BETWEEN TO_DATE(?, 'MM-DD-YYYY') AND TO_DATE(?, 'MM-DD-YYYY'))" command.Parameters.Append(command.CreateParameter("@DataIni", adVarChar, adParamInput, 10, vDataInicial)) command.Parameters.Append(command.CreateParameter("@DataFin", adVarChar, adParamInput, 10, vDataFinal)) set rstEmail = command.execute *** aqui vem parte para montar html*** <% response.write "Qtdade de Registros " & rstEmail.RecordCount (Ele retorna 38 registros) Do While Not rstEmail.Eof %> <%=rstEmail("PKDT_014LOG")%> <%=rstEmail("FKNI_014COD_PECA")%> <%=rstEmail("ATSF_014TP_LOG")%> <% rstEmail.MoveNext Loop rstEmail.Close Set rstEmail = Nothing CloseObj objConn ** O bloco dentro do "Do while" ele imprime somente uma vez e deveria ser 38 registros. **Resultado da saida anexa. Fico muito grata se me ajudarem...preciso entregar isso dia 27/02. ![imagem](https://forum.imasters.com.br/monthly_2019_02/Result_Tela.JPG.684a4e8b8f09f21c994f2660de0c36c7.JPG) ```

cnasci

Recordset - ASP Classico