<%@ Language=VBScript %> <HTML> <HEAD> <TITLE>Listagem de Clientes</TITLE> </HEAD> <BODY> <H1> <FONT color=navy>Clientes da Empresa ABC LTDA.</FONT> </H1> <% 'O Primeiro passo é criar a conexão com o Banco de dados 'Para isto crio um objeto do tipo Connection 'Cria um Objeto do Tipo ADODB.Connection Set conn = Server.CreateObject("ADODB.Connection") 'Agora abro uma conexão com a fonte ODBC "Nwind" 'criada anteriormente. conn.Open "nwind" 'O próximo passo é criar uma instrução SQL 'a qual é utilizada para criar a listagem de Clientes. inst_sql="SELECT Customers.IdCustomer, Customers.ContactTitle, Customers.Address,Customers.Phone FROM Customers" 'Esta instrução SQL retorna os campos CodigoCliente, Cargo, 'Endereco e Fone, da tabela Clientes. 'Agora criamos um Objeto RecordSet. 'Este Objeto irá executar a instrução SQL e 'receber o resultado da Consulta. Set Customers = Server.CreateObject("ADODB.Recordset") 'Agora executamos a Instrução SQL 'retornando os registros da tabela Clientes. Customers.Open inst_sql, conn, 3, 3 'Os dois últimos parâmetros serão discutidos 'no próximo Capítulo. 'Neste ponto já tenho todos os registros retornados 'pela instrução SQL. Estes registros estão armazenados 'no objeto Clientes, que é um objeto do tipo Recordset. 'Agora passo a montar a página que será retornada para o 'Navegador do Cliente. Vamos montar uma tabela com o 'resultado da consulta. %> <P> <HR> <TABLE bgColor=gray border=1 borderColor=navy cellPadding=1 cellSpacing=1 width="100%"> <TR> <TD align=middle bgColor=gray>CustomerID</TD> <TD align=middle bgColor=gray>ContacTitle</TD> <TD align=middle bgColor=gray>Address</TD> <TD align=middle bgColor=gray>Phone</TD> </TR> <% 'Inicio um Loop para percorrer todos os registros 'do RecordSet Clientes, exibindo um Registro em 'cada Linha da tabela. Do Until Customers.eof %> <TR> <TD align=middle bgColor=gray><%=Customers.Fields("CustomerID")%></TD> <TD align=middle bgColor=gray><%=Customers.Fields("ContatctTitle")%></TD> <TD align=middle bgColor=gray><%=Customers.Fields("Address")%></TD> <TD align=middle bgColor=gray><%=Customers.Fields("Phone")%></TD> </TR> <% Customers.MoveNext loop %> </TABLE> </P> <HR> </BODY> </HTML> Aparece o seguinte err Tipo de err Microsoft OLE DB Provider for ODBC Drivers (0x80040E10) [Microsoft][Driver ODBC para Microsoft Access] Parâmetros insuficientes. Eram esperados 4. /wwwroot/Asp03/clientes.asp, line 29