<%@ Language="VBScript" %>


<%
Dim pollid
pollid = Request.QueryString("pollid")
%>

<!--#include file="dbconn.asp"-->
<!--#include file="filitre.asp"-->
<%Dim rsPoll,rsPollAns
set rsPoll = teksan.Execute("DELETE * FROM questions WHERE id Like '" & pollid & "'")
set rsPollAns = teksan.Execute("DELETE * FROM answers WHERE question_id Like '" & pollid & "'")
set rsPollAns = teksan.Execute("DELETE * FROM ipvt WHERE polid Like '" & pollid & "'")
Response.Redirect("anketpol.asp")
%>
<%
teksan.close
set teksan = nothing
%>