25/11/2008, 11:24
|
| | | Fecha de Ingreso: noviembre-2008
Mensajes: 1
Antigüedad: 15 años, 5 meses Puntos: 0 | |
| Filtro
Hola necito ayuda con el siguiente código en asp, la base de resultados esta hecha con frontpage, quisiera ayuda con el codigo ya que necesito hacer un filtro donde aparezcan solo las requisiciones del usuario q esta entrando a autorizarlas, si pudieran ayudarme se los agradeceria infrinitamente de antemano gracias por la atencion prestada
Mi codigo es el sig:
<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns="http://www.w3.org/TR/REC-html40">
<!--#include virtual="adovbs.inc"-->
<!--#include file="../Common/libcomun.asp"-->
<%
Dim oConn, rs, SQL
Dim varNombreUsuario, varCargo, varUserName, varEmail
Dim varArt, varFechaD, varFechaA, varUnidad, varObs, varJefeI
Response.Buffer=True
if Session("aut")=True then
'Accesa al Curso
varNombreUsuario=Session ("NombreUsuario")
varCargo=Session ("Cargo")
varUserName=Session ("UserName")
varEmail=Session ("Email")
else
Response.Redirect("../../ceropapela/frmLogin.asp")
Response.End
end if
Conectar ("../fpdb/SistemasXP.mdb")
SQL="SELECT NombreUsuario, IdAutorizaEquipo FROM UsuariosCMPL WHERE (NombreUsuario='"&varNombreUsuario&"');"
set rs=oConn.Execute(SQL)
If rs.EOF then Response.Redirect ("ProhibidoAutorizar.htm"):Response.End
LimpiarRS (rs)
LimpiarConexion
Conectar ("../fpdb/Requisicion.mdb")
SQL="SELECT * FROM compras1"
set rs=oConn.Execute(SQL)
varArt=rs.Fields("Articulo")
varFechaD=rs.Fields("Fdia")
varFechaM=rs.Fields("Fmes")
varFechaA=rs.Fields("Fanio")
varUnidad=rs.Fields("Cantidad")
varObs=rs.Fields("Observaciones")
varJefeI=rs.Fields("JefeInmediato")
LimpiarRS (rs)
LimpiarConexion
%> |