home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
bombers.k12.ar.us
/
bombers.k12.ar.us.tar
/
bombers.k12.ar.us
/
survey_unconfigured
/
DeleteResponse.asp
< prev
next >
Wrap
Text File
|
2006-10-25
|
3KB
|
76 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 single response.
'
' 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"-->
<%
'In order to delete a survey response, the user must be the survey owner or an admin
If IsUserOwnerOrAdmin(Request.QueryString("SurveyID")) = False Then
Response.Redirect "AccessDenied.asp?SurveyID=" & Request.QueryString("SurveyID") & "&Reason=" & SUR_ACCESS_DENIED_NOT_OWNER
End If
Dim strSQL
Dim conDeleteResponse
Dim lngQuestionID
Dim lngOrderNumber
Dim lngSurveyID
Dim lngResponseID
Dim lngResponseNumber
Dim strRedirectURL
'Initialization
Set conDeleteResponse = Server.CreateObject("ADODB.Connection")
conDeleteResponse.Open SURVEY_APP_CONNECTION
lngSurveyID = Request.QueryString("SurveyID")
lngResponseID = Request.QueryString("ResponseID")
lngResponseNumber = Request.QueryString("ResponseNumber")
'Delete all the response answers from the response answer table (SUR_RESPONSE_ANSWER)
strSQL = "DELETE FROM sur_response_answer WHERE response_id = " & lngResponseID
conDeleteResponse.Execute ConvertSQL(strSQL), , adCmdText
'Delete the response for this survey from the response table (SUR_RESPONSE)
strSQL = "DELETE FROM sur_response WHERE response_id = " & lngResponseID
conDeleteResponse.Execute ConvertSQL(strSQL), , adCmdText
'Delete any hidden fields from the hidden field table (SUR_RESPONSE_HIDDEN_FIELD)
strSQL = "DELETE FROM sur_response_hidden_field WHERE response_id = " & lngResponseID
conDeleteResponse.Execute ConvertSQL(strSQL), , adCmdText
'Update the response count in the survey table (SUR_SURVEY)
strSQL = "UPDATE sur_survey SET response_count = response_count - 1 WHERE survey_id = " & lngSurveyID
conDeleteResponse.Execute ConvertSQL(strSQL), , adCmdText
'Clean up
conDeleteResponse.Close
Set conDeleteResponse = Nothing
'Redirect back to the same page (the individual results page). The user should be redirected to the response after
'the one that was deleted. If the last response was deleted, the user is redirected to the "new" last response, which
'is essentially the previous response.
If CLng(lngResponseNumber) = CLng(Request.QueryString("ResponseCount")) Then
lngResponseNumber = lngResponseNumber - 1
End If
strRedirectURL = "ResultsIndividual.asp?SurveyID=" & lngSurveyID & "&ResponseNumber=" & lngResponseNumber
If Len(Request.QueryString("DisplayHeader")) > 0 Then
strRedirectURL = strRedirectURL & "&DisplayHeader=" & Request.QueryString("DisplayHeader")
End If
Response.Redirect strRedirectURL
%>