05/07/2007, 03:23
|
| | | Fecha de Ingreso: junio-2003 Ubicación: Santiago de Compostela
Mensajes: 603
Antigüedad: 21 años, 10 meses Puntos: 0 | |
| Re: Una consulta en ACCESS toma como nombre de campo el caracter mayor que (>)
Parte 2:
Código modificar_ver_prorrogas_result.asp
-----------------
Código:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Session.LCID = 1034
response.Expires=0
Response.AddHeader "PRAGMA", "NO-CACHE"
if session("autorizacion")=-1 or session("autorizacion")="" then
response.redirect "/login.asp"
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Modificar/Ver Prorrogas</title>
<SCRIPT LANGUAGE="JavaScript">
<!--
function AbrirVentana (theURL, winName, features)
{
window.open (theURL, winName, features);
return false
}
-->
</SCRIPT>
<link href="../../../../css/estilos_extranet.css" rel="stylesheet" type="text/css">
</head>
<!--#include file="../../../../adovbs.asp" -->
<!--#include file="../../../../menus_cabeceratablas.asp" -->
<%
'Recogemos los valores pasados del formulario anterior
fechainicioprorroga= Trim(Request.form("fechainicioprorroga"))
fechafinprorroga= Trim(Request.form("fechafinprorroga"))
Set Conn= Server.CreateObject("ADODB.Connection")
Conn.ConnectionString = "DSN=coesco.com"
Conn.open
Set RsProrrogas=Server.CreateObject("ADODB.Recordset")
RsProrrogas.activeconnection=Conn
RsProrrogas.source="prorrogas"
RsProrrogas.Locktype = adLockOptimistic
RsProrrogas.CursorType = adOpenDinamic
insertar=True
CabeceraTablaVerModificarProrrogas
%>
<table class="gestion" align="center">
<%
'Validamos los datos recibidos del formulario
if fechainicioprorroga <> "" then
If NOT IsDate(fechainicioprorroga) then
response.write("<tr><td class=""validacionerrores"">" & "<em>""Fecha Inicio Prorroga: ""</em>Indicar la ""Fecha de Inicio de la Prorroga""</em></td></tr>")
insertar=False
else
if year(cdate(fechainicioprorroga)) < 1900 then
response.write("<tr><td class=""validacionerrores"">" & "No se aceptan fechas inferiores al año 1900</td></tr>")
insertar=false
end if
end if
end if
if fechafinprorroga <> "" then
If NOT IsDate(fechafinprorroga) then
response.write("<tr><td class=""validacionerrores"">" & "<em>""Fecha Fin Prorroga: ""</em>Indicar la ""Fecha de finalización de la Prorroga""</em></td></tr>")
insertar=False
else
if year(cdate(fechafinprorroga)) < 1900 or fechafinprorroga < fechainicioprorroga then
response.write("<tr><td class=""validacionerrores"">" & "No se aceptan fechas inferiores al año 1900 o la Fecha de Finalización de la Prorroga es menor que la Fecha de Inicio.</td></tr>")
insertar=false
end if
end if
end if
if insertar=False then
pulsarcompletardatos
end if
%>
</table>
<%
'Si insertar=true entonces significa que no hay errores de validación y puede pasar la cadena de consulta
if insertar=true then
Poner_AND= False
Filtro=""
FOR EACH Parametro IN Request.Form
IF Request.Form (Parametro) <> "" then
IF Poner_AND THEN
'El Case sirve para indicar que queremos que nos liste los registros que se encuentran entre la fecha de inicio y la de fin de prorroga (ambas incluidas)
Select Case Parametro
Case "fechainicioprorroga"
Filtro= Filtro & " AND " & Parametro & ">=#"
Filtro= Filtro & Request.Form (Parametro) & "#"
Case "fechafinprorroga"
Filtro= Filtro & " AND " & Parametro & "<=#"
Filtro= Filtro & Request.Form (Parametro) & "#"
Case Else
Filtro= Filtro & " AND " & Parametro & "="
Filtro= Filtro & Request.Form (Parametro)
End Select
ELSE
Filtro= Filtro & Parametro & "="
Filtro= Filtro & Request.Form (Parametro) & ""
Poner_AND = True
END IF
END IF
NEXT
Filtro= LCase (Filtro)
RsProrrogas.Filter = Filtro
RsProrrogas.open "select * from prorrogas where " & filtro & " order by referenciaalumno"
'RsProrrogas.open "filtro"
%>
<body>
<%IF RsProrrogas.Eof THEN
NoSeEncuentranRegistros
ELSE
'El resultado de la busqueda se presenta en el siguiente do-loop%>
<table class="gestion" align="center">
<tr valign="top">
<td colspan="17" class="mensajesrellenar"> </td>
</tr>
<tr valign="top">
<td colspan="17" class="mensajesrellenar">Se han obtenido los siguientes resultados:</td>
</tr>
<tr valign="top">
<td colspan="17" class="mensajesrellenar"> </td>
</tr>
<tr valign="top">
<th width="86" class="tablalistadoscabecera">Referencia</th>
<th width="443" class="tablalistadoscabecera">Alumno</th>
<th width="443" class="tablalistadoscabecera">Empresa</th>
<th colspan="14" class="tablalistadoscabecera">Imprimir Docs</th>
</tr>
<%
'Asigno el valor de nombre y apellidos a blanco
nombreyapellidos=""
do until RsProrrogas.eof
alumnoactual=""
Set RsAlumnos= conn.Execute("SELECT * FROM alumnos WHERE referenciaalumno = " & RsProrrogas("referenciaalumno"))
Set RsContratos= conn.Execute("SELECT * FROM contratos WHERE referenciaasesoria = " & Request.QueryString("clave") & " and referenciaalumno= " & RsAlumnos("referenciaalumno"))
Set RsProfesion= conn.Execute("SELECT * FROM profesiones WHERE profesion = '" & RsContratos("cla1profesion") & "'")
Set RsEmpresas= conn.Execute("SELECT * FROM empresas WHERE referenciaasesoria = " & Request.QueryString("clave") & " and referenciaempresa= " & RsProrrogas("referenciaempresa"))
if colorfila=0 then
color="#EEF0F7"
colorfila=1
else
color="#FFFFFF"
colorfila=0
end if
%>
<tr bgcolor="<%=color%>" onMouseOver="this.style.background='#FAFAD2'" onMouseOut="this.style.background='<%=color%>'">
<td align="left"><a href="actualizar_prorrogas.asp?referenciaprorroga=<%=RsProrrogas("referenciaprorroga")%>&clave=<%=Request.QueryString("clave")%>"><%=RsProrrogas("referenciaprorroga")%></a></td>
<td align="left"><a href="actualizar_prorrogas.asp?referenciaprorroga=<%=RsProrrogas("referenciaprorroga")%>&clave=<%=Request.QueryString("clave")%>">
<%Response.write RsAlumnos("nombre") & " " & RsAlumnos("apellidos")%></a></td>
<td align="left"><a href="actualizar_prorrogas.asp?referenciaprorroga=<%=RsProrrogas("referenciaprorroga")%>&clave=<%=Request.QueryString("clave")%>"><%=RsEmpresas("razonsocial")%></a></td>
<td width="30"><a href="../../contratos/modificar_ver/acuerdoformacionteorica.asp?referenciacontrato=<%=RsContratos("referenciacontrato")%>&clave=<%=Request.QueryString("clave")%>&botonp=<%Response.write "p" & RsProrrogas("numeroprorroga")%>" target="_blank"><img src="../../../../images/iconos/comunicacionacuerdo.gif" width="30" height="17" border="0" title="Imprimir Comunicación de Acuerdo para Formación Teórica"></a></td>
<td width="30"><a href="../../../../gestion_web/extranet/programasformacion/<%=RsProfesion("referenciaprofesion")%>.pdf?referenciacontrato=<%=RsContratos("referenciacontrato")%>&clave=<%=Request.QueryString("clave")%>" target="_blank"><img src="../../../../images/iconos/programaformacion.gif" width="30" height="17" border="0" title="Programa de Formación"></a></td>
</tr>
<%
RsProrrogas.movenext
loop
%>
</table>
<%
RsAlumnos.Close
Set RsAlumnos=nothing
RsContratos.close
Set RsContratos=nothing
RsEmpresas.close
Set RsEmpresas=nothing
RsProfesion.close
Set RsProfesion=nothing
RsProrrogas.Close
Set RsProrrogas=nothing
Conn.close
Set Conn=nothing
END IF
END IF
%>
</body>
</html>
Gracias por todo.
__________________
Espero haber aprendido algo de tí.
A mi padre. |