ayuda con ciclo

[omegafunky]

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  
   

[u_goldman]

Hola, eso quiere decir que tu problema es lógico para comenzar existe no veo que tenga ningún valor de inicio, pero tampoco tiene un valor de termino (false) yo comenzaría por hacer que el ciclo funcione lógicamente en inicio y término, después puedes implementar lo que gustes allí dentro, en pocas palabras, "debuguea".

Saludos