<table width="781" border="0" cellspacing="0" cellpadding="0">
<tr>
<td colspan="3">
<!---#include file="../nuevo_menu.asp"-->
<!---#include file="../principal/RutaCrystal.inc"--></td>
</tr>
<tr>
<td colspan="3"><!---#include file="../Herramientas/imagen_htas.asp"--></td>
</tr>
<tr>
<td width="160" valign="top"><!---#include file="../principal/menu_vertical_htas.asp"--></td>
<td width="10" valign="top"> </td>
<td width="612" align="right" valign="top">
<%On Error Resume Next %>
<!--EMPIEZA LA PAGINA -->
<table width="618" border="0" cellspacing="0" cellpadding="0" align="left">
<tr>
<td bgcolor="#CCCCCC" height="15"><p class="style2"> Configuración Portal/ Mantenimiento / Casos de Exito</p></td>
</tr>
<tr>
<td class="txtcontenido" width="618"> </td>
</tr>
<tr>
<td class="txtcontenido" width="618"> </td>
</tr>
<tr>
<td class="txtcontenido" width="618"> </td>
</tr>
<tr>
<td class="txtcontenido" width="618" align="center">
<!--TABLA CONTENIDO -->
<table width="500" border="0" CELLSPACING="1" CELLPADDING="1" bgcolor="#FFFFFF" align="center">
<tr>
<td>
<!--TABLA DE ENCABEZADO -->
<table width="500" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="8"><img src="../imagenes/esq_sup_izq.gif" width="8" height="18"></td>
<td width="484" bgcolor="#C1C1C1" class="titblanco" align="center">Casos de Exito</td>
<td width="8"><img src="../imagenes/esq_sup_der.gif" width="8" height="18"></td>
</tr>
<tr>
<td width="8" height="1">
<IMG SRC="../imagenes/pix_1x1.gif" WIDTH="1" HEIGHT="1" BORDER="0" ALT=""></td>
<td width="384" height="1">
<IMG SRC="../imagenes/pix_1x1.gif" WIDTH="1" HEIGHT="1" BORDER="0" ALT=""></td>
<td width="8" height="1">
<IMG SRC="../imagenes/pix_1x1.gif" WIDTH="1" HEIGHT="1" BORDER="0" ALT=""></td>
</tr>
<tr >
<td heigth="1" colspan="3" bgcolor="#999999"></TD>
</tr>
</table>
<!--TERMINA TABLA DE ENCABEZADO --> </td>
</tr>
<tr>
<td width="500" class="txtcontenido" valign="top">
<!--AQUI ESTA EL FORM -->
<table width="500" border="0" cellspacing="1" cellpadding="0" align="center">
<%
Dim Id
Id=Request.QueryString ("IdElemento")
Set oConn=Server.Createobject("Adodb.Connection")
oConn.open"IntraDEOP","IntraDEO", "deop"
'Creamos el RecordSet para la paginacion de registros
set rs=server.CreateObject("adodb.recordset")
'Creamos nuestra sentencia SQL
sqlStr = "SELECT Id,Cliente, Proyecto,Beneficio,Area,Imagen FROM IO_CasosExitosos where id ='"& id &"'"
'Definimos la cantidadd de registros que mostrara por pagina
rs.pagesize = 5
rs.CursorLocation=3
rs.CursorType=3
'Abrimos la coneccion al RecordSet
rs.Open sqlStr, oconn
'Tomamos el valor de la pagina en la que nos encontramos
Pagina = Request.QueryString("pagina")
if pagina < "1" or pagina = "" then
pagina = "1"
end if
if not rs.eof then
'Indicamos que pagina debe de mostrar
rs.AbsolutePage = pagina
end if
%>
<%
'Hacemos un loop con la cantidad de registros especificados en rs.pagesize,
'para que solo muestre esa cantidad
For i = 1 to 5
'Verificamos cada ves que no sea fin de archivo
if not rs.eof then
'Poblamos la tabla con el resultado de la consulta a la base de datos %>
<form method="post" action="modificar_casos_exito2.asp?IdElemento=<%=r s("id")%>" name="frmActualiza">
<TR>
<TD class="txtcontenido" align="right" bgcolor="lightgrey">Proyecto:</TD>
<TD class="txtcontenido" bgcolor="#eeeeee">
<TextArea type="textarea" NAME="proyecto" CLASS="txtgrande"><%=rs("Proyecto")%></textarea></TD>
</TR>
<!--cliente -->
<TR>
<TD class="txtcontenido" align="right" bgcolor="lightgrey">Cliente:</TD>
<TD class="txtcontenido" bgcolor="#eeeeee">
<TextArea type="textarea" NAME="cliente" CLASS="txtgrande"><%=rs("Cliente")%>
</textarea></TD>
</TR>
<!--Beneficios -->
<TR>
<TD class="txtcontenido" align="right" bgcolor="lightgrey">Beneficio:</TD>
<TD class="txtcontenido" bgcolor="#eeeeee">
<TextArea type="textarea" NAME="beneficio" CLASS="txtgrande" cols="45" rows="5"><%=rs("Beneficio")%>
</textarea></TD>
</TR>
<!--Area-->
<%if rs("area") = "ING" then %>
<TR>
<TD class="txtcontenido" align="right" bgcolor="lightgrey">Area:</TD>
<TD class="txtcontenido" bgcolor="#eeeeee">
<TextArea type="textarea" NAME="area" CLASS="txtgrande">Ingeniería de Procesos</textarea></TD>
</TR>
<%else%>
<TR>
<TD class="txtcontenido" align="right" bgcolor="lightgrey">Area:</TD>
<TD class="txtcontenido" bgcolor="#eeeeee">
<TextArea type="textarea" NAME="area" CLASS="txtgrande">
<%=rs("Area")%>
</textarea></TD>
</TR>
</TR>
<%end if%>
<TR>
<TD class="txtcontenido" align="right" bgcolor="lightgrey">Archivo:</TD>
<TD class="txtcontenido" bgcolor="#eeeeee">
<TextArea type="textarea" NAME="imagen" CLASS="txtgrande">
<%=rs("Imagen")%>
</textarea></TD>
</TR>
<!--Espacio-->
<TR>
<TD class="txtcontenido" align="right" bgcolor="white" heigth="5">
</TD>
<TD class="txtcontenido" align="right" bgcolor="white" heigth="5"> </TD>
</TR>
</Form>
<%
'Nos movemos al siguiente registro
rs.MoveNext
end if
next
%>
</table>
<!--TERMINA EL FORM--> </td>
</tr>
</table>
<!--TERMINA TABLA DE ENCABEZADO --> </td>
</tr>
<tr>
<td class="txtcontenido" width="618" bgcolor="#FFFFFF" align="center"> </td>
</tr>
<tr>
<td class="txtcontenido" width="618" bgcolor="#FFFFFF"> </td>
</tr>
<tr>
<td class="txtcontenido" width="618" bgcolor="#FFFFFF" align="center">
<%
If Request.Form("guardar") = "guardar" Then
Call Actualizar_Datos
End If
Sub Actualizar_Datos
pry=Request.QueryString("proyecto")
cte=Request.QueryString("cliente")
bnf=Request.QueryString("beneficio")
area=Request.QueryString("area")
imagen=Request.QueryString("imagen")
Set oConn=Server.Createobject("Adodb.Connection")
oConn.open"IntraDEOP","IntraDEO", "deop"
'Creamos el RecordSet
set rs=server.CreateObject("adodb.recordset")
'Creamos nuestra sentencia SQL
sqlStr = "UPDATE IO_CasosExitosos SET proyecto='"& pry &"' "
End Sub
%>
<A HREF="#"><input type="image" value="guardar" name="guardar" src="../imagenes/btn_guardar.gif" onClick="Submit()"/></A>
<A HREF="Casos_Exito.asp"><IMG SRC="../imagenes/btn_Regresar.gif" HSPACE="3" BORDER="0" ALT=""></A></td>
</tr>
<tr>
<td class="txtcontenido" width="618"> </td>
</tr>
</table>
<!--TERMINA LA PAGINA-->
</td>
</tr>
</table>
<script>toggle(3)</script>
</body>
</html>