Ver Mensaje Individual
  #3 (permalink)  
Antiguo 24/07/2004, 02:39
Avatar de mamon
mamon
 
Fecha de Ingreso: enero-2002
Ubicación: Lima
Mensajes: 1.302
Antigüedad: 23 años, 4 meses
Puntos: 3
pero es q el roche es q no tiene xq fallar..ayer funcionaba.. pero ok.. lo voy a poner:

<%
xid_auspicio = request.QueryString("id_auspicio")


Set oCN=Server.CreateObject("ADODB.Connection")
oCN.open application("strConexion")

str = "select * from auspiciadores where id_auspicio = "& xid_auspicio
set oRS = oCN.execute(str)

if not oRS.eof then

Set fso = CreateObject("Scripting.FileSystemObject")
'logo
ruta_logo = Application("URL_UPLOAD_ADMIN")&"\auspicios\" & trim(oRS("logo"))
if (fso.fileExists(ruta_logo)) then
fso.DeleteFile ruta_logo
end if

end if

strSQL = "delete from auspiciadores where id_auspicio = "& xid_auspicio
oCN.execute (strSQL)
%>

Espero me puedan ayudar... xq en serio no sé q ha pasado
__________________
Yo si sé lo que es trabajar duro, porque lo he visto.

Última edición por mamon; 24/07/2004 a las 02:40