Foros del Web » Programando para Internet » ASP Clásico »

Ayuda Con Un Hidden

 Estas en el tema de Ayuda Con Un Hidden en el foro de ASP Clásico en Foros del Web. TENGO UNA PAGINA EN ASP DONDE HAGO UN INSERTADO DE DATOS DONDE EXISTEN VARIOS COMBOS. <!--#include file="../../Connections/connec.asp"--> <% dim conn, objrs dim TBL dim TBL_NUMROWS ...
  #1 (permalink)  
Antiguo 19/12/2006, 13:23
 
Fecha de Ingreso: noviembre-2006
Ubicación: Villahermosa,Tabasco,Mexi
Mensajes: 22
Antigüedad: 17 años, 6 meses
Puntos: 1
Ayuda Con Un Hidden
TENGO UNA PAGINA EN ASP DONDE HAGO UN INSERTADO DE DATOS DONDE EXISTEN VARIOS COMBOS.
<!--#include file="../../Connections/connec.asp"-->
<%
dim conn, objrs
dim TBL
dim TBL_NUMROWS
DIM cve_horario,cve_tipo_horario
set TBL = server.CreateObject("ADODB.RECORDSET")
TBL.ACTIVECONNECTION = MM_connec_STRING
TbL.SOURCE = "SELECT * FROM AVERIGUACION_ACTIVIDAD"
TBL.CURSORTYPE=0
TBL.CURSORLOCATION=2
TBL.LOCKTYPE=1
TBL.OPEN()
%>
<html>
<head>
<script language="javascript" src="../../librerias/cal2.js"></script>
<script language="javascript" src="../../librerias/cal_conf2.js"></script>
<script language="javascript" src="../../librerias/cancelar.js"></script>
<script language="javascript" src="../../librerias/EsNumerico_Claves.js"></script>
<script language="javascript" src="../../librerias/EsNumericoAnio.js"></script>
<script language="javascript" src="../../librerias/title.js"></script>
<script language="javascript" type="text/javascript">
function comprobar(){var mal=false;
numero=document.forms[0].elements.length;
for(a=0;a<numero;a++){
if (document.forms[0].elements[a].value==""){document.forms[0].elements[a].style.backgroundColor="#a0c0a0";mal=true;}
else{document.forms[0].elements[a].style.backgroundColor="#CCCCCC";}
}
if(mal){alert("Por favor, rellene los campos vacios");}
else{document.forms[0].submit()}
}

</script>

<script language="JavaScript">
<!--
var nav4 = window.Event ? true : false;
function acceptNum(evt){
// NOTE: Backspace = 8, Enter = 13, '0' = 48, '9' = 57
var key = nav4 ? evt.which : evt.keyCode ;

return (key <= 13 || (key >= 48 && key <= 57));

}
//-->
</script>
<script language="javascript">
ventanaX = 1030;
ventanaY = 750; self.resizeTo(ventanaX,ventanaY);
</script>

<title>.::SISTEMA INTEGRAL DE OPERACIONES | PROCURADURIA GENERAL DE JUSTICIA::.</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="../../estilo/asterisco.css" rel="stylesheet" type="text/css">
<link href="../../estilo/BIENVENIDA.css" rel="stylesheet" type="text/css">
<link href="../../estilo/bis.css" rel="stylesheet" type="text/css">
<link href="../../estilo/BOTON.css" rel="stylesheet" type="text/css">
<link href="../../estilo/celda.css" rel="stylesheet" type="text/css">
<link href="../../estilo/encabezado.css" rel="stylesheet" type="text/css">
<link href="../../estilo/lista.css" rel="stylesheet" type="text/css">
<link href="../../estilo/notas.css" rel="stylesheet" type="text/css">
<link href="../../estilo/PRIMER_ENCABEZADO.css" rel="stylesheet" type="text/css">
<link href="../../estilo/segundo_encabezado.css" rel="stylesheet" type="text/css">
<link href="../../estilo/combos.css" rel="stylesheet" type="text/css">
</head>
<%

