Ver Mensaje Individual
  #1 (permalink)  
Antiguo 25/03/2008, 10:45
Avatar de omegafunky
omegafunky
 
Fecha de Ingreso: diciembre-2003
Ubicación: Tabasco, Mexico
Mensajes: 3.534
Antigüedad: 21 años, 3 meses
Puntos: 33
Exclamación ayuda con ciclo

bueno amigos me ando peleando con un codigo, espero me puedan ayudar para ver en que esta mal, lo que esta en el "--------- FUNCIONA" antes de meterlo al ciclo si funciona y sube el archivo y guarda en la base de datos, pero una ves que lo meto al ciclo ya no hace nada


Código PHP:
                            do while (existe true)
                                
SQL1 "SELECT id_sesion FROM archivos WHERE id_sesion = "&session("sesion_actual")
                                
Set rs1 conn.Execute(SQL1)
                                if 
rs1.eof then

'-------------------------------FUNCIONA
                                            SQL1 = "SELECT nombre FROM archivos"
                                            Set db = conn.Execute(SQL1)
                                            i = 0
                                            i = i + 1
                                            strNombreFichero = session("sesion_actual") &"_"&i& ext
                                            objFich.GuardarComo strNombreFichero, Server.MapPath("archivos")
                                            db.Close
                                    
                                            SQL = "SELECT * FROM archivos"
                                            db.Open SQL, conn, 0, 2
                                            db.AddNew
                                            db.Fields("nombre") = strNombreFichero
                                            db.Fields("fecha") = Date()
                                            db.Fields("id_sesion") = session("sesion_actual")
                                            db.Update
                                    
                                            db.Close
                                            set db = nothing
                                            conn.Close
                                            set conn = nothing
                                            Response.Write "Todos los Archivos fueron subidos con exito"
                                    
                                            '
Limpiamos nuestro xelUpload y el fichero
                                            set oFich 
nothing
                                            set objUpload 
nothing
                                            existe 
true
'-------------------------------FUNCIONA
                                else
                                
                                            SQL1 = "SELECT COUNT(nombre) FROM archivos WHERE id_sesion = "&session("sesion_actual")
                                            Set db = conn.Execute(SQL1)
                                            i = db("nombre") + 1
                                            strNombreFichero = session("sesion_actual") &"_"&i& ext
                                            objFich.GuardarComo strNombreFichero, Server.MapPath("archivos")
                                            db.Close
                                    
                                            SQL = "SELECT * FROM archivos"
                                            db.Open SQL, conn, 0, 2
                                            db.AddNew
                                            db.Fields("nombre") = strNombreFichero
                                            db.Fields("fecha") = Date()
                                            db.Fields("id_sesion") = session("sesion_actual")
                                            db.Update
                                    
                                            db.Close
                                            set db = nothing
                                            conn.Close
                                            set conn = nothing
                                            Response.Write "Todos los Archivos fueron subidos con exito"
                                    
                                            '
Limpiamos nuestro xelUpload y el fichero
                                            set oFich 
nothing
                                            set objUpload 
nothing
                                            existe 
true
                                
                                end 
if
                        
loop 
__________________
Canon 7D | Canon 5D Mark II | 35mm 1.4L | 135mm 2L | Pocket Wizard Plus III