<% 'The 'feedback_inc.asp' include file sets the main content for the feedback popup depending on the values passed. %> <% dim intErrNumber dim strUserFeedback dim strModule dim strAction dim strParentURL dim strCloseLink intErrNumber = Session("FeedbackError") strAction = Session("FeedbackMode") strModule = Session("FeedbackModule") strParentURL = Session("Referer") Session("FeedbackMode") = "" Session("FeedbackError") = "" Session("FeedbackModule") = "" Session("Referer") = "" 'feedback for Posting Type module (add/edit/delete) Select Case LCase(strModule) Case "merge" If intErrNumber = 0 Then strUserFeedback = "

The subscribers were successfully merged to the group.

" strUserFeedback = strUserFeedback & "

You will now be redirected to the Group Administration Module.

" Else strUserFeedback = "

An error occurred while merging the subscribers to the database.

" strUserFeedback = strUserFeedback & "

Please advise your Systems Administrator.

" End If strParentURL = "/admin/groups.asp" Case "subscriber_import" If intErrNumber = 0 Then strUserFeedback = "

The subscribers were successfully added to the database.

" strUserFeedback = strUserFeedback & "

You will now be redirected to the Subscriber Administration Module.

" Else strUserFeedback = "

An error occurred while adding the subscribers to the database.

" strUserFeedback = strUserFeedback & "

Please advise your Systems Administrator.

" End If strParentURL = "/admin/subscribers.asp?type=live" Case "dynamic_form" If intErrNumber = 0 Then Select Case LCase(strAction) Case "delete" strUserFeedback = "

The dynamic form was successfully deleted from the database.

" strUserFeedback = strUserFeedback & "

You will now be redirected to the Dynamic Form Administration Module.

" Case "edit" strUserFeedback = "

The dynamic form was successfully updated.

" strUserFeedback = strUserFeedback & "

You will now be redirected to the Dynamic Form Administration Module.

" strParentURL = "/admin/dynamic_forms.asp" Case "add" strUserFeedback = "

The dynamic form was successfully added to the database.

" strUserFeedback = strUserFeedback & "

You will now be redirected to the Form Element Administration Module.

" End Select Else Select Case LCase(strAction) Case "delete" strUserFeedback = "

An error occurred while deleting the dynamic form information.

" strUserFeedback = strUserFeedback & "

Please advise your Systems Administrator.

" Case "edit" strUserFeedback = "

An error occurred while updating the dynamic form information.

" strUserFeedback = strUserFeedback & "

Please advise your Systems Administrator.

" Case "add" strUserFeedback = "

An error occurred while adding the dynamic form information.

" strUserFeedback = strUserFeedback & "

Please advise your Systems Administrator.

" End Select End If Case "dynamic_form_admin_entry" If intErrNumber = 0 Then Select Case LCase(strAction) Case "add" strUserFeedback = "

The new Form entry was successfully added to the database.

" Case "edit" strUserFeedback = "

The Form entry was successfully updated.

" Case "delete" strUserFeedback = "

The Form entry(ies) were successfully deleted.

" End Select Else Select Case LCase(strAction) Case "add" strUserFeedback = "

An error occurred while adding the new Form entry to the database.

" strUserFeedback = strUserFeedback & "

Please advise your Systems Administrator.

" Case "edit" strUserFeedback = "

An error occurred while modifying the Form entry information.

" strUserFeedback = strUserFeedback & "

Please advise your Systems Administrator.

" Case "delete" strUserFeedback = "

An error occurred while deleting the Form entry.

" strUserFeedback = strUserFeedback & "

Please advise your Systems Administrator.

" End Select End If Case "form_element_sort_order" If intErrNumber = 0 Then strUserFeedback = "

The Dynamic Form's Element Sort Order was successfully updated.

" strUserFeedback = strUserFeedback & "

You will now be redirected to the Dynamic Form Administration.

" Else strUserFeedback = "

An error occurred while modifying the Dynamic Form's Element Sort Order.

" strUserFeedback = strUserFeedback & "

Please advise your Systems Administrator.

" End If Case "caption" If intErrNumber = 0 Then Select Case LCase(strAction) Case "add" strUserFeedback = "

The new Caption was successfully added to the database.

" Case "edit" strUserFeedback = "

The Caption was successfully updated.

" End Select strUserFeedback = strUserFeedback & "

You will now be redirected to the Form Element Administration.

" Else Select Case LCase(strAction) Case "add" strUserFeedback = "