'Agencia

Set Connec=Server.CreateObject("ADODB.connection")
Connec.mode = admodeReadWrite
Connec.open MM_connec_STRING

SqlAgencia = "Select * From CAT_AGENCIAS"
Set listAgencia = Connec.Execute(SqlAgencia)

'Turno

Set Connec=Server.CreateObject("ADODB.connection")
Connec.mode = admodeReadWrite
Connec.open MM_connec_STRING

SqlTurno = "Select * From CAT_TURNO"
Set listTurno = Connec.Execute(SqlTurno)


'Actividad
Set Connec=Server.CreateObject("ADODB.connection")
Connec.mode = admodeReadWrite
Connec.open MM_connec_STRING

SqlActespecif = "Select * From CAT_ACT_ESPECIFICA"
Set listActespecif = Connec.Execute(SqlActespecif)

'General
Set Connec=Server.CreateObject("ADODB.connection")
Connec.mode = admodeReadWrite
Connec.open MM_connec_STRING

SqlActgral = "Select * From CAT_ACT_GENERAL"
Set listActgral = Connec.Execute(SqlActgral)

%>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onLoad="titler()">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="413"><img src="../../imagenes/AvePrevia.jpg" width="413" height="70"></td>
<td width="100%" height="64" background="../../imagenes/top_02.jpg"></td>
<td width="352"><img src="../../imagenes/pgj.jpg" width="335" height="70" border="0"></td>
</tr>
<tr bgcolor="#00693F" class="BIENVENIDA">
<td height="18" colspan="3"><table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="70%" class="footer1" bgcolor="#008020"><div align="left" class="BIENVENIDA" ><span class="BIENVENIDA">Bienvenidos, Hoy es
</span> <script language="JavaScript">
<!-- // Fecha actualización
meses= new Array ("Enero","Febrero","Marzo","Abril","Mayo",
"Junio","Julio","Agosto","Septiembre","Octubre","N oviembre",
"Diciembre");
fecha= new Date(document.lastModified);
indice = fecha.getMonth();
document.write( fecha.getDate()+ " de " + meses[indice]
+" de " + fecha.getYear());
//-->
</script>
</div></td>
<td width="30%" bgcolor="#008020"><div align="center">
<table width="87%" border="0" align="right" cellpadding="0" cellspacing="0">
<tr>
<td width="53%"><div align="right"><font color="#FFFFFF"><a href="../../sisave.html" target="_parent" class="BIENVENIDA">Inicio</a></font></div></td>
<td width="34%"><div align="center"><font color="#FFFFFF"><a href="#" class="BIENVENIDA">Ayuda</a></font></div></td>
<td width="13%"><div align="left"><font color="#FFFFFF"><a href="../../menu.asp" target="_parent" class="BIENVENIDA">Salir</a></font></div></td>
</tr>
</table>
</div></td>
</tr>
</table></td>
</tr>
<tr bgcolor="#000000">
<td height="1" colspan="3"></td>
</tr>
</table>
<p>&nbsp;</p>
<table width="1234" border="0">
<tr>
<td width="1228" class="n_encabezado">Captura de la Averiguaci&oacute;n Actividades </td>
</tr>
<tr>
<td class="recomendaciones">&nbsp;</td>
</tr>
</table>
<form method="post" name="averiguacion_actividad" id="averiguacion_actividad" action="../registros_insertado/inserto_averiguacion_actividad.asp">
<table width="812" border="0">
<tr>
<td colspan="4" class="celdas">&nbsp;</td>
</tr>
<tr>
<td width="166" class="celdas"><span class="asterisco">*</span>Averiguaci&oacute;n Previa: </td>
<td colspan="2"><select name="agencia" size="1" class="combos" id="agencia">
<option value="0">=Agencia=</option>
<%while Not listAgencia.eof%>
<option value="<%Response.Write listAgencia("CVE_AGENCIA")%>"><%Response.Write (listAgencia("CVE_AGENCIA"))%> </option>
<% listAgencia.movenext
wend %>
</select>
<strong>-</strong>
<select name="select" class="combos">
<option value="0">=Turno=</option>
<%while Not listTurno.eof%>
<option value="<%Response.Write listTurno("DESC_TURNO")%>"><%Response.Write (listTurno("CVE_TURNO"))%> </option>
<% listTurno.movenext
wend %>
</select>
<strong>- </strong>
<input name="folio" type="text" id="folio" size="10" maxlength="5" onChange="compruebaNumerico(this) ">
/
</strong>
<input name="textfield" type="text" size="10"></td>
<td width="157"><input name="chcbis" type="checkbox" id="chcbis2" value="S">
<span class="bis"><strong>Bis</strong></span></td>
</tr>
<tr>
<td class="celdas">Numero de Oficio:</td>
<td width="291"><input name="numoficio" type="text" id="numoficio" size="25" maxlength="20" onChange="compruebaNumerico(this) "></td>
<td width="142" class="celdas">Fecha de Elaboraci&oacute;n: </td>
<td> <span class="celdas"><span class="asterisco">
<input name="fech_ela" type="text" id="fech_ela" onClick="javascript:showCal('Calendar10')" size="11" maxlength="8" onKeyPress="return acceptNum(event)">
</span></span></td>
</tr>
<tr>
<td class="celdas">Actividad General: </td>
<td><select name="slactividad" class="combos" id="slactividad">
<option value="0">=Actividad General =</option>
<%while Not listActgral.eof%>
<option value="<%Response.Write listActgral("CVE_ACT_GENERAL")%>"><%Response.Write (listActgral("DESC_ACT_GENERAL"))%> </option>
<% listActgral.movenext
wend %>
</select></td>
<td class="celdas">Actividad Espec&igrave;fica: </td>
<td><select name="slactespecifica" class="combos" id="slactespecifica">
<option value="0">=Actividad Especifica =</option>
<%while Not listActespecif.eof%>
<option value="<%Response.Write listActespecif("CVE_ACT_ESPECIFICA")%>"><%Response .Write (listActespecif("DESC_ACT_ESPECIFICA"))%> </option>
<% listActespecif.movenext
wend %>
</select></td>
</tr>
<tr>
<td height="27" class="celdas">Fecha Determinante: </td>
<td> <span class="celdas"><span class="asterisco">
<input name="fech_determinante" type="text" id="fech_determinante" onClick="javascript:showCal('Calendar11')" size="11" maxlength="8">
</span></span></td>
<td><div align="center">
<blockquote>
<p>&nbsp; </p>
</blockquote>
</div></td>
<td>&nbsp;</td>
</tr>
<tr>
<td colspan="2"><div align="center">
<p>&nbsp;</p>
<p>&nbsp; </p>
<p align="right">
<input name="btguardar" type="button" id="btguardar" value="Guardar" onClick="comprobar()">
</p>
</div></td>
<td><p>&nbsp;
</p>
<p>&nbsp; </p>
<p>
<input name="btcancelar" type="reset" id="btcancelar" value="Cancelar" onClick="confirmar_reset()">
</p></td>
<td>&nbsp;</td>
</tr>
</table>
</form>
</p></p>
<p>&nbsp;</p>
</body>
</html>

