Foros del Web - Borrar una Consulta con ASP y JSCRIP

Hola
Estoy comenzando a programar una pagina en ASP y JSCRIPT
ya tengo mi consulta y funciona bien es generada de una base en access tiene 3 tablas relacionadas entre si (Maestro, Detalle prod, Detalle Resp) es una relacion 1 a 1 pero quiero borrar los datos que salgan de esta consulta mediante un boton. Alguien me puede ayudar o tal vez complementar mi problema.

Saludos y Gracias

<%@ LANGUAGE=JScript%>
<%

user=Request.Cookies("nombreusuario");
claveuser=Request.Cookies("username");
tipouser=Request.Cookies("tipousuario");
nombreruta=Request.Cookies("NombreRuta");
claveruta=Request.Cookies("ClaveRuta");
ClaveaConsultar=Request.Cookies("ClaveaConsultar") ;

Consult=1;

curDir = Server.MapPath("p1.mdb");
Conexion = Server.CreateObject("ADODB.Connection");
Conexion.Open("Provider=Microsoft.Jet.OLEDB.4.0;Da ta Source=" +curDir);

function ValidaUsuario()
{

rs=Conexion.Execute("select programa as prog, sem as seman from MaestroVisitas where com ="+Consult);
if(!rs.eof)
{
supervisorConsultar=rs.fields("prog");
return true;
}
else
return false;
}

//creacion del reporte del reporte
function CreaReporteTienda()
{
sql="SELECT m.mvisFolio as folio, t.tiedescripcion as tienda, t.tiedireccion as ciud, format(m.mvisfechahorainicio,'HH:MM:SS') as horai, format(m.mvisfechahorafin,'HH:MM:SS') as horaf, s.supnombre as demo, sum(dt.detprototalventas) as totalventas, m.Semana as seman, m.mvisobservaciones as mvispro, m.mvisobservacionescom as mviscom FROM supervisores s, tiendas t, maestrovisitas m,detalleproductos dt WHERE t.tieclave=m.tieClave and m.supclave=s.SupClave and m.mvisfolio=dt.mvisfolio and m.com="+Consult+" group by t.tiedescripcion, m.mvisfechahorainicio, m.mvisfechahorafin, s.supnombre, m.mvisfolio, m.semana, m.mvisobservaciones, m.mvisobservacionescom, t.tiedireccion order by t.tiedireccion";
rs=Conexion.Execute(sql);
if (!rs.eof)
return true;

else
return false;
}

function BuscaPreguntasDemo()
{
folio=Request.Cookies("folio");
sql="select detDemPregunta as pregunta from detalledemo where mvisfolio='"+folio+"'";
Response.write(sql);
rsTemp=Conexion.Execute(sql);
if(!rsTemp.eof)
return true;
else
return false;
}
%>

<BODY topmargin=0 leftmargin=0>


<%
if (!firmado())
{
Response.redirect("acceso.asp");
}
%>

 <![if !vml]><img
width=481 height=41 src="consulta4b116_files/image001.gif"
alt="Text Box: Consulta de Comentarios por Semana
" v:shapes="_x0000_s1026"><![endif]>
 

 
 




 

 

<TABLE cellpadding=0 cellspacing=0 border=1 id="table149" width="1165">
<TR>
<%
// crecion del reporte
if (ValidaUsuario())
{
if(CreaReporteTienda())
{
folio=rs.fields("folio");
%>
<TD colspan=7 align=center height="26" bgcolor="#CCFFCC">
Persona que Consulta: <%=supervisorConsultar%><TR>
<TD bgcolor=#FFFFCC width="85" height="20" align="center">
Ciudad </TD>
<TD bgcolor=#FFFFCC width="182" height="20" align="center">
Promotor </TD>
<TD bgcolor=#FFFFCC width="156" height="20" align="center">
Tienda </TD>
<TD bgcolor=#FFFFCC width="144" height="20" align="center">
Periodo </TD>
<TD bgcolor=#FFFFCC width="300" height="20" align="center">
Comentarios de Producto</TD>
<TD bgcolor=#FFFFCC width="300" height="20" align="center">
Comentarios de Producto</TD>

<TD bgcolor=#CCFFCC width="288" height="20" align="center">

Comentarios de Competencia</TD><TR>

<%
while(!rs.eof)
{
%>
<TD width="85" height="24">
<%=rs.fields("ciud")%></TD>
<TD width="182" height="24">
<%=rs.fields("demo")%></TD>
<TD width="156" height="24">
<%=rs.fields("tienda")%></TD>
<TD width="144" height="24">
<%=rs.fields("seman")%></TD>
<TD width="300" height="24">
<%=rs.fields("mvispro")%></TD>
<TD width="300" height="24">
<%=rs.fields("mviscom")%></TD>
<TD width="288" height="24" style="color: #666699">
<%=rs.fields("horaf")%></TD><TR>
<% rs.movenext;
}
}
else
{
%>
<td width="85">No hay comentarios: <%=supervisorConsultar%></TD><TR>
<TD align=center width="85"><INPUT TYPE="button" class="boton" value="Regresar" onclick="window.location='Wrigley_comen.asp';"></TD>
<%
}
}
else
{
Response.redirect("erracceso.asp");
}
%>
</TABLE>


 


<%
if (CreaReporteTienda())
{
while(!rs.eof)
{
sql="select detdemPregunta as pregunta, detDemRespuesta as respuesta from detalledemo where mvisFolio ='"+rs.fields("folio")+"'";
rsTemp=Conexion.Execute(sql);
if (!rsTemp.eof)
{
%>

<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0>
<Th><%=rs.fields("tienda")%>

</TABLE>
<TABLE BORDER=1 CELLSPACING=0 CELLPADDING=0>
<%
while(!rsTemp.eof)
{
%>
<TD BGCOLOR=<%=bgcolor%>>
<%=rsTemp.fields("pregunta")%></TD>
<%
rsTemp.movenext;
}
Response.Write("<TR>");
rsTemp.movefirst;

// hora ponemos las respuestas
while(!rsTemp.eof)
{
%>
<TD><%=rsTemp.fields("Respuesta")%></TD>
<%
rsTemp.movenext;
}

Response.write("</TABLE>");
}
rs.movenext;
}
%>

<INPUT TYPE="button" value="Regresar" class=boton onclick="window.location='Wrigley_comen_b.asp';">
<%
}
%>

</TABLE>

 
 
</body>
</HTML>