This page has been updated

Hi, <%=session("PID")%>. Your access level = <%=session("Access_Level")%> 

<% if session("Access_Level") = 10 Then %>

Back to Offshore GuidesOffshore Guides Administration 

1. There are currently <% Dim objRec2 ' recordset object Dim objCommand2 ' command object Dim objParameter2 ' parameter object Dim counter2 ' record counter counter = 0 ' create the objects Set objCommand2 = Server.CreateObject ("ADODB.Command") Set objRec2 = Server.CreateObject ("ADODB.Recordset") ' fill in the command properties objCommand2.ActiveConnection = strConnectacc objCommand2.CommandText = "employeesall" objCommand2.CommandType = adCmdStoredProc ' now open it Set objRec2 = objCommand2.Execute ' now loop throuth the records. While Not objRec2.EOF counter=counter+1 objRec2.MoveNext Wend Response.Write counter ' now close and clean up objRec2.Close Set objRec2 = Nothing Set objCommand2 = Nothing Set objParameter2 = Nothing %> employees in the database.

<% Set Cm = Server.CreateObject("ADODB.Command") Cm.ActiveConnection = strConnectacc Cm.CommandType = 1 %>
Search the Employees Database
You must enter at least 1 search criteria!!!
SORT ORDER  
Job
Country                Add New Job
Education
Yrs Experience
Age
Status
Last Name
Email  
Phone #  
Cell Phone #  
SUBSCRIBERS  
RESUME BUYERS  
PRIVATE  
Duplicate Entry  
Keyword Search
   
<% end if %> <% if (session("Access_Level") = 10) or (session("Access_Level") = 20) Then %>
2. There are currently <% Dim objRec3 ' recordset object Dim objCommand3 ' command object Dim objParameter3 ' parameter object Dim counter3 ' record counter counter = 0 ' create the objects Set objCommand3 = Server.CreateObject ("ADODB.Command") Set objRec3 = Server.CreateObject ("ADODB.Recordset") ' fill in the command properties objCommand3.ActiveConnection = strConnectacc objCommand3.CommandText = "employercount" objCommand3.CommandType = adCmdStoredProc ' now open it Set objRec3 = objCommand3.Execute ' now loop throuth the records. While Not objRec3.EOF counter=counter+1 objRec3.MoveNext Wend Response.Write counter ' now close and clean up objRec3.Close Set objRec3 = Nothing Set objCommand3 = Nothing Set objParameter3 = Nothing %> employers in the database.

Sort By
Order by top usage

<% end if %> <% if (session("Access_Level") = 10) or (session("Access_Level") = 20) Then %>
3. Search Jobs


<% Set Cm = Server.CreateObject("ADODB.Command") Cm.ActiveConnection = strConnectacc Cm.CommandType = 1 %> <% 'Open Data Connection Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open strConnectacc %>

Choose a category:
 
<% end if %> <% if session("Access_Level") = 10 Then %>
4. Send Newsletters

<% 'Count added by Michael V Feranda '3/2/07 12:57 AM 'Switch to the active conn Set cmd = Server.CreateObject("ADODB.Command") Set cmd.ActiveConnection = Conn 'Def the SP cmd.CommandText = "OSG_Database_Totals" cmd.CommandType = adCmdStoredProc 'Set up your params Set objParam = cmd.CreateParameter("@Mem_Count",adInteger,adParamOutput,4) Cmd.Parameters.Append objParam Set objParam = cmd.CreateParameter("@Sub_Count",adInteger,adParamOutput,4) Cmd.Parameters.Append objParam Set objParam = cmd.CreateParameter("@Res_Count",adInteger,adParamOutput,4) Cmd.Parameters.Append objParam Set objParam = cmd.CreateParameter("@NonRes_Count",adInteger,adParamOutput,4) Cmd.Parameters.Append objParam Set objParam = cmd.CreateParameter("@PEmp_Count",adInteger,adParamOutput,4) Cmd.Parameters.Append objParam Set objParam = cmd.CreateParameter("@EmpAg_Count",adInteger,adParamOutput,4) Cmd.Parameters.Append objParam 'Do it. cmd.Execute 'Put your params to vars Mem_Count = cmd.Parameters("@Mem_Count") Sub_Count = cmd.Parameters("@Sub_Count") Res_Count = cmd.Parameters("@Res_Count") NonRes_Count = cmd.Parameters("@NonRes_Count") PEmp_Count = cmd.Parameters("@PEmp_Count") EmpAg_Count = cmd.Parameters("@EmpAg_Count") 'Close everything up Set cmd = Nothing %>
<% Set Cm = Server.CreateObject("ADODB.Command") Cm.ActiveConnection = strConnectacc Cm.CommandText = "SELECT * FROM one_time_letter_send_date WHERE LetterType = 'members'" Cm.CommandType = 1 Set Rs1 = Cm.Execute %> <% Rs1.Close Set Rs1=Nothing %>

4a. to <%=Mem_Count%> members 

 edit
Last Processing Date: <%=Rs1("LastSendDate")%>
Subject
Send Test To:
<% Set Cm = Server.CreateObject("ADODB.Command") Cm.ActiveConnection = strConnectacc Cm.CommandText = "SELECT * FROM one_time_letter_send_date WHERE LetterType = 'subscribers'" Cm.CommandType = 1 Set Rs1 = Cm.Execute %> <% Rs1.Close Set Rs1=Nothing %>

