hola buen dia
tengo un buscador en asp necesito su ayuda necesito que me busque por area y extencion lo que pasa ES QUE UNICAMENTE LO ESTA BUSCANDO POR NOMBRE. y no puedo hacer que mis resultados me los ponga en una tabla
gracias muchas gracias
<html>
<head>
<title>Buscar</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<%
Dim buscar
buscar = Request.Form("nombre")
%>
<body bgcolor="#FFFFFF" text="#000000"><center>
<p><b><font size="5">BUSCADOR</font></b> </p>
<%
Function fBuscar(cnn)
Dim rs
Dim v_sql
Dim str
v_sql="SELECT Nombre, Area, Extension, Email FROM buscame_directorio WHERE Nombre LIKE '%" + buscar + "%'"
Set rs = CreateObject("ADODB.Recordset")
rs.ActiveConnection = cnn
rs.Open v_sql
While Not rs.EOF
str = str & "<A Class='t5' Href='" & rs("Nombre") & "'>" & rs("Area") & rs("Extension") & " >> <br>" & "</a>" & rs("Nombre")& rs("Area")& rs("Extension")& rs("Email")& "<BR> <BR>"
rs.MoveNext
Wend
if str = "" then str ="<CENTER><B>Lo siento, no se encontraron resultados</B></CENTER>"
if buscar = "" then str ="<CENTER><B>Por favor, especifique su búsqueda</B></CENTER>"
fBuscar = str
End Function
Dim cnn
Dim str
Dim DBName
DBName = "Provider=SQLOLEDB.1;Persist Security Info=true;User ID=formacion;Password=;Initial Catalog=dde;Data Source=LMSPROD1"
Set cnn = Server.CreateObject("ADODB.Connection")
cnn.Open DBName
Set rs = CreateObject("ADODB.Recordset")
rs.ActiveConnection = cnn
Response.write "<FONT COLOR=Red "
Response.write "SIZE=4 FACE=Arial> "
Response.write "Resultados "
Response.write "de la busqueda: <P>"
Response.write "</FONT> "
Response.write "<FONT COLOR=Green "
Response.write "SIZE=3 FACE=Arial> "
Response.Write fbuscar(cnn)
Response.write "</FONT><hr> "
%>
<form name="form1" method="post" action="buscador.asp">
<input name="nombre" type="text" id="nombre">
<input type="submit" name="Submit" value="Buscar!">
</form></center>
</body>
</html>