03/06/2004, 09:39
|
| | | Fecha de Ingreso: junio-2003
Mensajes: 36
Antigüedad: 21 años, 10 meses Puntos: 0 | |
| actualizar en vez de añadir un nuevo registro?
Hola tengo este codigo:
<!--#include file="xelupload.asp"-->
<%
Dim up, fich
'Dim sNombre
'sNombre = Trim(Request.Form("Fiche"))
'rs.Fields("archivo")=sNombre
set up = new xelUpload
up.Upload()
Dim fich1, fich2, fichPDF
For each fich in up.Ficheros.Items
'Para guardarlo
'Con el nombre de fichero original:
if (LCase(Right(fich.Nombre,3)) = "jpg") or (LCase(Right(fich.Nombre,4)) = "jpeg") or (LCase(Right(fich.Nombre,3)) = "gif") then
fich.Guardar Server.MapPath("../../ServiciosOnline/digital/download/")
fich2 = fich.Nombre
else
if (LCase(Right(fich.Nombre,3)) = "pdf") then
fich.Guardar Server.MapPath("../../ServiciosOnline/digital/ficheros/")
'fichPDF = fich.Nombre
fich1 = fich.Nombre
else
fich.Guardar Server.MapPath("../../ServiciosOnline/digital/ficheros/")
fich1 = fich.Nombre
end if
end if
next
' Con otro nombre:
' fich.GuardarComo nombrefichero, Server.MapPath("rutavirtual")
'----------------------------------------------------------------
' Almacenar datos en base de datos
'Abrimos una conexión a una base de datos
Dim oConn, rs, SQL
set oConn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
'Nos conectamos con un DSN
oConn.Open "DSN=digital"
'Y abrimos la tabla Datos
SQL = "SELECT * FROM digital"
'Abrimos el Recordset con cerrojo 2 (adLockPessimiestic)
'que permite modificaciones
rs.Open SQL, oConn, 0, 2
'Añadimos un nuevo registro
rs.AddNew
'rs.Fields("description") = objUpload.Form("description")
rs.Fields("trimestre") = up.Form("trim")
rs.Fields("anyo") = up.Form("an")
'rs.Fields("prioridad") = up.Form("pri")
'rs.Fields("principal") = up.form("sino")
rs.Fields("resumen") = up.Form("resumen")
rs.Fields("fecha") = up.Form("fecha")
rs.Fields("titular")= up.Form("titular")
'rs.Fields("link")=up.Form("link")
rs.Fields("categoria")=up.Form("categoria")
rs.Fields("destino")=up.Form("destin")
rs.Fields("mes")=up.Form("meses")
rs.Fields("link_1")=up.Form("link1")
rs.Fields("link_2")=up.Form("link2")
rs.Fields("link_3")=up.Form("link3")
rs.Fields("link_4")=up.Form("link4")
rs.Fields("resumen2")=up.Form("resumen2")
rs.Fields("destacado")=up.Form("destacado")
rs.Fields("unodos")=up.Form("numerito")
rs.Fields("texto_link_1")=up.Form("texto_link1")
rs.Fields("texto_link_2")=up.Form("texto_link2")
rs.Fields("texto_link_3")=up.Form("texto_link3")
rs.Fields("texto_link_4")=up.Form("texto_link4")
'Guardamos el contenido del fichero en la base de datos:
'el nombre del fichero, su tipo
rs.Fields("imagen") = fich2
'nombre=rs.Fields("imagen")
rs.Fields("archivo") = fich1
'rs.Fields("pdf")=fichPDF
rs.Update
rs.Close
'Limpiamos objetos
set oFich = nothing
set objUpload = nothing
'rs.Close
set rs = nothing
oConn.Close
set oConn = nothing
'next
%>
<%Response.Redirect("nuevo_docRG.asp")%>
<title>Archivo Insertado</title>
<body bgcolor="#FFFFCC">
Y lo q quiero conseguir es q en vez de añadirme un registro nuevo..me actualice (update) un..registro...como puedo hacerlo?
Por favor alguien me puede ayudar? :( |