An error occurred while adding the new Caption to the database.

" strUserFeedback = strUserFeedback & "

Please advise your Systems Administrator.

" Case "edit" strUserFeedback = "

An error occurred while modifying the Caption information.

" strUserFeedback = strUserFeedback & "

Please advise your Systems Administrator.

" End Select End If Case "field" If intErrNumber = 0 Then Select Case LCase(strAction) Case "add" strUserFeedback = "

The new Field was successfully added to the database.

" Case "edit" strUserFeedback = "

The Field was successfully updated.

" End Select strUserFeedback = strUserFeedback & "

You will now be redirected to the Form Element Administration.

" Else Select Case LCase(strAction) Case "add" strUserFeedback = "

An error occurred while adding the new Field to the database.

" strUserFeedback = strUserFeedback & "

Please advise your Systems Administrator.

" Case "edit" strUserFeedback = "

An error occurred while modifying the Field information.

" strUserFeedback = strUserFeedback & "

Please advise your Systems Administrator.

" End Select End If Case "form_element" If intErrNumber = 0 Then Select Case LCase(strAction) Case "delete" strUserFeedback = "

The Form Element was successfully deleted from the database.

" End Select strUserFeedback = strUserFeedback & "

You will now be redirected to the Form Element Administration Module.

" Else Select Case LCase(strAction) Case "delete" strUserFeedback = "

An error occurred while deleting the Form Element information.

" strUserFeedback = strUserFeedback & "

Please advise your Systems Administrator.

" End Select End If Case "client_exists" strUserFeedback = "

The submitted Username (email) was not unique, the 'Add a Client' transaction was cancelled.

" Case "data_result" If intErrNumber = 0 Then Select Case LCase(strAction) Case "send" strUserFeedback = "

The Data Resut(s) were successfully sent to the Client.

" End Select Else Select Case LCase(strAction) Case "send" strUserFeedback = "

An error occurred while sending the Data Resut(s) to the Client.

" strUserFeedback = strUserFeedback & "

Please advise your Systems Administrator.

" End Select End If Case "client" If intErrNumber = 0 Then Select Case LCase(strAction) Case "add" strUserFeedback = "

The new Client was successfully added to the database.

" Case "edit" strUserFeedback = "

The Client was successfully updated to the database.

" Case "delete" strUserFeedback = "

The Client was successfully deleted from the database.

" End Select strUserFeedback = strUserFeedback & "

You will now be redirected to the Clients Administration Module.

" Else Select Case LCase(strAction) Case "add" strUserFeedback = "

An error occurred while adding the new Client to the database.

" strUserFeedback = strUserFeedback & "

Please advise your Systems Administrator.

" Case "edit" strUserFeedback = "

An error occurred while modifying the Client information.

" strUserFeedback = strUserFeedback & "

Please advise your Systems Administrator.

" Case "delete" strUserFeedback = "

An error occurred while deleting the Client information.

" strUserFeedback = strUserFeedback & "

Please advise your Systems Administrator.

" End Select End If strParentURL = "/admin/clients.asp" Case "sample" If intErrNumber = 0 Then Select Case LCase(strAction) Case "delete" strUserFeedback = "

The Sample was successfully deleted from the database.

" End Select strUserFeedback = strUserFeedback & "

You will now be redirected to the Sequencing Submission Administration Module.

" Else Select Case LCase(strAction) Case "delete" strUserFeedback = "

An error occurred while deleting the Sample information.

" strUserFeedback = strUserFeedback & "

Please advise your Systems Administrator.

" End Select End If Case "seqencing_submission" If intErrNumber = 0 Then Select Case LCase(strAction) Case "add" strUserFeedback = "

The new Sequencing Submission was successfully added to the database.

" Case "edit" strUserFeedback = "

The Sequencing Submission was successfully updated to the database.

" Case "delete" strUserFeedback = "

The Sequencing Submission was successfully deleted from the database.

" Case "set_reception_date" strUserFeedback = "

The Samples' reception date was successfully set.

" Case "set_payment_reception_date" strUserFeedback = "

The 'Payment Received' date was successfully set.

" Case "unset_payment_reception_date" strUserFeedback = "

The 'Payment Received' date was successfully unset.

" Case "reset_ss_as_current" strUserFeedback = "

The Sequencing Submission was successfully reset as Current.

" End Select strUserFeedback = strUserFeedback & "

You will now be redirected to the Sequencing Submission Administration Module.

" Else Select Case LCase(strAction) Case "add" strUserFeedback = "

