Ver Mensaje Individual
  #1 (permalink)  
Antiguo 19/12/2005, 17:13
Zippo3000
 
Fecha de Ingreso: abril-2005
Mensajes: 71
Antigüedad: 20 años
Puntos: 0
Pregunta sleep o delay en ASP

Hola , quisiera saber si conocen algo para detener el codigo por un momento y luego seguir
El problema surge cuando subo una imagen con el objeto SoftArtisans.FileUp, si existe una imagen, a veces, me dice que verifique los permisos de lectura, escritura, borrado O que verifique si ya existe ese archivo en el servidor. Para evitar este problema lo que hago es ver YO si existe este archivo y borrarlo, pero creo que necesita un tiempo para actualizarse, luego lo subo.
El codigo esta cortado, pero puse lo importante

<%
Set oUpLoad = Server.CreateObject("SoftArtisans.FileUp")
oUpLoad.Path = Server.MapPath( "../Pics/" )
IdPro = oUpLoad.form("IdPro")

if Not oUpLoad.form("Img1").IsEmpty and IdPro <> "" then
%>
...
<%
Set oIPro = Server.CreateObject("Scripting.FileSystemObject")

if UCase( Right( oUpLoad.form("Img1").UserFileName, 4 ) ) = ".JPG" then
'borro imagen si ya existe
If oIPro.FileExists(Server.MapPath("../pics/" & IdPro & ".jpg")) then
Set oArcImg = oIPro.GetFile( server.MapPath("../pics/" & IdPro & ".jpg") )
oArcImg.delete
Set oArcImg = nothing
End if
'cargo imagen 1
oUpLoad.form("Img1").SaveAs Server.MapPath("../Pics/" & IdPro & ".jpg" )
BytesTransferidos = BytesTransferidos + oUpLoad.form("Img1").TotalBytes
Response.Write "<li>Imagen peque&ntilde;a cargada con &eacute;xito! (*.jpg)</li>"
end if
%>