Borrar registros parcialmente

[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.....