home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
bombers.k12.ar.us
/
bombers.k12.ar.us.tar
/
bombers.k12.ar.us
/
survey
/
DeleteReportFilter.asp
< prev
next >
Wrap
Text File
|
2006-11-29
|
2KB
|
34 lines
<!--#Include File="Include/Top_inc.asp"-->
<%
'***********************************************************************
' Application: SelectSurveyASP Advanced v8.1.11
' Author: Aaron Baril for ClassApps.com
' Page Description: This page deletes a report filter, and then redirects the
' user back to the report filter list for the specified survey.
'
' COPYRIGHT NOTICE
'
' See attached Software License Agreement
'
' (c) Copyright 2002 - 2006 by ClassApps.com. All rights reserved.
'***********************************************************************
%>
<!--#Include File="Include/Config_inc.asp"-->
<!--#Include File="Include/Utility_inc.asp"-->
<!--#Include File="Include/adovbs_inc.asp"-->
<!--#Include File="Include/ID_inc.asp"-->
<!--#Include File="Include/CurrentUser_inc.asp"-->
<!--#Include File="Include/SurveySecurity_inc.asp"-->
<!--#Include File="Include/Constants_inc.asp"-->
<%
'If the user has access to the overview report, they also have permission to delete the report filter
If CanUserViewOverviewReport(Request.Form("SurveyID")) = False Then
Response.Redirect "AccessDenied.asp?SurveyID=" & Request.Form("SurveyID") & "&Reason=" & SUR_ACCESS_DENIED_NOT_PERMISSION_TO_PAGE_FILTERS
End If
'Delete the report filter ID
DeleteReportFilter Request.Form("SurveyID")
'Redirect to the list of report filters for the specified survey
Response.Redirect "ReportFilterList.asp?SurveyName=" & Request.QueryString("SurveyName") & "&SurveyID=" & lngSurveyID & "&DisplayHeader=" & Request.QueryString("DisplayHeader")
%>