An error occurred while adding the new Sequencing Submission to the database.

" strUserFeedback = strUserFeedback & "

Please advise your Systems Administrator.

" Case "edit" strUserFeedback = "

An error occurred while modifying the Sequencing Submission information.

" strUserFeedback = strUserFeedback & "

Please advise your Systems Administrator.

" Case "delete" strUserFeedback = "

An error occurred while deleting the Sequencing Submission information.

" strUserFeedback = strUserFeedback & "

Please advise your Systems Administrator.

" Case "set_reception_date" strUserFeedback = "

An error occurred while setting the Samples' reception date.

" strUserFeedback = strUserFeedback & "

Please advise your Systems Administrator.

" Case "unset_payment_reception_date" strUserFeedback = "

An error occurred while unsetting the 'Payment Received' date.

" strUserFeedback = strUserFeedback & "

Please advise your Systems Administrator.

" Case "reset_ss_as_current" strUserFeedback = "

An error occurred while resetting the Sequencing Submission as Current.

" strUserFeedback = strUserFeedback & "

Please advise your Systems Administrator.

" End Select End If Case "posting_type" If intErrNumber = 0 Then Select Case LCase(strAction) Case "add" strUserFeedback = "

The new Posting Type was successfully added to the database.

" Case "edit" strUserFeedback = "

The Posting Type was successfully updated to the database.

" Case "delete" strUserFeedback = "

The Posting Type was successfully deleted from the database.

" End Select strUserFeedback = strUserFeedback & "

You will now be redirected to the Content Administration Module.

" Else Select Case LCase(strAction) Case "add" strUserFeedback = "

An error occurred while adding the new Posting Type to the database.

" strUserFeedback = strUserFeedback & "

Please advise your Systems Administrator.

" Case "edit" strUserFeedback = "

An error occurred while modifying the Posting Type information.

" strUserFeedback = strUserFeedback & "

Please advise your Systems Administrator.

" Case "delete" strUserFeedback = "

An error occurred while deleting the Posting Type information.

" strUserFeedback = strUserFeedback & "

Please advise your Systems Administrator.

" End Select End If strParentURL = "/admin/content.asp" Case "subscriber" If intErrNumber = 0 Then Select Case LCase(strAction) Case "add" strUserFeedback = "

The new Subscriber was successfully added to the database.

" Case "edit" strUserFeedback = "

The Subscriber was successfully updated to the database.

" Case "delete" strUserFeedback = "

The Subscriber(s) were successfully deleted from the database.

" End Select strUserFeedback = strUserFeedback & "

You will now be redirected to the Subscriber Administration Module.

" Else Select Case LCase(strAction) Case "add" strUserFeedback = "

An error occurred while adding the new Subscriber to the database.

" strUserFeedback = strUserFeedback & "

Please advise your Systems Administrator.

" Case "edit" strUserFeedback = "

An error occurred while modifying the Subscriber information.

" strUserFeedback = strUserFeedback & "

Please advise your Systems Administrator.

" Case "delete" strUserFeedback = "

An error occurred while deleting the Subscriber information.

" strUserFeedback = strUserFeedback & "

Please advise your Systems Administrator.

" End Select End If 'if the redirect page is an empty string then... If strParentURL = "" Then 'set it to the default subscriber admin page strParentURL = "/admin/subscribers.asp" End If Case "user" If intErrNumber = 0 Then Select Case LCase(strAction) Case "add" strUserFeedback = "

The new User was successfully added to the database.

" Case "edit" strUserFeedback = "

The User was successfully updated to the database.

" Case "delete" strUserFeedback = "

The User was successfully deleted from the database.

" End Select strUserFeedback = strUserFeedback & "

You will now be redirected to the User Administration Module.

" Else Select Case LCase(strAction) Case "add" strUserFeedback = "

An error occurred while adding the new User to the database.

" strUserFeedback = strUserFeedback & "

Please advise your Systems Administrator.

" Case "edit" strUserFeedback = "

An error occurred while modifying the User information.

" strUserFeedback = strUserFeedback & "

Please advise your Systems Administrator.

" Case "delete" strUserFeedback = "

An error occurred while deleting the User information.

" strUserFeedback = strUserFeedback & "

Please advise your Systems Administrator.

" End Select End If strParentURL = "/admin/users.asp" Case "posting" If intErrNumber = 0 Then Select Case LCase(strAction) Case "add" strUserFeedback = "

The new Posting was successfully added to the database.

" Case "edit" strUserFeedback = "

