Ir para conteúdo
Fórum Script Brasil

willianpp

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    27

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por willianpp

  1. Conta No Asp

    em ASP

    Postado

    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?

  4. (Resolvido) Erro No Update Do Asp

    em ASP

    Postado

    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">&nbsp;</font></td>
            <td>&nbsp;</td>
            <td>&nbsp;</td>
            <td>&nbsp;</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">&nbsp;</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? ohmy.gif

  5. Resgatando Radio Do Select

    em ASP

    Postado

    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>&nbsp;</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...?

  6. Insert No Asp

    em ASP

    Postado

    galera...consegui...

    poxa.. muito obrigado... muitão...

    vivendo e aprendendo né... ainda fico bom como vocês... biggrin.gif

    o problema é q os campos estavam fora do FORM...

    dããã....

    valeú

    Shalom

    jaja eu volto com mais duvidas...;-)

  8. Insert No Asp

    em ASP

    Postado

    <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 strsql

    %>

    ***...continua dando erro de sintax... sad.gif

  9. Insert No Asp

    em ASP

    Postado

    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...

  10. Insert No Asp

    em ASP

    Postado

    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?????

  15. Conteudo Do List....

    em ASP

    Postado

    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

  16. Conteudo Do List....

    em ASP

    Postado

    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

  17. Conteudo Do List....

    em ASP

    Postado

    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

  18. Ajuda Com Loop No Asp

    em ASP

    Postado

    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!

  21. Ajuda Com Loop No Asp

    em ASP

    Postado

    **** 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!

  22. Ajuda Com Loop No Asp

    em ASP

    Postado

    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.

  23. Ajuda Com Loop No Asp

    em ASP

    Postado

    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

  24. Ajuda Com Loop No Asp

    em ASP

    Postado

    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!

  25. Ajuda Com Loop No Asp

    em ASP

    Postado

    sad.gif 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&nbsp;<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>

    &nbsp;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

×
×
  • Criar Novo...