<%@ Language=VBScript %> <% SET Master_Connection=Server.CreateObject("ADODB.Connection")'name database connection Master_Connection.Open"ndc_db"'set database connection to the relative database if session("id")<>"" then Response.Redirect("It_Profile.asp") end if 'Gets the fields from the forms First_Name=Replace(Request.Form("First_Name"),"'","^") Last_Name=Replace(Request.Form("Last_Name"),"'","^") DOB=Request.Form("DOB") Mailing_Address=Replace(Request.Form("Mailing_Address"),"'","^") Home_tel=Request.Form("Home_Tel") Business_tel=Request.Form("Business_Tel") Primary_Email=Replace(Request.Form("Primary_Email"),"'","^") Secondary_Email=Replace(Request.Form("Secondary_Email"),"'","^") Web_Site=Replace(Request.Form("Web_Site"),"'","^") Current_employer=Replace(Request.Form("Current_Employer"),"'","^") Prev_employer1=Replace(Request.Form("Prev_employer1"),"'","^") current_position=Replace(Request.Form("Current_Position"),"'","^") Prev_employer2=Replace(Request.Form("Prev_Employer2"),"'","^") Gender=Request.Form("Gender") 'Adds the data enetered into the table if DOB="" then DOB=Date end if If (Last_Name<>"") AND (Mailing_Address<>"") then SqlStmt="INSERT INTO IT_MASTER(First_Name,Last_Name,DOB,Mailing_Address,Home_Tel,Business_Tel,Primary_Email,Secondary_Email,Web_Site,Current_Employer,Prev_Employer1,Prev_Employer2,Current_Position,Sex)VALUES('"& First_Name &"','"& Last_Name &"',#" & DOB & "#,'"& Mailing_ADDRESS &"','" & Home_Tel & "','"& business_Tel &"','"& Primary_email & "','"& Secondary_Email &"','"& Web_Site &"','"& Current_Employer &"','"& Prev_Employer1 &"', '"& Prev_Employer2 &"','"& Current_Position &"','"& Gender &"')" Master_Connection.Execute(Sqlstmt) 'Get It_id from master table Sqlstm="Select it_id From IT_Master" Set rsId=Master_Connection.Execute(Sqlstm) do while not rsId.eof It_id=rsId("it_id") rsId.movenext loop id=It_id rsId.close set rsId=nothing session("id")=id Response.Redirect("It_form_ed.asp") else Message="Please fill in the required information in the form provided." end if 'If Request.QueryString("Submit")="1" AND ((Last_Name<>"") AND (Mailing_Address<>"")) then 'Message="Please fill in the required information in the form provided." 'end if 'close connection Master_Connection.close Master_Connection=0 set Master_Connection=nothing %> St. Lucia National Development Corporation


<%=message%>

 Personal Information
First Name Last Name    

Date of Birth Sex
 
Contact Information
Mailing Address

Home Telephone Business Telephone

Primary E-mail

Secondary E-mail

 
Website  
 
Employment Information
Current Employer Previous Employer

 
Current Position

Previous Employer


 

<% '

[Formal Education ][  'Professional Education ][ ' 'Skills ][ ' Languages ][ ' Databases ][ ' Operating Systems ] '

'
%>

Information Services ][ Infrastructure ][ Investment Opportunities ][ Trade & Investment Incentives
IT Database ][ Land Sale Information ][ Surveys on Factory Shells ][ Joint Ventures ][ Forms