Tengo este Error
Error de compilación de Microsoft VBScript (0x800A040E)
'Loop' sin 'Do'
/pruebas/prueba_mover.asp, line 25
do while not rs.eof
File=trim(rs("id_kiwi"))
Archivo= File & ".dxf"
CAD = Server.MapPath("Z:\solocad\" & Archivo & ".dxf")
if objfso.FileExists(CAD) THEN
origen="Z:\solocad\"& Archivo
destino="Z:\CADRetenido\"
objfso.MoveFile origen, destino
ELSE
rs.MoveNext
Loop********************linea 25
rs.Close
Set rs = Nothing
oConn.Close
Set oConn = Nothing