The Posting was successfully updated to the database.

" Case "delete" strUserFeedback = "

The Posting was successfully deleted from the database.

" End Select strUserFeedback = strUserFeedback & "

You will now be redirected to the Content Administration Module.

" Else Select Case LCase(strAction) Case "add" strUserFeedback = "

An error occurred while adding the new Posting to the database.

" strUserFeedback = strUserFeedback & "

Please advise your Systems Administrator.

" Case "edit" strUserFeedback = "

An error occurred while modifying the Posting information.

" strUserFeedback = strUserFeedback & "

Please advise your Systems Administrator.

" Case "delete" strUserFeedback = "

An error occurred while deleting the Posting information.

" strUserFeedback = strUserFeedback & "

Please advise your Systems Administrator.

" End Select End If strParentURL = "/admin/content.asp" Case "url" If intErrNumber = 0 Then Select Case LCase(strAction) Case "add" strUserFeedback = "

The new URL was successfully added to the database.

" Case "edit" strUserFeedback = "

The URL was successfully updated to the database.

" Case "delete" strUserFeedback = "

The URL was successfully deleted from the database.

" End Select strUserFeedback = strUserFeedback & "

You will now be redirected to the Content Administration Module.

" Else Select Case LCase(strAction) Case "add" strUserFeedback = "

An error occurred while adding the new URL to the database.

" strUserFeedback = strUserFeedback & "

Please advise your Systems Administrator.

" Case "edit" strUserFeedback = "

An error occurred while modifying the URL information.

" strUserFeedback = strUserFeedback & "

Please advise your Systems Administrator.

" Case "delete" strUserFeedback = "

An error occurred while deleting the URL information.

" strUserFeedback = strUserFeedback & "

Please advise your Systems Administrator.

" End Select End If strParentURL = "/admin/urls.asp" Case "password" If intErrNumber = 0 Then strUserFeedback = "

The Password was successfully updated to the database.

" strUserFeedback = strUserFeedback & "

You will now be redirected back to the Administration Centre.

" Else strUserFeedback = "

An error occurred while modifying the Password information.

" strUserFeedback = strUserFeedback & "

Please advise your Systems Administrator.

" End If Case "section" If intErrNumber = 0 Then Select Case LCase(strAction) Case "add" strUserFeedback = "

The new Section was successfully added to the database.

" Case "edit" strUserFeedback = "

The Section was successfully updated to the database.

" Case "delete" strUserFeedback = "

The Section was successfully deleted from the database.

" End Select strUserFeedback = strUserFeedback & "

You will now be redirected to the Section Administration Module.

" Else Select Case LCase(strAction) Case "add" strUserFeedback = "

An error occurred while adding the new Section to the database.

" strUserFeedback = strUserFeedback & "

Please advise your Systems Administrator.

" Case "edit" strUserFeedback = "

An error occurred while modifying the Section information.

" strUserFeedback = strUserFeedback & "

Please advise your Systems Administrator.

" Case "delete" strUserFeedback = "

An error occurred while deleting the Section information.

" strUserFeedback = strUserFeedback & "

Please advise your Systems Administrator.

" End Select End If 'CASE GROUPS - NEW Case "groups" If intErrNumber = 0 Then Select Case LCase(strAction) Case "add" strUserFeedback = "

The new Group was successfully added to the database.

" Case "edit" strUserFeedback = "

The Group was successfully updated to the database.

" Case "delete" strUserFeedback = "

The Section was Group deleted from the database.

" End Select strUserFeedback = strUserFeedback & "

You will now be redirected to the Section Administration Module.

" Else Select Case LCase(strAction) Case "" strUserFeedback = "

An error occurred while adding the new Section to the database.

" strUserFeedback = strUserFeedback & "

Please advise your Systems Administrator.

" Case "edit" strUserFeedback = "

An error occurred while modifying the Section information.

" strUserFeedback = strUserFeedback & "

Please advise your Systems Administrator.

" Case "delete" strUserFeedback = "

An error occurred while deleting the Section information.

" strUserFeedback = strUserFeedback & "

Please advise your Systems Administrator.

" End Select End If End Select 'if the strParentURL variable is not empty then... If strParentURL <> "" Then 'set strCloseLink variable value strCloseLink = "javascript:window.opener.location.href='" & strParentURL & "';window.close();" 'if the strParentURL variable is empty then... Else 'set strCloseLink variable value strCloseLink = "javascript:window.close();" End If %>
<%=strUserFeedback%>