HASTA AQUI TODO VA BIEN.
  #2 (permalink)  
Antiguo 19/12/2006, 13:24
 
Fecha de Ingreso: noviembre-2006
Ubicación: Villahermosa,Tabasco,Mexi
Mensajes: 22
Antigüedad: 17 años, 6 meses
Puntos: 1
Continuacion
PERO AL MOMENTO DE AGREGARLE UN CAMPO OCULTO QUE LE COLOCO COMO VALUE ((<%RESPONSE.WRITE(TBL("CVE_AVE_ACTIVIDAD"))%>) ME MANDA EL SIGUIENTE ERROR:

Tipo de error:
ADODB.Field (0x80020009)
El valor de BOF o EOF es True, o el actual registro se eliminó; la operación solicitada requiere un registro actual.
/SIO/sisave/insertar/averiguacion_actividad.asp

CON QUE FINALIDAD AGREGO EL CAMPO OCULTO? BUENO ESTE LO AGREGO PARA QUE ME TOME EL VALOR DE EL CAMPO. A ESTE CAMPO LE ASIGNE UNA SECUENCIA NEXTVAL (AUTONUMERICO) QUE SE ACTIVARA MEDIANTE UN PROCEDIMIENTO ALMACENADO. CUAL PUEDE SER MI PROBLEMA????
  #3 (permalink)  
Antiguo 19/12/2006, 18:43
Avatar de Myakire
Colaborador
  
Fecha de Ingreso: enero-2002
Ubicación: Centro de la república
Mensajes: 8.849
Antigüedad: 22 años, 4 meses
Puntos: 146
Re: Ayuda Con Un Hidden
¿dónde agregas ese campo oculto? ....please .... solo coloca la parte del código involucrada, no todo ...

Ese error es por que estas tratando de leer cierto campo de un registro ..... que no existe ..... seguro no validas que el RS tenga registros o lo colocaste al final de uno de los muchos ciclos, cuando ya se ha alcanzado el EOF

Saludos
  #4 (permalink)  
Antiguo 20/12/2006, 11:12
 
Fecha de Ingreso: noviembre-2006
Ubicación: Villahermosa,Tabasco,Mexi
Mensajes: 22
Antigüedad: 17 años, 6 meses
Puntos: 1
Re: Ayuda Con Un Hidden
ESTE ES LA PARTE DEL CODIGO DONDE SE INVOLUCRA EL HIDDEN

<table width="681" border="0">
<tr>
<td width="160" class="celdas"><span class="asterisco">*</span>Averiguaci&oacute;n Previa
<input name="clave" type="hidden" id="clave" value="<%Response.Write(TBL("NUM_DELITO_AVE"))%>" ></td>
<td width="405"><select name="agencia" class="combos" id="agencia">
<option value="0">= Agencia =</option>
<% While not listAgencia.eof %>
<option value="<%Response.Write (listAgencia("CVE_AGENCIA"))%>">
<%Response.Write (listAgencia("CVE_AGENCIA"))%>
</option>
<% listAgencia.movenext
wend %>
</select>
<strong>-

<select name="turno" class="combos" id="turno">
<option value="0">=Turno=</option>
<%while not listTurno.eof%>
<option value="<%Response.Write (listTurno("CVE_TURNO"))%>">
<%Response.Write (listTurno("CVE_TURNO"))%>
</option>
<% listTurno.movenext
wend %>
</select>
  #5 (permalink)  
Antiguo 20/12/2006, 14:34
Avatar de Myakire
Colaborador
  
Fecha de Ingreso: enero-2002
Ubicación: Centro de la república
Mensajes: 8.849
Antigüedad: 22 años, 4 meses
Puntos: 146
Re: Ayuda Con Un Hidden
Pues estamos igual

<td width="160" class="celdas"><span class="asterisco">*</span>Averiguaci&oacute;n Previa
<input name="clave" type="hidden" id="clave" value="<%Response.Write(TBL("NUM_DELITO_AVE"))%>" ></td>

Con es código (que no es el mismo campo del post anterior que pusiste) no sabemos si el recordSet TBL tiene registros. Supongo que lineas arriba lo abres y no validas si tiene datos (If TBL.EOF Then ....)
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta


« Tema Anterior | Próximo Tema »


La zona horaria es GMT -6. Ahora son las 00:42.