Offshore Jobs! Immediate Openings! All Skills! USA / Overseas! Work Month / Home Month! Turn Work Into An Adventure!

^fname^,

I wanted to touch base with you and see how the job search is going. More jobs are being advertised online than ever before. The work is out there and plenty of it! I try and add 12-15 new jobs a week. If you want to go where the ACTION is, have a look at our exclusive Direct Access system.

Recruiters are telling me they are experiencing a DAILY SHORTAGE of qualified personnel and entry level candidates for a variety of domestic and overseas jobs. Maritime and oilfield industry schools cannot train people fast enough to fill existing positions. NOW is a great time to get in!

If you are not working at the job of your choice it is not because the jobs are not available!

After years of research and testing, we have the "MOJO" on what it takes to find an offshore / oilfield / maritime job using your computer and the internet. We have the patent on the system. Many have tried to copy this work. None have succeeded (that I know of).

With Direct Access, you have everything you need to find work in the industry, even if you have no prior experience. If you have prior experience there is no reason ( that I know of) for you not to be working at the job of your choice.

If you have no prior experience and live in the US or Canada, there is no reason (that I know of) for you not to be working in the industry if you are willing to start at the bottom. For the rest of you, your guess (as to what your chances are) will be as good as mine.

Direct Access Provides

  • An industry / trade certification that your resume / CV is good to go AS IS and is NOT A LEMON (this alone will save you tons of missed opportunities and lost $)
  • Single shot straight line connections with the recruiters who posted the jobs on the jobs postings page
  • One-on-one contact with hundreds of other industry recruiters
  • Takes you to each individual company
  • Current jobs are posted
  • Reliable confirmination and a means to do follow up work
  • Employment agencies who hire offshore (cost $ but gets you there fast)
  • Offshore / maritime training schools in your area
  • Additional assistance if needed

^fname^, Direct Access is your BEST SHOT with assistance in getting work offshore. I've helped lots of people get on. I might be able to help you and I might not and that is as truthful as I can be. I do promise to point you in the right direction and make sure you are properly equipped, but the rest will be up to you.

If you would like to accept my offer of personal assistance, then have a look at all the benefits of Direct Access.

  • If you understand what I have written up to now, we can move on
  • If you do not understand what I have written so far, ASK FOR CLARRIFICATION
  • If you think this is BS, let me know and I will take your name off the job list

Thanks again and good luck!

Cpt Ron
Offshore Guides

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