Problemas con el refresh en ASP ¿No se que pasa? Para ir al grano el problema que tengo es el siguiente, tengo una pag que pasa los datos a un form (querryString, solo necesito la ID) en otra ventana para la eliminación, a la vez que sirve como mensaje de confirmación para borrar los datos, luego envio los datos (POST) a esta pagina para que se encargue de la eliminación
Código:
Espero que me puedan ayudar con este problema, agradezco cualquier comentario <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="variables.inc" -->
<!--#include file="conn/conn.asp" -->
<%
Dim Delt
Dim Delt_numRows
Set Delt = Server.CreateObject("ADODB.Recordset")
Delt.ActiveConnection = MM_STRING
Delt.Source = "SELECT Publicidad.* FROM Publicidad WHERE Cstr(Id_publicidad) = '"& Request.Form("ID") &"'"
Delt.CursorType = 1 'Permite modificaciones en los registros adOpenKeyset
Delt.CursorLocation = 2
Delt.LockType = 3 'Permitir modificaciones en los registros adLockOptimistic
Delt.Open()
Delt_numRows = 0
%>
<HTML>
<HEAD>
<TITLE><%=(Delt.Fields.Item("Cliente").Value)%></TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<META NAME="robots" CONTENT="NOFOLLOW,NOINDEX">
<LINK REL="stylesheet" HREF="fides2.css" TYPE="TEXT/CSS">
<SCRIPT language="JavaScript" SRC="fides.js"></SCRIPT>
</HEAD>
<BODY BGCOLOR="<%=BGCOLOR%>" TEXT="<%=TEXT%>" LEFTMARGIN="<%=LEFTMARGIN %>" TOPMARGIN="<%=TOPMARGIN %>" MARGINWIDTH="<%=MARGINWIDTH %>" MARGINHEIGHT="<%=MARGINHEIGHT %>">
<BASEFONT FACE=Verdana>
<!--Radio Fides -->
<TABLE WIDTH="100%" HEIGHT="100%" BORDER="0" CELLPADDING="3" CELLSPACING="1">
<TR BGCOLOR="#008242">
<TH HEIGHT="25" CLASS="Titulos"><%=Request.Form("ID")%></TH>
</TR>
<TR>
<TH CLASS="TEXTOS">
<!--Radio Fides -->
Eliminando.... <%=(Delt.Fields.Item("Cliente").Value)%></TH>
</TR>
</TABLE>
<%
Delt.Delete
%>
<%
Delt.Close()
Set Delt = Nothing
%>
<SCRIPT language="JavaScript">
{
window.opener.location.reload();
}
</SCRIPT>
<SCRIPT language="JavaScript">
{close();}
</SCRIPT>
</BODY>
</HTML>
