permanece o mesmo erro... eis como ficou o codigo... <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>Untitled Document</title> </head> <body> <% dim varsearch Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open "DBQ=C:\Inetpub\wwwroot\contato.mdb;Driver={Microsoft Access Driver (*.mdb)};" varsearch=Request.Form("search") strSQL = "SELECT nome, peso, altura FROM keep WHERE num = " & varsearch Set rstSearch = Conexao.Execute(strSQL) %> </p></td> </tr> </table> <p align="center"><br> <font size="1" face="Verdana, Arial, Helvetica, sans-serif">[ Foram encontradas <b><%=intContador%></b> ocorrências ] </font> </p> <div align="center"> <table width="500" border="0" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF"> <tr> <th width="107" bgcolor="#FF6600"><FONT color=royalblue face=Tahoma size=2><STRONG><font color="#FFFFFF">::Nome ::</font></STRONG></FONT></th> <th width="80" bgcolor="#FF6600"><FONT color=royalblue face=Tahoma size=2><STRONG><font color="#FFFFFF">:: Email::</font></STRONG></FONT></th> <th width="114" bgcolor="#FF6600"><FONT color=royalblue face=Tahoma size=2><STRONG><font color="#FFFFFF">:: Fone ::</font></STRONG></FONT></th> <th width="162" bgcolor="#FF6600"><FONT color=royalblue face=Tahoma size=2><STRONG><font color="#FFFFFF">:: Foto ::</font></STRONG></FONT></th> </tr> <tr> <td bgcolor="#FFFFE6"><form id="form1" name="form1" method="post" action=""> <label> <select name="lista" id="lista"> <% If not rstSearch.BOF and not rstSearch.EOF Then While Not rstSearch.EOF %> <option > <%=rstSearch("nome") %> </option> <% rstsearch.MoveNext Wend End If %> </select> </label> </form> <font size="1" face="Verdana, Arial, Helvetica, sans-serif"></font></td> <td bgcolor="#FFFFE6"> <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> <%= rstSearch("peso")%> </font></div></td> <td bgcolor="#FFFFE6"> <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch("altura")%></font></div></td> </tr> </table> <font size="1" face="Verdana, Arial, Helvetica, sans-serif"><br> Sua busca foi processada em <%response.write FormatNumber( Timer - inicio, 2 )%> segundos.</font><br> </body> </html> **** Tipo de erro: ADODB.Field (0x80020009) BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual. /cadastro/result.asp