4b. to <%=Sub_Count%> subscribers: (<%=Res_Count%> Res, <%=NonRes_Count%> Non Res)

 edit
Last Processing Date: <%=Rs1("LastSendDate")%>
Subject
Send Test To:
<% Set Cm = Server.CreateObject("ADODB.Command") Cm.ActiveConnection = strConnectacc Cm.CommandText = "SELECT * FROM one_time_letter_send_date WHERE LetterType = 'primary_employers'" Cm.CommandType = 1 Set Rs1 = Cm.Execute %> <% Rs1.Close Set Rs1=Nothing %>

4c. to <%=PEmp_Count%> primary employers

 edit
Last Processing Date: <%=Rs1("LastSendDate")%>
Subject
Send Test To:
<% Set Cm = Server.CreateObject("ADODB.Command") Cm.ActiveConnection = strConnectacc Cm.CommandText = "SELECT * FROM one_time_letter_send_date WHERE LetterType = 'employment_agencies'" Cm.CommandType = 1 Set Rs1 = Cm.Execute %> <% Rs1.Close Set Rs1=Nothing %>

4d. to <%=EmpAg_Count%> employment agencies

 edit
Last Processing Date: <%=Rs1("LastSendDate")%>
Subject
Send Test To:
<% end if %> <% if session("Access_Level") = 10 Then %>
5. Daily / Weekly Processing Links:

<% Set Cm = Server.CreateObject("ADODB.Command") Cm.ActiveConnection = strConnectacc Cm.CommandText = "SELECT * FROM daily_processing WHERE process_type = 'Active'" Cm.CommandType = 1 Set Rs1 = Cm.Execute %> <% Rs1.Close Set Rs1=Nothing %>
Current
Number 1

  • Run Process on Pending Resumés (Auto Activate)

  • Send letters to new ACTIVE Resumés

USE / USN
FE / FN

Run Pending Process for Active, Send Letter
Last Processing Date: <%=Rs1("last_run_date")%>
<% Set Cm = Server.CreateObject("ADODB.Command") Cm.ActiveConnection = strConnectacc Cm.CommandText = "SELECT * FROM daily_processing WHERE process_type = 'Hold Run'" Cm.CommandType = 1 Set Rs1 = Cm.Execute %> <% Rs1.Close Set Rs1=Nothing %> <% Set Cm = Server.CreateObject("ADODB.Command") Cm.ActiveConnection = strConnectacc Cm.CommandText = "SELECT * FROM daily_processing WHERE process_type = 'Hold Run Letters'" Cm.CommandType = 1 Set Rs1 = Cm.Execute %> <% Rs1.Close Set Rs1=Nothing %>
Number 2

  • Run Process on Pending
    Resumés (Auto Hold)

  • Send letters to ON HOLD Resumés

1 E / 1 N
2 E / 2 N
3 E / 3 N
4 E / 4 N

Run Pending Process for ON HOLD
Send Letter 1
Last Processing Date: <%=Rs1("last_run_date")%>
<% Set Cm = Server.CreateObject("ADODB.Command") Cm.ActiveConnection = strConnectacc Cm.CommandText = "SELECT * FROM daily_processing WHERE process_type = 'Hold Run'" Cm.CommandType = 1 Set Rs1 = Cm.Execute %> <% Rs1.Close Set Rs1=Nothing %> <% Set Cm = Server.CreateObject("ADODB.Command") Cm.ActiveConnection = strConnectacc Cm.CommandText = "SELECT * FROM daily_processing WHERE process_type = 'Hold Run Letters'" Cm.CommandType = 1 Set Rs1 = Cm.Execute %> <% Rs1.Close Set Rs1=Nothing %>
Number 3

  • Run Process on Pending
    Resumés (Auto Hold)

  • Send letters to ON HOLD Resumés

1 E / 1 N
2 E / 2 N
3 E / 3 N
4 E / 4 N

Send ON HOLD Letters 2, 3, 4, 1
Last Processing Date: <%=Rs1("last_run_date")%>
<% Set Cm = Server.CreateObject("ADODB.Command") Cm.ActiveConnection = strConnectacc Cm.CommandText = "SELECT * FROM daily_processing WHERE process_type = 'File Update'" Cm.CommandType = 1 Set Rs1 = Cm.Execute%>

Number 4

  • Request for file update (required every 60 days)

 Edit
Last Processing Date: <%=Rs1("last_run_date")%>
Run Process
<% Rs1.Close Set Rs1=Nothing %>


<% end if %> <% if session("Access_Level") = 10 Then %>
6. Email Templates:

  • New Member Confirmation Letter - goes out immediately after submission of a new resumé file.

  • New Member 1st AUTO sales letter - goes out 4 days after non paying member is made active.

  • Resume Mailer - goes out when direct accesss subscribers send their resumé to any
    employer who has a job listed on this site.

  • Paying subscriber 1st AUTO letter - goes out 4 days after member has been made a subscriber.

  • Employer Confirmation Letter - goes out immediately after an employer registers for the
    14 day free trial.

  • Subscription Customer - thank you and instruction letter.

  • Resumé Customer - thank you and instruction letter.
<% end if %> <% if session("Access_Level") = 10 Then %>
7. Email List:

<% end if %>