The Complete Offshore Employment Handbook is the best source of information available anywhere about the in's and out's of finding offshore oil rig and maritime jobs.

Written from actual experience gained while working many years around the world in this exciting and rewarding industry, this one of a kind guide can only be found at OffshoreGuides.com.

 

 

 

 

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 %>