%@ LANGUAGE="VBSCRIPT" %>
<% PageStrings = "293, 316, 317, 318, 319, 394" %>
<% strInterface = "bk" %>
<%
'===============================================
' Parodia Internet Recruitment Software
' ©1998-2004 Cactusoft Ltd. www.parodia.net
'===============================================
' All rights reserved.
' Use of this code is covered by the terms and
' conditions in the license agreement. No
' unauthorized duplication or distribution is
' permitted. Cactusoft's copyright notices must
' remain in the ASP sections of the code.
'===============================================
'-----------------------------------------
'PROCESS THE DELETION OF A CLIENT AGENCY
'We also need to delete all of the agency's
'consultants and all of their jobs and blank
'slots to ensure our db isn't full of old rubbish
'-----------------------------------------
%>
<% =GetString("Config_headtitle") %>
|
<%WriteString("PageTitle_DeleteClient")%> |
|
<%WriteString("ContentText_ResultsAreAsFollows")%> |
<%
Dim numAgencyID
numAgencyID = NumSafe(Request.Querystring("id"), 0, 0)
'First delete the agency record
strQuery=strDeleteSyntax & " tblCactusAgencies WHERE AG_ID=" & numAgencyID
Call ExecuteSQL(strQuery, numCursorType, objRecordSet)
Response.Write(GetString("ContentText_DeletedAgencyProcess1") & " " & numAgencyID & " ")
'Then delete all slots they own
strQuery=strDeleteSyntax & " tblCactusVacancies WHERE VAC_AgencyID=" & numAgencyID
Call ExecuteSQL(strQuery, numCursorType, objRecordSet)
Response.Write(GetString("ContentText_DeletedAgencyProcess2") & " ")
'Last delete all their consultants
strQuery=strDeleteSyntax & " tblCactusConsultants WHERE CON_AgencyID=" & numAgencyID
Call ExecuteSQL(strQuery, numCursorType, objRecordSet)
Response.Write(GetString("ContentText_DeletedAgencyProcess3") & " ")
%> |
<% WriteString("ContentText_ViewUpdatedData") %> |
|