Ir para conteúdo
Fórum Script Brasil
  • 0

Dúvida No Form

zando

Perguntado por zando,

 Share

Pergunta

zando

zando

Postado
Postado (editado)

Olá galera,

Não estou conseguindo fazer um busca do jeito que quero em meu site.

Tenho que fazer uma condição que quando eu entro a 1ª vez, não apareça as editoras cadastras, mas sim uma mensagem dizendo que tenho que fazer a busca 1º. Aí depois que fazer a busca, gostaria que essa mensagem saísse e entrasse as editoras com iniciais que escolhi na busca...

Desde já agradeço a ajuda..

Ah.. segue o código para facilitar...

<%
option explicit

' Faz a conexão com a tabela atual
dim conexao, registros, string_conexao, string_consulta
' cria instancias dos objetos = connection e recordset
set conexao = server.CreateObject("adodb.connection")
set registros = server.CreateObject("adodb.recordset")
string_conexao = "driver={microsoft access driver (*.mdb)}; DBQ="
string_conexao = string_conexao & server.MapPath("../noticias.mdb")
' abre a conexao com o banco de dados
conexao.open string_conexao


    %>


<html>
<head>
<title>:: Novidades - Fique atento! ::</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>

<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" cellspacing="5" cellpadding="0">
  <tr>
    <td><div align="left"><strong><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"> 
        <img src="../imagens/setinha.gif" width="8" height="11"> &nbsp;Lnks dos 
        sites de algumas editoras. Clique no endere&ccedil;o eletr&ocirc;nico!</font><font color="#CC0000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>
        <style type="text/css">
