Ver Mensaje Individual
  #4 (permalink)  
Antiguo 24/04/2003, 09:44
tarlipes
 
Fecha de Ingreso: diciembre-2002
Ubicación: argentina... de ahí seran veinte cuadras
Mensajes: 382
Antigüedad: 22 años, 4 meses
Puntos: 0
el problema es este:


abro el RS

objRS.Open "PUBNA", objConn, adOpenForwardOnly, adLockOptimistic, adCmdTable

hice un addnew, para que cargue los valores que traigo de un formulario, todo funciona bien, los datos son cargados en la base, pero el problema aparece cuando selecciono un checkbox del formulario, que me envía la variable "mostrar"

RESPONSE.WRITE "OPERACIÓN COMPLETADA"
MOSTRAR=REQUEST.FORM("MOSTRAR")
IF MOSTRAR ="TRUE" THEN

OBJRS.MOVELAST%>   

<TABLE bgcolor= "#FFFFFF" style="border-style: solid" bordercolor = CCCCCC>
<TR bgcolor = "B0E0E6" font color = "#ffffff" >


<TH>ID</TH>
<TH>Título </TH>
<TH>Subtítulo</TH>
<TH>Autor</TH>
</font></TR>

<%


DIM COLOR
While Not objrs.EOF
IF COLOR = "#87ceeb" THEN
COLOR = "#FFFFF0"
ELSE
COLOR = "#87ceeb"
END IF
%>
<form>
<TR BGCOLOR=<%= COLOR%>><TH><%= objrs("ID")%> </TH>
<TH><%= objrs("TITULO_OBRA")%></TH>
<TH><%=objrs("SUBTITULO")%></TH>
<TH><%= objrs("AUTOR")%></TH>

</TR>
<%

objrs.MoveNext
Wend


%></TABLE> <BR><P><b><TR><%


objrs.Close
objconn.Close
Set objrs = Nothing
Set objconn = Nothing
ELSE
objrs.Close
objconn.Close
Set objrs = Nothing
Set objconn = Nothing
Response.Redirect "FORM.asp"
END IF

La idea de esto es que si el que carga los datos quiere ver el record seleccione el check antes de enviar y luego de la carga, se le muestran los datos.
__________________
Juan Pablo