Ir para conteúdo
Fórum Script Brasil

Roberto Silva

Membros
  • Total de itens

    3
  • Registro em

  • Última visita

Tudo que Roberto Silva postou

  1. Roberto Silva

    Form De Busca

    N deu certo n mano... da um erro dizendo que esta em conflito entre si.. está aí o codigo todo com a paginaçao. tipo para eu tentar.. como faço para ter outro campo com o nome localtipo.. ex: conexao com localtipo e localtipo1.. e localtexto e localtexo1.. acho que assim deveria funcionar ! tem como adicionar ?? <% if Request.Form("localtipo") <> "" Then Dim textoqueveio, tipoSQL textoqueveio = Trim(Request("localtexto")) _____________________________________________________________ <option value="localnome">Estado civil</option> </select> </p> <p align="center"><font face="Arial"><select size="1" name="localtipo"> <option value="localsexo">Procuro por</option> </select> </font> </p> <p align="center"><font face="Arial"><select size="1" name="localtexto"> <option value="sexo">Homem</option> <option value="sexo">Mulher</option> </select> </font> </p> <blockquote> <p align="center"> <font face="Arial">&nbsp;<select size="1" name="localtexto"> <option>Solteiro</option> <option>Enrolado</option> <option>Namorando</option> <option>Noivo</option> <option>Casado(a)</option> </select> &nbsp;<br> <input TYPE="SUBMIT" VALUE="Localizar"> </font> </font> <table border="0" width="471" bgcolor="#FF99FF" cellspacing="0" cellpadding="0"> <tr> <tudo width="230"><font size="1" color="#000000"><img border="0" src="chatlove/cadastrolg.gif"><br> <img border="0" src="chatlove/seta.gif"> <span class="csscadtexto">Buscar por Afinidade<br> </span><img border="0" src="chatlove/seta.gif"> <span class="csscadtexto">Identidade anônima<br> </span><img border="0" src="chatlove/seta.gif"> <span class="csscadtexto">Veja as Cantadas da galera<br> </span><img border="0" src="chatlove/seta.gif"><span class="csscadtexto"> Marque um encontro<br> </span><img border="0" src="chatlove/seta.gif"><span class="csscadtexto"> Registre e faça novas amizades.</span></font></tudo> <tudo width="241" bgcolor="#FF0066">&nbsp;</tudo> </tr> </table> <table border="0" width="100%" cellspacing="0" cellpadding="0"> <tr> <tudo width="47%"><font face="Arial">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <a href="cadastro.asp"> <img border="0" src="chatlove/cadastro.gif"></a><br> </font><font size="1" face="Verdana">Cadastre-se agora e fique ligado(a) ! Você pode encontrar sua alma gêmea ou uma nova amizade</font></tudo> <tudo width="53%"></tudo> </tr> </table> <p align="left"> <font size="2"> <font face="Arial"><br> </font> </blockquote> </form> </DIV> </font> <font size="2" face="Arial"> <% if Request.Form("localtipo") <> "" Then Dim textoqueveio, tipoSQL textoqueveio = Trim(Request("localtexto")) if Request("localtipo") = "localnome" then Dim user1SQL user1SQL = "SELECT * FROM tabelatotal WHERE nome LIKE '%" & textoqueveio & "%' ORDER BY nick" tipoSQL = user1SQL end if if Request("localtipo") = "localsexo" then Dim user2SQL user2SQL = "SELECT * FROM tabelatotal WHERE sexo LIKE '%" & textoqueveio & "%' ORDER BY nick" tipoSQL = user2SQL end if if Request("localtipo") = "op" then Dim SQLoperadores SQLoperadores = "SELECT * FROM tabelatotal WHERE (situacao = 2) OR (situacao = 3) ORDER BY nick" tipoSQL = SQLoperadores end if Dim userRS Set userRS = Server.CreateObject("ADODB.Recordset") userRS.Open tipoSQL, objcon Dim hoje hoje = Year(Date()) Dim contador contador = 0 do While Not userRS.EOF %>
  2. Roberto Silva

    Form De Busca

    Olá pessoal estou com um probleminha tenho um a pagina com um form com o seguinte campo: Nome depois o botão ok So que queria adicionar + campos... e queria saber onde posso adicionar ! o codigo está aí <% if Request.Form("localtipo") <> "" Then Dim textoqueveio, tipoSQL textoqueveio = Trim(Request("localtexto")) if Request("localtipo") = "localnome" then Dim user1SQL user1SQL = "SELECT * FROM tabelatotal WHERE nome LIKE '%" & textoqueveio & "%' ORDER BY nick" tipoSQL = user1SQL end if if Request("localtipo") = "localsexo" then Dim user2SQL user2SQL = "SELECT * FROM tabelatotal WHERE sexo LIKE '%" & textoqueveio & "%' ORDER BY nick" tipoSQL = user2SQL end if if Request("localtipo") = "op" then Dim SQLoperadores SQLoperadores = "SELECT * FROM tabelatotal WHERE (situacao = 2) OR (situacao = 3) ORDER BY nick" tipoSQL = SQLoperadores end if Dim userRS Set userRS = Server.CreateObject("ADODB.Recordset") userRS.Open tipoSQL, objcon Dim hoje hoje = Year(Date()) Dim contador contador = 0 do While Not userRS.EOF %>
  3. Roberto Silva

    Ajuda Em Busca

    Pessoal ! tenho uma pagina para fazer uma determinada busca, porém ela so faz por 1 campo !ex: |___________| <- aqui é a palavra chave BUSCA <--- e aqui eu clico para busca ! eu queria adicionar + 1 ou 2 campos --> |_____________| ( quadrado dentro do formulario de busca ) so que n sei ond mexer . abaixo está aí a parte do sistema de busca <% if Request.Form("localtipo") <> "" Then Dim textoqueveio, tipoSQL textoqueveio = Trim(Request("localtexto")) if Request("localtipo") = "localnome" then Dim user1SQL user1SQL = "SELECT * FROM tabelatotal WHERE nome LIKE '%" & textoqueveio & "%' ORDER BY nick" tipoSQL = user1SQL end if if Request("localtipo") = "localcidade" then Dim user2SQL user2SQL = "SELECT * FROM tabelatotal WHERE sexo LIKE '%" & textoqueveio & "%' ORDER BY nick" tipoSQL = user2SQL end if if Request("localtipo") = "op" then Dim SQLoperadores SQLoperadores = "SELECT * FROM tabelatotal WHERE (situacao = 2) OR (situacao = 3) ORDER BY nick" tipoSQL = SQLoperadores end if Dim userRS Set userRS = Server.CreateObject("ADODB.Recordset") userRS.Open tipoSQL, objcon Dim hoje hoje = Year(Date()) Dim contador contador = 0 do While Not userRS.EOF %> Obrigado e boa programaçao!!!
×
×
  • Criar Novo...