Form De Busca

[Roberto Silva]

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

%>

[.Andreia.]

Essa sua tela não é a do form, essa deve ser a seguinte que recupera os dados. Pra você adicionar mais campos é só escrever dentro das tags <form></form> os campos.

Outra coisa, você poderia simplificar seu codigo diminuindo o numero de SQL. Montei aqui mas não testei:

<% 
localtipo = Request("localtipo")

if localtipo <> "" Then 

Dim textoqueveio, tipoSQL
textoqueveio = Trim(Request("localtexto")) 


if localtipo = "localnome" then 
    campo = "nome LIKE '%"" & textoqueveio & ""%'"
elseif localtipo = "localsexo" then 
    campo = "sexo LIKE '%"" & textoqueveio & ""%'"
elseif localtipo = "op" then 
    campo = "(situacao = 2) OR (situacao = 3)"
end if

userSQL = "SELECT * FROM tabelatotal WHERE "& campo &" ORDER BY nick"

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

[Roberto Silva]

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

%>

[.Andreia.]

Inclua antes do botao:

<input TYPE="SUBMIT" VALUE="Localizar">

exatamente onde vai depender de onde você quer que fica posicionado na tela, o importane é que seja entre as tags do formulario <form></form>