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