Foros del Web - Ver Mensaje Individual

ciberpata · #1 (**permalink**) 06/02/2006, 07:41

Un saludo:
Alguien sabria decirme por qué me da el error mencionado en el titulo del hilo.

Los datos a borrar provienen de un listado mediante formulario. La cosa es que tiene que borrar dos registros en dos tablas diferentes y las imagenes que lleva asociadas de su carpeta de usuario.
Todo funciona bien borra las imagenes, borra el segundo registro y luego me devuelve ese error al intentar borrar el primer registro.

Les paso el código y les indico la linea del error en rojo para ver si pueden echarme una mano.

Código:

<<A href="mailto:%@LANGUAGE="VBSCRIPT">%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%response.Expires=0
Response.AddHeader "PRAGMA", "NO-CACHE" 
if session("autorizacion")=-1  then 
 response.redirect "../../login.asp"
end if
nombreusuario=request.QueryString("nombreusuario")
autonomia=request.QueryString("autonomia")
%>
<html>
<head>
<title>Desde aqu&iacute; puede borrar las tallas</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
<link href="../../../hojaestilo.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="5" topmargin="5" marginwidth="5" marginheight="5">
<!--Incluimos el fichero de constantes-->
<!--#INCLUDE file="../../../adovbs.asp"-->
<%IF (request.form <> "") then 
 'Abrimos la conexion a la tabla hotelesturismo
 set Conn= Server.CreateObject("ADODB.Connection")
 Conn.ConnectionString = "DSN=turofertas.com"
 Conn.open
 Set RS=Server.CreateObject("ADODB.Recordset")
 rs.activeconnection=Conn 
 rs.source="hotelesturismo"
 rs.Locktype = adLockOptimistic
 rs.CursorType = adOpenDinamic
 rs.open
 'Fin codigo conexion a la tabla hotelesturismo
 'Abrimos la conexion a la tabla tarifasturismo
 Set RS2=Server.CreateObject("ADODB.Recordset")
 rs2.activeconnection=Conn 
 rs2.source="tarifasturismo"
 rs2.Locktype = adLockOptimistic
 rs2.CursorType = adOpenDinamic
 rs2.open
 'Fin codigo conexión a la tabla tarifasturismo
 
 
 Poner_AND= False
 'El Codigo siguiente hace que si el formulario se envia vacio no se borre toda la tabla
 Vacio=true
 For each parametro in request.form 
  parametro = Lcase(parametro)
  if request.form(parametro) <> "" then
   vacio = false   
   exit for
  end if 
 next
 
 IF vacio=true THEN
  response.write("<br><br><div align=""center""><font face= ""Arial, Helvetica, sans-serif"" size=""3"" color=""#FB4C50""><strong>Operación no permitida.<br> Al dejar todos los campos vacios, ha intentado borrar la tabla completa</strong></font></div>")
 END IF
 'Termina el codigo de comprobacion del formulario vacio para no borrar toda la tabla 
 if not vacio then
  Filtro= ""
   FOR EACH Parametro IN Request.Form
   IF Request.Form (Parametro) <> "" THEN
    IF Poner_AND THEN
     Filtro= Filtro & " AND " & Parametro & "='"
     Filtro= Filtro & Request.Form(Parametro) & "'"
    ELSE
     Filtro= Filtro & Parametro & "='"
     Filtro= Filtro & Request.Form(Parametro) & "'"
     Poner_AND = True
    END IF
   END IF 
  NEXT
  
  Filtro=Lcase(filtro)
  response.write "Filtro rs: " & filtro & "<br>"
  rs.filter= Filtro 
  
  if rs.bof and rs.eof then
   response.write("<br><br><div align=""center""><font face= ""Arial, Helvetica, sans-serif"" size=""3"" color=""#FB4C50""><strong>No se encontraron coincidencias con la búsqueda solicitada </strong></font></div>")
  else%>  
  <table width="100%" border="0" cellspacing="0" cellpadding="2">
  <tr bgcolor="#e0e0e0"> 
  <td width="17%"> <div align="left"><font color="#003399" size="2" face="Arial, Helvetica, sans-serif">Referencia</font></div></td>
  <td width="33%"><font color="#003399" size="2" face="Arial, Helvetica, sans-serif">Nombre</font></td>
  <td width="8%"><font color="#003399" size="2" face="Arial, Helvetica, sans-serif">Localidad</font></td>
  </tr>
   
  <%response.write ("Se han borrados los siguientes registros <p>")
  rs.movefirst
  do while not rs.eof 
   if colorfila=0 then
    color="#EEF0F7"
    colorfila=1
   else
    color="FFFFFF"
    colorfila=0
   end if %>
   <tr valign="top" bgcolor="<%=color%>"> 
   <td><font size="2" face="Arial, Helvetica, sans-serif"><%=RS("referenciahotelcasa")%></font></td>
   <td><div align="justify"><font size="2" face="Arial, Helvetica, sans-serif"><%=RS("empresanombrecomercial")%></font></div></td>
   <td><font size="2" face="Arial, Helvetica, sans-serif"><%=RS("localidad")%></font></td>
   </tr>
   <%rs.movenext 
  loop%>
  </table>
    
  <%rs.movefirst
   do while not rs.eof
    'Construimos la ruta y el nombre del fichero que se va a borrar del servidor y 
    'que previamente escogimos mediante el formulario de borrar registros
    cadenaorigen=rs("imagen")
    if cadenaorigen <> "" then
     cadenabuscar="../../"
     'cadenacambiar="C:\Inetpub\vhosts\turofertas.com\httpdocs\"
     cadenacambiar="E:/obradoiroweb/obradoiroweb/Turofertas/"
     rutaimagenaborrar=replace(cadenaorigen,cadenabuscar,cadenacambiar,1,1,1)
     set FSO=CreateObject("Scripting.FileSystemObject")
     set file=fso.GetFile(rutaimagenaborrar)
     file.delete
    end if
    
    cadenaorigen1=rs("imagen1")
    if cadenaorigen1 <> "" then
     cadenabuscar1="../../"
     'cadenacambiar1="C:\Inetpub\vhosts\turofertas.com\httpdocs\"
     cadenacambiar1="E:/obradoiroweb/obradoiroweb/Turofertas/"
     rutaimagenaborrar1=replace(cadenaorigen1,cadenabuscar1,cadenacambiar1,1,1,1)
     set file=fso.GetFile(rutaimagenaborrar1)
     'response.write file.delete
     file.delete    
    end if
    
    cadenaorigen2=rs("imagencomollegar")
    if cadenaorigen2 <> "" then
     cadenabuscar2="../../"
     'cadenacambiar2="C:\Inetpub\vhosts\turofertas.com\httpdocs\"
     cadenacambiar2="E:/obradoiroweb/obradoiroweb/Turofertas/"
     rutaimagenaborrar2=replace(cadenaorigen2,cadenabuscar2,cadenacambiar2,1,1,1)
     set file=fso.GetFile(rutaimagenaborrar2)
    file.delete   
    end if
    
    cadenaorigen3=rs("descargafolletos")
    if cadenaorigen3 <> "" then
     cadenabuscar3="../../"
     'cadenacambiar3="C:\Inetpub\vhosts\turofertas.com\httpdocs\"
     cadenacambiar3="E:/obradoiroweb/obradoiroweb/Turofertas/"
     rutaimagenaborrar3=replace(cadenaorigen3,cadenabuscar3,cadenacambiar3,1,1,1)
     set file=fso.GetFile(rutaimagenaborrar3)
    file.delete   
    end if
     
    'Este código busca el registro a borrar en la tabla tarifasturismo basandose en el campo referenciahotelcasa
    Sqlstring="referenciahotelcasa=" & "'" &rs("referenciahotelcasa")& "'"
    rs2.filter=Sqlstring
    'rs2.movefirst
     'do while not rs2.eof
      rs2.delete
      'rs2.movefirst
     'loop
    'Acaba aquí el codigo de borrado del registro en la tabla tarifasturismo
     
    'Borramos el registro seleccionado en el formulario de borrar registros
    rs.delete
    'Borra siempre el primer registro del filtro
    'rs.movefirst
    rs.movenext
   loop
  end if
 end if%>
 
 <br>
 <br>
 <A HREF="../../../modulo_gestion.asp?nombreusuario=<%=nombreusuario%>" target="_parent">Menu principal </A> ** <A HREF="borrar_turismo.asp?nombreusuario=<%=nombreusuario%>" target="_parent">Borrar Oferta</A> 
 <%
 rs.close
 rs2.close
 Conn.close
 %>
 <%ELSE
 set Conn1= Server.CreateObject("ADODB.Connection") 
 Set rs1=Server.CreateObject("ADODB.Recordset")
 Conn1.ConnectionString = "DSN=turofertas.com"
 Sqlstring="select empresanombrefiscal from clientes where nombreusuario=" & "'" &nombreusuario& "'"
 Conn1.open
 Set rs1 = Conn1.execute (sqlstring)
 %>
  
 Rellene el campo por el cual desea realizar la búsqueda </p>
 <form name="form1" method="post" action="borrar_turismo.asp?nombreusuario=<%=nombreusuario%>">
   <table width="100%">
      <tr>
        <td width="13%" class="CELDA">Referencia</td>
        <td width="87%"><input name="referenciahotelcasa" type="text" class="CAJASDETEXTO" id="referenciahotelcasa" tabindex="1" size="10" maxlength="10"></td>
      </tr>
      <tr>
        <td class="CELDA">Nombre Fiscal</td>
        <td><input name="empresanombrefiscal" type="text" class="CAJASDETEXTO" id="empresanombrefiscal" onFocus="blur()" value="<%=rs1("empresanombrefiscal")%>" size="35" maxlength="35"></td>
      </tr>
      <tr>
        <td class="CELDA">Nombre Comercial</td>
        <td><input name="empresanombrecomercial" type="text" class="CAJASDETEXTO" id="empresanombrecomercial" tabindex="2" size="35" maxlength="35"></td>
      </tr>
      <tr>
        <td class="CELDA">Localidad</td>
        <td><input name="localidad" type="text" class="CAJASDETEXTO" id="localidad" size="35" maxlength="35"></td>
      </tr>
      
      <tr>
        <td class="CELDA">Provincia</td>
        <td>
          <input name="provincia" type="text" class="CAJASDETEXTO" id="provincia" size="22" maxlength="22">        </td>
      </tr>
      <tr>
        <td><font face="Arial, Helvetica, sans-serif"><a href="../../../modulo_gestion.asp?nombreusuario=<%=nombreusuario%>"><font size="2">Men&uacute; Principal</font></a></font> </td>
        <td><input type="submit" class="BOTONES_FORMULARIO" value="Borrar Casa Turismo Rural">
        <input name="reset" type="reset" class="BOTONES_FORMULARIO" value="Limpiar Formulario"></td>
      </tr>
    </table>
 </form>
  <p>
    <%rs1.close
  Conn1.close
END IF%>
</p>
</body>
</html>