willianpp
-
Total de itens
27 -
Registro em
-
Última visita
Sobre willianpp
willianpp's Achievements
0
Reputação
-
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