El codigo va en dos post pq no cabe en uno solo.
Envio el código de los ficheros para ver si así son ustedes capaces de decirme algo, porque yo ya no se que más buscar, me lo veo crudo (mi coco no da para más)
He probado lo que me han dicho anteriormente sin conseguir nada.
Son dos ficheros el primero: modificar_ver_prorrogas.asp envia los datos al segundo: modificar_ver_prorrogas_result.asp.
Es en el segundo fichero donde me da el problema, marcaré el lugar en rojo.
El error que devuelve es:
El asunto es que toma el simbolo de mayor que por un nombre de campo.
La base de datos es access:
Campos:
referenciaprorroga: autonumerico
referenciaasesoria: Numero (entero largo)
referenciaalumno: Numero (entero largo)
referenciacontrato: Numero (entero largo)
referenciaempresa: Numero (entero largo)
numeroprorroga: Texto (1)
duracionprorroga: Texto (8)
fechainicioprorroga: Fecha/ hora
fechafinprorroga: Fecha/hora
tiempoacumulado: texto (40)
fecharegistro: Fecha/hora
numeroregistro: Texto(7)
No se encontró el elemento en la colección que corresponde con el nombre o el ordinal pedido. Error en la linea 128.
Codigo modificar_ver_prorrogas.asp
------------
Código:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
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 Prorroga Contrato</title>
<link href="../../../../css/estilos_extranet.css" rel="stylesheet" type="text/css">
</head>
<!--#include file="../../../../adovbs.asp" -->
<!--#include file="../../../../menus_cabeceratablas.asp" -->
<%
Set Conn= Server.CreateObject("ADODB.Connection")
Set Command= Server.CreateObject("ADODB.Command")
Conn.open "DSN=coesco.com"
Command.ActiveConnection=Conn
Command.CommandType=adCmdText
Command.CommandText= "SELECT * FROM empresas WHERE referenciaasesoria = " & Request.QueryString("clave")
Set RsEmpresas=Command.Execute ()
%>
<body>
<%if session("autorizacion")=3 then%>
<form action="modificar_ver_prorrogas_result.asp?clave=<%=Request.QueryString("clave")%>" method="post" name="form1">
<%CabeceraTablaModificarProrrogas%>
<table class="gestion" align="center">
<tr>
<td colspan="2" class="mensajesrellenar"> </td>
</tr>
<tr>
<td colspan="2" class="mensajesrellenar">Introduzca un valor sobre el criterio de búsqueda a seleccionar</td>
</tr>
<tr>
<td colspan="2" class="mensajesrellenar"> </td>
</tr>
<!--<tr>
<td width="16%" class="celda">Referencia</td>
<td width="84%" class="celda"><input name="referenciaprorroga" type="text" class="cajadetexto" id="referenciaprorroga" size="14" maxlength="14"></td>
</tr> -->
<tr>
<td width="187" class="celda">Empresa </td>
<td width="569" class="celda"><select name="referenciaempresa" class="SELECT" id="referenciaempresa">
<option value="""" selected>Seleccionar Empresa</option>
<%RsEmpresas.movefirst
do while not RsEmpresas.eof%>
<option value="<%=RsEmpresas("referenciaempresa")%>"><%=RsEmpresas("razonsocial")%></option>
<%RsEmpresas.movenext
loop%>
</select></td>
</tr>
<tr>
<td class="celda">Desde Fecha Inicio Prorroga </td>
<td class="celda"><input name="fechainicioprorroga" type="text" class="cajadetexto" id="fechainicioprorroga" size="10" maxlength="10"></td>
</tr>
<tr>
<td class="celda">Hasta Fecha Fin Prorroga </td>
<td class="celda"><input name="fechafinprorroga" type="text" class="cajadetexto" id="fechafinprorroga" size="10" maxlength="10"></td>
</tr>
<tr>
<td colspan="2" class="celda"> </td>
</tr>
<tr>
<td> </td>
<td><input type="submit" class="BOTONES_FORMULARIO" value="Ver Prorrogas">
<input type="reset" class="BOTONES_FORMULARIO" value="Limpiar Formulario">
<input name="referenciaasesoria" type="hidden" id="referenciaasesoria" value="<%=request.QueryString("clave")%>"></td>
</tr>
<tr>
<td colspan="2" class="gestion"> </td>
</tr>
</table>
</form>
<%end if
RsEmpresas.close
Conn.close
Set RsEmpresas=nothing
Set Conn=nothing%>
</BODY>
</HTML>