willianpp
-
Total de itens
27 -
Registro em
-
Última visita
Tudo que willianpp postou
-
galera... essa conta esta em vb e eu preciso dela em asp... sei q deve ser bem parecido.... If cboSexo = "MASCULINO" Then varLog = Log(CDbl(txtTric.Text) + CDbl(txtSiH.Text) + CDbl(txtAb.Text)) / Log(10) lblResultado.Caption = FormatNumber(((4.95 / (1.17136 - (0.06706 * varLog)) - 4.5) * 100), 2) End If If cboSexo = "FEMININO" Then varLog = Log(CDbl(txtCx.Text) + CDbl(txtSiM.Text) + CDbl(txtSb.Text)) / Log(10) lblResultado.Caption = FormatNumber(((4.95 / (1.1665 - (0.07063 * varLog)) - 4.5) * 100), 2) End If lblResultadoImc.Caption = FormatNumber(CDbl(txtPeso.Text) / (CDbl(txtAltura.Text) ^ 2), 2) a estrutura do if já fiz... o problema é com a conta...como fica?
-
Deu certo cara... valeu... Shalom!
-
menos o nome
-
ae pessoal... deem uma olhada nesse erro... Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80040E10) [Microsoft][Driver ODBC para Microsoft Access] Parâmetros insuficientes. Eram esperados 1. /cadastro/calcula.asp, line 33 ...olhem a pagina.... <%@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>calcular e inserir no banco</title> </head> <body> <% dim peso,nome, altura, tr, ab , si,strsql, rstsearch, conexao, sexo Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open "DBQ=C:\Inetpub\wwwroot\contato.mdb;Driver={Microsoft Access Driver (*.mdb)}" peso=Request.Form("txt_peso") nome=request.Form("txt_nome") altura=Request.Form("txt_altura") tr=request.Form("txt_tr") ab=request.Form("txt_ab") si=request.Form("txt_si") response.Write nome strSQL = "UPDATE keep SET peso = "&peso&", altura="&altura&", tr="&tr&", ab="&ab&", si = "&si&" WHERE nome = " &nome response.Write strsql Set rstSearch = Conexao.Execute(strSQL) %> </body> </html> ***ela busca os dados dessa pagina.... <!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> <p align="center"><br> <% Dim varsearch, rstsql, rstsearch, id, nome nome=request.Form("radio") Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open "DBQ=C:\Inetpub\wwwroot\contato.mdb;Driver={Microsoft Access Driver (*.mdb)}" %> </p> <p></p> <div align="center"> <center><table width="556" border="2" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF" bordercolor="#FF0000" bordercolordark="#000000"> <tr> <th width="540" bgcolor="#FF0000"><font color=royalblue face=Tahoma size=2><strong><font color="#FFFFFF">Keep Training SPFC </font></strong></font></th> </tr> <tr> <td height="69" bgcolor="WHITE"> </td> </tr> </table> </center> <form id="form3" name="form3" method="post" action="calcula.asp"> <table width="617" border="2" align="center" bordercolor="red" bordercolordark="black"> <tr> <td colspan="4"><label></label> <label> <div align="center"></div> <div align="center"> <label> <input name="txt_nome" type="text" id="txt" value="<% = nome %>" /> </label> <label></label> </div> </label></td> </tr> <tr> <td width="80"><font size="+2"><strong>Peso:</strong></font></td> <td width="145"><label> <input name="txt_peso" type="text" id="txt_peso" value="" /> </label></td> <td colspan="2"><strong><font size="+2">Altura:</font></strong> <input name="txt_altura" type="text" id="txt_altura" /> <label></label></td> </tr> <tr> <td colspan="4"><font size="+2"></font></td> </tr> <tr> <td height="45"><font size="+2"><strong> <label> </label> </strong> </font> <div align="center"> <font size="+2"><strong> <input name="radio" type="radio" value="radiobutton" /> Homem</strong></font></div></td> <td><label> <input name="txt_tr" type="text" id="txt_tr" /> </label></td> <td width="145"><label> <input name="txt_ab" type="text" id="txt_ab" /> </label></td> <td width="217"><label> <input name="txt_si" type="text" id="txt_si" /> <a href="calcula.asp"></a></label></td> </tr> <tr> <td><font size="+2"> </font></td> <td> </td> <td> </td> <td> </td> </tr> <tr> <td><font size="+2"><strong> <label> </label> </strong> </font> <div align="center"> <font size="+2"><strong> <input name="radio" type="radio" value="radiobutton" /> Mulher</strong></font></div></td> <td><label> <input type="text" name="textfield7" /> </label></td> <td><label> <input type="text" name="textfield8" /> </label></td> <td><label> <input type="text" name="textfield9" /> Calcular</label></td> </tr> <tr> <td height="47" colspan="4"><font size="+2"> </font> <label> </label> <div align="center"> <label> <input name="tes" type="submit" id="tes" value="Submit" /> </label> </div> <label></label></td> </tr> </table> </form> <font size="1" face="Verdana, Arial, Helvetica, sans-serif"><br> </font><br> </body> </html> ---- alguém sabe porque ele não ta achando?
-
pessoal olha só... fiz um select na minha pag.... ficou assim... <% dim varsearch, rstsql, rstsearch, cod varsearch=request.Form("search") Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open "DBQ=C:\Inetpub\wwwroot\contato.mdb;Driver={Microsoft Access Driver (*.mdb)}" strSQL = "SELECT nome, cod, num FROM keep WHERE num = " & varsearch Set rstSearch = Conexao.Execute(strSQL) %> <html> <LINK REL=stylesheet HREF="liks_etc.css" TYPE="text/css"> <head> <title>Consulta - http://www.superasp.com.br</title> </head> <body bgcolor="#FFFFFF"> <div align="center" style="width: 756; height: 119"> <p> </p><table width="69%" border="0" cellspacing="0" cellpadding="0" height="1" align="center"> <tr> <td width="736" valign="top" height="136"> <table border="0" cellpadding="0" cellspacing="0" width="81%" align="center"> <tr bgcolor="ffffff"> <td colspan="3"> <table width="100%" border="0" cellspacing="2" cellpadding="2"> <tr> <td width="18%" height="21" bgcolor="#f5f5f5"> <div align="center"><font color="#000099"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="form_inclusao.asp" class="menu">Incluir</a></font></b></font></div></td> <td width="26%" bgcolor="#f5f5f5"> <div align="center"><font color="#000099"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#CCCCCC"><a href="form_exclui.asp" class="menu"><font color="#000099">Excluir</font></a></font></b></font></div></td> <td width="18%" bgcolor="#f5f5f5"> <div align="center"><font color="#000099"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="procura.asp" class="menu">Pesquisar</a></font></b></font></div></td> <td width="56%" bgcolor="#f5f5f5"> <div align="center"><font color="#000099"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#CCCCCC">Alterar</font></b></font></div></td> </tr> </table> </td> </tr> <tr> <td colspan="3"> <table width="735" border="0" cellspacing="0" cellpadding="0" height="18"> <tr> <td align="center" height="1" width="735"> <font face="Verdana, Arial, Helvetica, sans-serif" color="#000099" size="3"><b><br> </b> <font size="2">Selecione o(s) cadastros(s) a ser(em) alterado(s)</font></font></td> </tr> </table> <form method="post" action="alterar.asp"> <table width="532" border="0" cellspacing="0" cellpadding="0" height="1"> <tr> <td height="1" align="center" width="532"> <table width="100%" height="61" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#CCCCCC"> <tr bgcolor="#FF6600"> <td width="144" height="2" align="center" bgcolor="#FF6600"> <font size="1" color="FFFFFF"><b><font face="Verdana">Cod</font></b> </font></td> <td width="144" height="2" align="center"> <font size="1" color="FFFFFF"><b><font face="Verdana">Matricula</font></b> </font></td> <td colspan="2" height="2" align="center"> <font size="1" color="FFFFFF"><b></b> </font> <font size="1" color="FFFFFF"><b><font face="Verdana">Nome</font></b> </font></td> <td width="117" height="2" align="center"> <font size="1" color="FFFFFF"> <input type="submit" name="Submit" value="Alterar"> </font></td> </tr> <% While Not rstSearch.EOF %> <tr bgcolor="#FFFFE6"> <td width="144" height="2" align="center" bgcolor="#FFFFE6"> <div align="left"> <label> <input type="text" name="txt_cod" value="<% = rstsearch("cod")%>"> </label> </div></td> <td width="144" height="2" align="center"> <div align="left" id="lbl_mat"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> </font></b></font> <label> <input name="txt_mat2" type="text" id="txt_mat2" value="<% = rstsearch("num")%>"> </label> </div></td> <td colspan="2" height="2" align="center"> <div align="left"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> </font> </b></font> <font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif"> </font></b></font> <label> <input name="txt_nome" type="text" value="<% = rstsearch("nome")%>"> </label> </div></td> <td width="117" height="2" align="center"> <div align="center"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> <input type="radio" name="radio" value="<%=rstsearch(0)%>"> </font> </b></font></div></td> </tr> <% rstsearch.MoveNext Wend rstsearch.close set rstsearch = Nothing %> ***então aparecerá uma lista... com algumas linhas... quero selecionar uma delas atraves do radio e resgatar o nome dessa pessoa na outra pagina... só q .. a cada linha exibida se repete o txt q exibe o nome da pessoa... de forma q quando peço pra o nome ele exibe todos.... tem como colocar um vetor aí... ou sei la.. "amarrar" a os campos da linha com o radio selecionado...?
-
galera...consegui... poxa.. muito obrigado... muitão... vivendo e aprendendo né... ainda fico bom como vocês... o problema é q os campos estavam fora do FORM... dããã.... valeú Shalom jaja eu volto com mais duvidas...;-)
-
imprime assim óh:
-
***...continua dando erro de sintax...
-
acho q estaão sendo resgatados normalmente... da uma olhada... <body> <% dim peso,nome,lista, num, altura, tr, ab , si,strsql, rstsearch, conexao Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open "DBQ=C:\Inetpub\wwwroot\contato.mdb;Driver={Microsoft Access Driver (*.mdb)}" peso=Request.Form("txt_peso") nome=request.Form("lista") altura=Request.Form("txt_altura") tr=request.Form("txt_tr") ab=request.Form("txt_ab") si=request.Form("txt_si") lista=request.Form("lista") strSQL = "INSERT INTO keep (peso,altura,tr,ab,si) VALUES ("&peso&","&altura&","&tr&","&ab&", "&si&")" Set rstSearch = Conexao.Execute(strSQL) response.Write("Sucesssssssoooo") %> </body> ***andreia... quando tirei as aspas simples (colei o q você mandou) ele deu esse erro... Microsoft OLE DB Provider for ODBC Drivers (0x80040E14) [Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe na instrução INSERT INTO. /cadastro/calcula.asp, line 27 ps.: a linha 27 é a linha de execução do insert...
-
ae pessoal olha só... fiz um insert.... strSQL = "INSERT INTO keep (peso,altura,tr,ab,si) VALUES ('"&peso&"','"&altura&"','"&tr&"','"&ab&"', '"&si&"')" Set rstSearch = Conexao.Execute(strSQL) **todos os campos são numeros... quando insiro e tal... ele não da erro... mas os campos do banco ficam em branco, ele insere um novo registro no campo autonum... mas os outros campos fica em branco... alguém tem ideia do que ta rolando?????
-
não acontece nada andrea... ele não imprime... acho q não consegue resgatar a informação da pagina anterior.
-
entendi... conhece algum tuto q me explique isso???? pf!
-
a consulta foi feita na pagina anterior... aí ele lista todos q estão no banco essa pagina é uma nova... q quero carregar o nome q foi selecionado dentro da lista... na pagina anterior....
-
desculpem por postar 3 vezes... mas não foi culpa minha... deu pau na pagina!
-
ae pessoal... olha só... tenho um listmenu q pega os dados do banco... e quero carregar o item seleciondo em uma outra pag... mas ta dando esse erro... deem uma olhada pra mim... pf!!! Tipo de erro: Erro de tempo de execução do Microsoft VBScript (0x800A000D) Tipos incompatíveis /cadastro/calcula.asp, line 27 ****eis o codi. <%@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>calcular e inserir no banco</title> </head> <body> <% dim lista, rstsql, rstsearch, conexao Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open "DBQ=C:\Inetpub\wwwroot\contato.mdb;Driver={Microsoft Access Driver (*.mdb)}" lista=request.Form("lista") %> <form id="form1" name="form1" method="post" action=""> <label> <input name="txtnome" type="text" id="txtnome" value="<%=rstsearch("lista")%>"/> </label> </form> </body> </html> *** a linha 27 é a linha do <input id....... *** no aguardo... Will
-
ae pessoal... olha só... tenho um listmenu q pega os dados do banco... e quero carregar o item seleciondo em uma outra pag... mas ta dando esse erro... deem uma olhada pra mim... pf!!! Tipo de erro: Erro de tempo de execução do Microsoft VBScript (0x800A000D) Tipos incompatíveis /cadastro/calcula.asp, line 27 ****eis o codi. <%@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>calcular e inserir no banco</title> </head> <body> <% dim lista, rstsql, rstsearch, conexao Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open "DBQ=C:\Inetpub\wwwroot\contato.mdb;Driver={Microsoft Access Driver (*.mdb)}" lista=request.Form("lista") %> <form id="form1" name="form1" method="post" action=""> <label> <input name="txtnome" type="text" id="txtnome" value="<%=rstsearch("lista")%>"/> </label> </form> </body> </html> *** a linha 27 é a linha do <input id....... *** no aguardo... Will
-
ae pessoal... olha só... tenho um listmenu q pega os dados do banco... e quero carregar o item seleciondo em uma outra pag... mas ta dando esse erro... deem uma olhada pra mim... pf!!! Tipo de erro: Erro de tempo de execução do Microsoft VBScript (0x800A000D) Tipos incompatíveis /cadastro/calcula.asp, line 27 ****eis o codi. <%@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>calcular e inserir no banco</title> </head> <body> <% dim lista, rstsql, rstsearch, conexao Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open "DBQ=C:\Inetpub\wwwroot\contato.mdb;Driver={Microsoft Access Driver (*.mdb)}" lista=request.Form("lista") %> <form id="form1" name="form1" method="post" action=""> <label> <input name="txtnome" type="text" id="txtnome" value="<%=rstsearch("lista")%>"/> </label> </form> </body> </html> *** a linha 27 é a linha do <input id....... *** no aguardo... Will
-
rsrs...rollou esse erro agora Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80004005) [Microsoft][Driver ODBC para Microsoft Access]Erro geral Não é possível abrir a chave 'Temporary (volatile) Jet DSN for process 0xfe8 Thread 0xcb8 DBC 0xaabe4c Jet' do Registro. .... ****consegui arrumar... tava faltando fechar a conexao... e setar o nothing no rs... dã~~aãã~... sou um cabeçao mesmo.... galera.. muito obrigado ... de verdade!!! mas é só o começo... rsrs... ainda to no começo do sistema...:-) shalom!
-
a linha 16 é essa aki Conexao.Open "DBQ=C:\Inetpub\wwwroot\contato.mdb;Driver={Microsoft Access Driver (*.mdb)}" a da conexão... não psso ficar com ele instavel pois será um sisteminha... simples... será usado nesse fds...
-
olha...atualizei a pagina e deu certo.. apareceu todos os nomes dentro do list.. mas.. parece meio instavel ora aparece.. ora da o erro não espeficado to entendendo nada!
-
**** olha o q rola.... Tipo de erro: Provider (0x80004005) Erro não especificado /cadastro/result2.asp, line 16 olha o codigo.... <!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> <p align="center"><br> <% dim varsearch, rstsql, rstsearch 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 FROM keep WHERE num = " & varsearch Set rstSearch = Conexao.Execute(strSQL) %> </p> <p></p> <div align="center"> <table width="288" 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> </tr> <tr> <td bgcolor="#FFFFE6"><form id="form1" name="form1" method="post" action=""> <label> <select name="lista" id="lista"> <% While Not rstSearch.EOF %> <option > <%=rstSearch("nome") %> </option> <% rstsearch.MoveNext Wend %> </select> </label> </form> <font size="1" face="Verdana, Arial, Helvetica, sans-serif"></font></td> </tr> </table> <font size="1" face="Verdana, Arial, Helvetica, sans-serif"><br> </font><br> </body> </html> ***pulgas...q negocio embaçado velho! e parece ser tão besta... to começando a achar q o problema é o mané aki!
-
quero listar no campo LIST... todos os nomes q tenham o codigo 5(por exemplo!) aí quando abrir o menuzinho... aparecer la todos os nomes.... o maximo q consegui fazer foi aparecer os nomes um em cada linda... mas quero joga-los dentro do list.
-
tem permissao sim.. a parte de inserção ta funcionando na bowa andreia...deu mesmo erro inesperado... olha só... se eu colocar assim.. ele lista pra mim.... <% While Not rstSearch.EOF %> <tr> <td bgcolor="#FFFFE6"><form id="form1" name="form1" method="post" action=""> <label> <select name="lista" id="lista"> <option > <%=rstSearch("nome") %> </option> </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> <% rstsearch.MoveNext Wend %> **só que.. o q eu quero é colocar dentro do campo list todos os valores q contenham um codigo X e la eu escolho quem quem eu quero.... entenderam.. só q não to conseguindo
-
agora ta dando esse erro aki... estranhoo Tipo de erro: Provider (0x80004005) Erro não especificado /cadastro/result.asp, line 15 dim varsearch Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open "DBQ=C:\Inetpub\wwwroot\contato.mdb;Driver={Microsoft Access Driver (*.mdb)};" ***a linha 15 é a linha da conexao... tava ok com .. nem mexi!
-
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