actualizar datos en la misma pagina

[palomahayes]

hola

esta es otra duda que tengo

estoy haciendo una pagina tipo de noticias y primero en una pagina despliego
tipo:
titulo
descripcion:
archivo (una imagen, bueno es la url de la imagen de la noticia)

la tengo paginada muestro de 5 en 5

todos los registros mostrados tienen un link, que se va a otra pagina en donde muestros la informacion pero en text areas para modificarlas

el problema es que nooooooo seee como hacerle para hacerles un update en la misma pagina

tengo el boton de guardar, que al darle click es que me debe de actualizar los datos (creo)

pero como tendria que hacerlo???

me podrian ayudar?
que sea en la misma pagina?

[i_e_s27]

Hola!

Primero que nada especificas el form action a la misma pagina... Luego:

Este es tu boton guardar:

<INPUT type="submit" name="BotonGuardar" value="Guardar">

y este es el codigo que te dice que se presiono dicho boton:

If Request.Form("BotonGuardar") = "Guardar" Then
Call Actualizar_Datos <---- Aqui llamas un Sub
End If

Sub Actualizar_Datos
'Aca pones todo el codigo para actualizar los datos, validarlos antes, etc, etc
End Sub

Lo que esta dentro del Sub solo sera ejecutado si se presiona el boton Submit

[palomahayes]

y como le puedo hacer si tengo una imagen en vez de boton
tipo tengo la imagen de un boton, en vez de un boton

[JuanRAPerez]

busca las etiquetas html para hacer una imagen un botón

suerte

[palomahayes]

<A HREF="#"><IMG SRC="../imagenes/guardar.gif" HSPACE="3" BORDER="0" ALT="" name="guardar" onClick="submit();"></A>


asi?

[palomahayes]

<input type="image" value="guardar" name="guardar" src="../imagenes/btn_guardar.gif"/>

[JuanRAPerez]

<input type="image" src="images/submit.jpg" value="Submit" alt="Submit">

suerte

[palomahayes]

aaah
ya le hice como creeeeeeeeo yo que es
pero no se que pasa
alguien puede ayudarme
quiero hacer la actualizacion en la misma pagina

tengo la info en un elemento que anteriormente seleccione y quiero modificarlo, al darle guardar que los cambios se guarden y vea la actualizacion

[JuanRAPerez]

oki, cuando le das guardar que hace el codigo se va a otra pagina que hace el actualizar?????

o que hace?????

[palomahayes]

<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">&nbsp;</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">&nbsp;&nbsp;Configuración Portal/ Mantenimiento / Casos de Exito</p></td>
</tr>
<tr>
<td class="txtcontenido" width="618">&nbsp;</td>
</tr>
<tr>
<td class="txtcontenido" width="618">&nbsp;</td>
</tr>
<tr>
<td class="txtcontenido" width="618">&nbsp;</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">&nbsp;
</TD>
<TD class="txtcontenido" align="right" bgcolor="white" heigth="5">&nbsp;</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">&nbsp;</td>
</tr>
<tr>
<td class="txtcontenido" width="618" bgcolor="#FFFFFF">&nbsp;</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">&nbsp;</td>
</tr>
</table>
<!--TERMINA LA PAGINA-->
</td>
</tr>
</table>

<script>toggle(3)</script>
</body>
</html>

[JuanRAPerez]

lo siento pero hoy si ando sin ganas de leer mucho código

haz otra pagina solo para actualizar tu información y ahí coloca la función de actualizar.
o usa Select Case.

otra cosa es revisar tu sql de la función actualizar

Tienes ahorita

sqlStr = "UPDATE IO_CasosExitosos SET proyecto='"& pry &"' "

tendria que ser

sqlStr = "UPDATE IO_CasosExitosos SET Campo1 = '"& Campo1&"', Campo2 = '"& Campo2&"', Campo3 = '"& Campo3&"' where id = " & id

tenes que colocar todos los campos a actualizar y el ID de la noticia dado que si no especificas el ID te actualizara todos.

verifica que ID sea numérico si no va entre comillas

suerte