Consulta sobre código de web implementada con asp para mostrar registros de base de datos
Soy un joven mexicano que se encuentra iniciando en este rollo de desarrollar páginas ASP, y mi pregunta es la siguiente.
Mira lo que pasa es que me encuentro desarrollando unas páginas en las que se pueda consultar el currículo de algunos funcionarios de donde trabajo y ya elabore la primera página asp en donde aparecen los nombes de cada uno de los funcionarios, para hacer esto hice la página y le inserte un formulario que llene con los nombres de los funcionarios que provienen de una tabla de base de datos, el código que use fue el siguiente:
<%
Dim ObjConn
set ObjConn=Server.CreateObject("ADODB.Connection")
ObjConn.ConnectionString="DSN=gabinete"
Objconn.Open
Dim ObjRs
Set ObjRs=Server.CreateObject("ADODB.Recordset")
ObjRs.Open "funcionarios", Objconn
%>
<center><b>Por Nombre</b></center>
<center><form method=post action="perfil.asp">
<select name="Nombre">
<%Do while not ObjRs.EOF%>
<%response.Write "<Option value=" & ObjRs("Nombre_funcionario")
response.Write ">" & ObjRs("Nombre_funcionario")
ObjRs.Movenext
Loop
ObjRs.close
set ObjRs=Nothing
ObjConn.close
set Objconn=Nothing
%>
</select>
Y la segunda página que es la que se supone debe desplegar la información del funcionario no me funciona, ¿Me podrías decir que estoy haciendo mal, por que lo que parece es que no estoy escribiendo bien la parte en la que se selecciona a algún funcionario a través de una instrucción sql, ya que lo hago y no aparece ningún dato, el código que al parecer esta funcionando mal es el siguiente:
<%
Dim ObjConn
set ObjConn=Server.CreateObject("ADODB.Connection")
ObjConn.ConnectionString="DSN=gabinete"
Objconn.Open
xnombre=request.form ("Nombre")
Dim strSQL
strSQL= "SELECT * FROM funcionarios WHERE Nombre_funcionario = '%"&xnombre&"%'; "
Dim ObjRs
Set ObjRs=Server.CreateObject("ADODB.Recordset")
ObjRs.Open strSQL, Objconn
Do while not ObjRs.EOF%>
<p align="justify">
<%Response.write "<justify><b>" & ObjRs("Nombre_funcionario") & "</b><br></justify>"
Response.write "<justify>" & ObjRS("Cargo") & "<br><br></justify>"
Response.write "<justify>" & ObjRS("Datos_generales") & "<br><br></justify>"
Response.write "<justify>" & ObjRS("Estudios") & "<br><br></justify>"
Response.write "<justify>" & ObjRS("Carg_admvos") & "<br><br></justify>"
Response.write "<justify>" & ObjRS("Activ_polit") & "<br><br></justify>"
Response.write "<justify>" & ObjRS("Otras_acts") & "<br><br><br></justify>"
Objrs.movenext
Al parecer, no se, lo que estoy escribiendo mal es la instrucción sql
strSQL= "SELECT * FROM funcionarios WHERE Nombre_funcionario = '%"&xnombre&"%'; "
¿Me podrías decir si lo estoy haciendo bien o que debo hacer?.
Mira lo que pasa es que me encuentro desarrollando unas páginas en las que se pueda consultar el currículo de algunos funcionarios de donde trabajo y ya elabore la primera página asp en donde aparecen los nombes de cada uno de los funcionarios, para hacer esto hice la página y le inserte un formulario que llene con los nombres de los funcionarios que provienen de una tabla de base de datos, el código que use fue el siguiente:
<%
Dim ObjConn
set ObjConn=Server.CreateObject("ADODB.Connection")
ObjConn.ConnectionString="DSN=gabinete"
Objconn.Open
Dim ObjRs
Set ObjRs=Server.CreateObject("ADODB.Recordset")
ObjRs.Open "funcionarios", Objconn
%>
<center><b>Por Nombre</b></center>
<center><form method=post action="perfil.asp">
<select name="Nombre">
<%Do while not ObjRs.EOF%>
<%response.Write "<Option value=" & ObjRs("Nombre_funcionario")
response.Write ">" & ObjRs("Nombre_funcionario")
ObjRs.Movenext
Loop
ObjRs.close
set ObjRs=Nothing
ObjConn.close
set Objconn=Nothing
%>
</select>
Y la segunda página que es la que se supone debe desplegar la información del funcionario no me funciona, ¿Me podrías decir que estoy haciendo mal, por que lo que parece es que no estoy escribiendo bien la parte en la que se selecciona a algún funcionario a través de una instrucción sql, ya que lo hago y no aparece ningún dato, el código que al parecer esta funcionando mal es el siguiente:
<%
Dim ObjConn
set ObjConn=Server.CreateObject("ADODB.Connection")
ObjConn.ConnectionString="DSN=gabinete"
Objconn.Open
xnombre=request.form ("Nombre")
Dim strSQL
strSQL= "SELECT * FROM funcionarios WHERE Nombre_funcionario = '%"&xnombre&"%'; "
Dim ObjRs
Set ObjRs=Server.CreateObject("ADODB.Recordset")
ObjRs.Open strSQL, Objconn
Do while not ObjRs.EOF%>
<p align="justify">
<%Response.write "<justify><b>" & ObjRs("Nombre_funcionario") & "</b><br></justify>"
Response.write "<justify>" & ObjRS("Cargo") & "<br><br></justify>"
Response.write "<justify>" & ObjRS("Datos_generales") & "<br><br></justify>"
Response.write "<justify>" & ObjRS("Estudios") & "<br><br></justify>"
Response.write "<justify>" & ObjRS("Carg_admvos") & "<br><br></justify>"
Response.write "<justify>" & ObjRS("Activ_polit") & "<br><br></justify>"
Response.write "<justify>" & ObjRS("Otras_acts") & "<br><br><br></justify>"
Objrs.movenext
Al parecer, no se, lo que estoy escribiendo mal es la instrucción sql
strSQL= "SELECT * FROM funcionarios WHERE Nombre_funcionario = '%"&xnombre&"%'; "
¿Me podrías decir si lo estoy haciendo bien o que debo hacer?.
4 Respuestas
Respuesta de neogeo
1
Respuesta de epi03
1
Respuesta de kornerson
1
Respuesta de fiordo
1