Cita:
Iniciado por Myakire 
Cual es el código exacto con el que borras los registros?
Si, ya se que unos post arriba alguien puso:
Pero quisiera pusieras el query ya interpretado en su valor request.QueryString("num") (supongo que id_TIPO_VIVIENDA es tipo string)
A ver si comprendí
En este codigo muestro el link para eliminar
<td><a href="EliminaVivienda.asp?ID=<%=rs("id_vivien")%>" ><img src="../Imagenes/Eliminar.jpg" width="32" height="32" border="0" /></a></td>
la página eliminavivienda.asp contiene lo siguiente
<script language="javascript">
if (confirm('Esta Seguro de eliminar la Vivienda...?')){
window.open('Eliminar.asp?num=<%=response.Write(re quest.QueryString("ID"))%>','_self','');
}else{
window.open('Vivienda.asp?SW=1','_self','');
}
</script>
Y por último la página Eliminar.asp contiene lo siguiente
<%
ConsultaVivienda="select * from vivienda where id_vivien='"&request.QueryString("num")&"'"
VarIDCASA=cint(trim(request.QueryString("num")))
set rs=conn.execute(ConsultaVivienda)
ConsultaGastosComunes="select * from gastocomun where id_vivien='"&request.QueryString("num")&"'"
set rs2=conn.execute(ConsultaGastosComunes)
if not rs.eof then
if rs("Rut_perso")="11.111.111-1" then
if not rs2.eof then
IF cint(rs2("id_vivien"))=VarIDCASA then
'NO SE PUEDE BORRAR
Response.Redirect("Vivienda.asp?SW=1&Error=8")
ELSE
'BORRO LA VIVIENDA
sentencia="delete from vivienda where id_vivien='"&request.QueryString("num")&"'"
conn.execute(sentencia)
sentencia4="delete from cuentavivienda"
conn.execute(sentencia4)
Sentencia6="Select Count(id_vivien) as CantidadDeCasas from vivienda"
Set rs6=conn.execute(Sentencia6)
sentencia="Select id_vivien from vivienda"
set rs=conn.execute(sentencia)
while not rs.eof
Sentencia="insert into CuentaVivienda (ID_VIVIEN, Cantidad_CuentaVivienda)values('"&rs("ID_VIVIEN")& "', '"&rs6("CantidadDeCasas")&"')"
conn.execute(Sentencia)
rs.movenext
wend
Response.Redirect("Vivienda.asp?SW=1&Error=6")
end if
else
'BORRO LA VIVIENDA
sentencia="delete from vivienda where id_vivien='"&request.QueryString("num")&"'"
conn.execute(sentencia)
sentencia4="delete from cuentavivienda"
conn.execute(sentencia4)
Sentencia6="Select Count(id_vivien) as CantidadDeCasas from vivienda"
Set rs6=conn.execute(Sentencia6)
sentencia="Select id_vivien from vivienda"
set rs=conn.execute(sentencia)
while not rs.eof
Sentencia="insert into CuentaVivienda (ID_VIVIEN, Cantidad_CuentaVivienda)values('"&rs("ID_VIVIEN")& "', '"&rs6("CantidadDeCasas")&"')"
conn.execute(Sentencia)
rs.movenext
wend
Response.Redirect("Vivienda.asp?SW=1&Error=6")
end if
else
' NO PUEDE ELIMINAR LA VIVIENDA
Response.Redirect("Vivienda.asp?SW=1&Error=7")
end if
end if
%>