<%@ 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") %>