<!--
a:link {text-decoration: none;color: #AA0000}
a:visited {text-decoration: none;color: #AA0000}
a:hover {text-decoration: underline;color: #AA0000}
a.barra:link {text-decoration: none;color: #AA0000}
a.barra:visited {text-decoration: none;color: #AA0000}
a.barra:hover {text-decoration: underline;color: #AA0000}
-->
</style>
        <STYLE type="text/css">
<!--
BODY {
scrollbar-face-color: #EEEEEE;
scrollbar-highlight-color: #EEEEEE;
scrollbar-3dlight-color: #AA0000;
scrollbar-darkshadow-color: #EEEEEE;
scrollbar-shadow-color: #AA0000;
scrollbar-arrow-color: #AA0000;
scrollbar-track-color: #EEEEEE;
}
-->
</style>
        </strong></font></strong></div></td>
  </tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="2" bordercolor="#CC0000">
  <tr> 
    <td width="50%" valign="top"> <div align="left"> 
        <table width="109%" border="0" align="left" cellpadding="0" cellspacing="1" bordercolor="#eeeeee" bgcolor="#FFFFFF">
          <tr valign="top" bgcolor="#FFFFFF"> 
            <td height="18" colspan="2"> 
              <form name="form1" method="post" action="index.asp">
                <font size="1" face="Verdana, Arial, Helvetica, sans-serif">Selecione 
                a inicial da Editora a ser pesquisada:<strong> </strong> </font> 
                <select name="inicial" id="inicial">
                  <option value="false">---</option>
                  <option value="a">a</option>
                  <option value="b">b</option>
                  <option value="c">c</option>
                  <option value="d">d</option>
                  <option value="e">e</option>
                  <option value="f">f</option>
                  <option value="g">g</option>
                  <option value="h">h</option>
                  <option value="i">i</option>
                  <option value="j">j</option>
                  <option value="k">k</option>
                  <option value="l">l</option>
                  <option value="m">m</option>
                  <option value="n">n</option>
                  <option value="o">o</option>
                  <option value="p">p</option>
                  <option value="q">q</option>
                  <option value="r">r</option>
                  <option value="s">s</option>
                  <option value="t">t</option>
                  <option value="u">u</option>
                  <option value="v">v</option>
                  <option value="w">w</option>
                  <option value="x">x</option>
                  <option value="y">y</option>
                  <option value="z">z</option>
                </select>
                <input type="submit" name="Submit" value="Pesquisar">
              </form>
            </td>
          </tr>
          <tr valign="middle" bgcolor="#eeeeee"> 
            <td width="196" height="18"> <div align="left"><strong><font color="#333333" size="1" face="Verdana"> 
                Nome</font></strong></div></td>
            <td width="375" height="18"><strong><font color="#333333" size="1" face="Verdana"> 
              Endere&ccedil;o eletr&ocirc;nico</font></strong></td>
          </tr>
    
          <% 
    dim valor
    valor = request.Form("inicial")
    if  valor = false then
    string_consulta = "select * from editoras where" & request.Form("inicial")
  	' obtem todos os registros do banco de dados
  	set registros =  conexao.execute(string_consulta)
  else
  response.end
  end if
  
    
  do until registros.EOF  
  
  dim site, nome, inicio
    site = registros("site")
    nome = registros("nome")
    inicio = registros("inicio")
    %>
          <tr bgcolor="#eeeeee"> 
            <td height="18" bgcolor="#eeeeee" onMouseOver="this.style.background='#ffffff'" onMouseOut="this.style.background='#eeeeee'"> 
              <div align="left"><font color="#333333" size="1" face="Verdana"><%=nome%></font></div></td>
            <td height="18" bgcolor="#eeeeee" onMouseOver="this.style.background='#ffffff'" onMouseOut="this.style.background='#eeeeee'"> 
              <div align="left"><font color="#333333" size="1" face="Verdana"><a href="http://<%=site%>"><%=site%></a></font></div>
              <div align="center"></div></td>
          </tr>
          <% registros.MOVENEXT 
  loop %>
        </table>
      </div></td>
  </tr>
</table>



</body>
</html>

<% 
conexao.close
set conexao = nothing
set registros = nothing

%>

Editado por cyberalexxx
Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0
cyberalexxx

cyberalexxx

Postado
Postado

Editei seu post para ficar mais facil de visualizar, quando for postar códigos use as tags code ou quote.

Da uma olhada se te ajuda:

<%

option explicit

' Faz a conexão com a tabela atual

dim conexao, registros, string_conexao, string_consulta

' cria instancias dos objetos = connection e recordset

set conexao = server.CreateObject("adodb.connection")

set registros = server.CreateObject("adodb.recordset")

string_conexao = "driver={microsoft access driver (*.mdb)}; DBQ="

string_conexao = string_conexao & server.MapPath("../noticias.mdb")

' abre a conexao com o banco de dados

conexao.open string_conexao

   %>

<html>

<head>

<title>:: Novidades - Fique atento! ::</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>

<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

<table width="100%" border="0" cellspacing="5" cellpadding="0">

<tr>

   <td><div align="left"><strong><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">

       <img src="../imagens/setinha.gif" width="8" height="11"> &nbsp;Lnks dos

       sites de algumas editoras. Clique no endere&ccedil;o eletr&ocirc;nico!</font><font color="#CC0000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>

       <style type="text/css">

<!--

a:link {text-decoration: none;color: #AA0000}

a:visited {text-decoration: none;color: #AA0000}

a:hover {text-decoration: underline;color: #AA0000}

a.barra:link {text-decoration: none;color: #AA0000}

a.barra:visited {text-decoration: none;color: #AA0000}

a.barra:hover {text-decoration: underline;color: #AA0000}

-->

</style>

       <STYLE type="text/css">

<!--

BODY {

scrollbar-face-color: #EEEEEE;

scrollbar-highlight-color: #EEEEEE;

scrollbar-3dlight-color: #AA0000;

scrollbar-darkshadow-color: #EEEEEE;

scrollbar-shadow-color: #AA0000;

scrollbar-arrow-color: #AA0000;

scrollbar-track-color: #EEEEEE;

}

-->

</style>

       </strong></font></strong></div></td>

</tr>

</table>

<table width="100%" border="0" cellpadding="0" cellspacing="2" bordercolor="#CC0000">

<tr>

   <td width="50%" valign="top"> <div align="left">

       <table width="109%" border="0" align="left" cellpadding="0" cellspacing="1" bordercolor="#eeeeee" bgcolor="#FFFFFF">

         <tr valign="top" bgcolor="#FFFFFF">

           <td height="18" colspan="2">

             <form name="form1" method="post" action="index.asp">

               <font size="1" face="Verdana, Arial, Helvetica, sans-serif">Selecione

               a inicial da Editora a ser pesquisada:<strong> </strong> </font>

               <select name="inicial" id="inicial">

                 <option value="false">---</option>

                 <option value="a">a</option>

                 <option value="b">b</option>

                 <option value="c">c</option>

                 <option value="d">d</option>

                 <option value="e">e</option>

                 <option value="f">f</option>

                 <option value="g">g</option>

                 <option value="h">h</option>

                 <option value="i">i</option>

                 <option value="j">j</option>

                 <option value="k">k</option>

                 <option value="l">l</option>

                 <option value="m">m</option>

                 <option value="n">n</option>

                 <option value="o">o</option>

                 <option value="p">p</option>

                 <option value="q">q</option>

                 <option value="r">r</option>

                 <option value="s">s</option>

                 <option value="t">t</option>

                 <option value="u">u</option>

                 <option value="v">v</option>

                 <option value="w">w</option>

                 <option value="x">x</option>

                 <option value="y">y</option>

                 <option value="z">z</option>

               </select>

               <input type="submit" name="Submit" value="Pesquisar">

             </form>

           </td>

         </tr>

         <tr valign="middle" bgcolor="#eeeeee">

           <td width="196" height="18"> <div align="left"><strong><font color="#333333" size="1" face="Verdana">

               Nome</font></strong></div></td>

           <td width="375" height="18"><strong><font color="#333333" size="1" face="Verdana">

             Endere&ccedil;o eletr&ocirc;nico</font></strong></td>

         </tr>

  

         <%

if len(request.Form("inicial")>0 then

   dim valor

   valor = request.Form("inicial")

   string_consulta = "select * from editoras where" & request.Form("inicial")

   ' obtem todos os registros do banco de dados

   set registros =  conexao.execute(string_consulta)

   do until registros.EOF 

      dim site, nome, inicio

      site = registros("site")

      nome = registros("nome")

      inicio = registros("inicio")

   %>

      <tr bgcolor="#eeeeee">

      <td height="18" bgcolor="#eeeeee" onMouseOver="this.style.background='#ffffff'" onMouseOut="this.style.background='#eeeeee'">

      <div align="left"><font color="#333333" size="1" face="Verdana"><%=nome%></font></div></td>

      <td height="18" bgcolor="#eeeeee" onMouseOver="this.style.background='#ffffff'" onMouseOut="this.style.background='#eeeeee'">

      <div align="left"><font color="#333333" size="1" face="Verdana"><a href="http://<%=site%>"><%=site%></a></font></div>

      <div align="center"></div></td>

      </tr>

      <% registros.MOVENEXT

   loop %>

   </table>

   </div></td>

</tr>

</table>

</body>

</html>

<%

conexao.close

set conexao = nothing

set registros = nothing

else

   response.write "selecione a editora desejada"

end if

%>

Link para o comentário
Compartilhar em outros sites
  • 0
zando

zando

Postado
  • Autor
Postado

Valeu pela resposta..

Eu tinha errado...

Olhá só que besteira..

Errado

==============

string_consulta = "select * from editoras where" & request.Form("inicial")

Certo

================

string_consulta = "select * from editoras where inicio ='" & request.Form("inicial") & "' order by nome"

Valeu e até mais...

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,5k
    • Posts
      652,4k
×
×
  • Criar Novo...