Borrar registros parcialmente

[alfeizar]

Hola amigos, tengo un problema con un código:

En una base me gustaria borrar los registros, pero no del todo, esto es,
un registro tiene 6 refercncias a imagenes en una carpeta.

Cuando intento borrar la foto 1, mediante el link:

<a href="modificar.asp?articulo=<%=request("id")%>&fo to=1">>>>borrar</a>

y modificar.asp :


Set fso = CreateObject("Scripting.FileSystemObject")
consulta ="Select * From tabla Where UCase(articulo)='" & request("id") & "'"

Vale, eso está claro.

Borro la imagen fisica:


if request("foto")=1 then
fso.DeleteFile Server.Mappath(listado.Fields("foto1"))


pero luego borro el campo que hace referencia a esa ubicacion:


listado.update
listado.Ubicacion1=""
listado.update



pero me da error:




Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'Ubicacion'

/modificar.asp, line 48



el campo Ubicacion admite longitud 0.

Igual me estoy ahogando en un vaso de agua.

[Joch_pa]

mmm si nos muestras un poco mas de tu codigo, por ejemplo el objeto listado, tal ves desde ahi este el problema.

pero puedes intentar con:

Código SQL:

consulta = "Update tabla set Ubicacion1='' where articulo='" & request("id")  & "'"
SET rsUPD = createtobject("ADODB.Recordset")
rsUPD.OPEN consulta, miconexion
 

[alfeizar]

Sería:


Set fso = CreateObject("Scripting.FileSystemObject")
Set Conn=Server.CreateObject("adodb.connection")
Set listado=Server.CreateObject("adodb.recordset")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.Mappath("../db/base.mdb")

consulta ="Select * From tabla Where UCase(ID)='" & request("articulo") & "'"

listado.Open consulta,Conn,2,2 %>


<% if request("foto")=1 then

fso.DeleteFile Server.Mappath(inventario.Fields("Ubicacion1"))


'y aquí es donde entraria el update, osea, un request("loquesea") que introduzca un valor "" para que el campo ubicacion lo deje vacio

listado.update
listado.Ubicacion1=""
listado.width1 =""
listado.height1 =""
listado.piedefoto1=""
listado.update

else
end if%>


<%'Luego, vuelta a empezar, silo que quiero es borrar la foto2 del articulo

if request("foto")=2 then.......etc

[alfeizar]

Ya lo tengo, jodeeeeeer !!!!


Set fso = CreateObject("Scripting.FileSystemObject")
Set Conn=Server.CreateObject("adodb.connection")
Set listado=Server.CreateObject("adodb.recordset")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.Mappath("../db/base.mdb")

consulta ="Select * From tabla Where UCase(ID)='" & request("articulo") & "'"


Set listado2=Server.CreateObject("adodb.recordset")
consulta1 = "Update tblQuestion set Ubicacion='',width='',height='',piedefoto='' where UCase(ID)='"&request("articulo")&"'"
consulta2 = "Update tblQuestion set Ubicacion2='',width2='',height2='',piedefoto2='' where UCase(ID)='"&request("articulo")&"'"

listado.Open consulta,Conn,2,2


if request("foto")=1 then
fso.DeleteFile Server.Mappath(inventario.Fields("Ubicacion1"))

listado2.open consulta1,Conn2,2,2

else
end if


if request("foto")=2 then
fso.DeleteFile Server.Mappath(inventario.Fields("Ubicacion1"))

listado2.open consulta2,Conn2,2,2

else
end if

........etc, haste 6.




Gracias Joch, ha sido un placer. Si no fuera por ti.....

[Joch_pa]

Vientos, eso es todo!!