
24/04/2003, 09:44
|
| | 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 |