<% Dim SQL Dim user Dim pwd Dim cmd Dim objRs Dim PrID user = Trim(Request.Form("txtUserID")) pwd = Trim(Request.Form("txtPassword")) cmd = Trim(Request.Form("cmdLogin")) PrID = "127661" If Len(cmd) <> 0 Then if user <> "" AND pwd <> "" AND PrID <> "" Then if (UCASE(user) = "CUSTSERV" OR UCASE(user) = "HRMANAGER") AND (UCASE(pwd) = "HRMANAGER") then Message="" Session("UserID") = UCASE(user) session("BMC_Prt_ID") = PrID Response.Redirect("http://www.blueplanetsolutions.com/Careers.htm?id=" & user) Else Message = "Wrong user name and password." End If Else Message = "Please enter user name and password." End if End If %> <% Dim cnn,jid Dim strConnectString Set cnn = Server.CreateObject("ADODB.Connection") cnn.Open "Driver={SQL Server};" & _ "Server=clio-new;" & _ "Database=Career_BPSI;" & _ "Uid=sa;" & _ "Pwd=FmProjectService;" set rs = Server.CreateObject("ADODB.recordset") jid = request.querystring("jobid") rs.Open "SELECT jobname, postdate, jobid FROM current_opening", cnn cnn.CommandTimeout=3000 'declare your variables Dim jname, country, city, sector, emptype, position, desc, skill, minexp, maxexp, expsal, conper, add Dim sConnString, sSQL 'Receiving values from Form, assign the values entered to variables jname = Request.Form("title") %>

 
 
Current Openings
<%do until rs.EOF%> <%rs.MoveNext%> <%loop rs.close %>
Job Title:- Post date  
<%Response.Write(rs.Fields("jobname"))%> <%Response.Write(rs.Fields("postdate"))%> ">View
<%jid = request.querystring("jobid") if jid <>"" then rs.Open "SELECT * FROM current_opening Where jobid='" &jid& "'", cnn do until rs.EOF %>

Opening Details

<%rs.MoveNext%>
Job Name:-
 <%Response.Write(rs.Fields("jobname"))%>
Country:-
 <%Response.Write(rs.Fields("country"))%>
City:-
 <%Response.Write(rs.Fields("city"))%>
Industry:-
 <%Response.Write(rs.Fields("industry"))%>
Position:-
 <%Response.Write(rs.Fields("emptype"))%>
Requirement:-
 <%Response.Write(rs.Fields("position"))%>
Job Description:-
 <%Response.Write(rs.Fields("description"))%>
Key Skills:-
 <%Response.Write(rs.Fields("skills"))%>
Experience:-
 <%Response.Write(rs.Fields("minexp"))%> - <% Response.Write(rs.Fields("maxexp")) %> years
Salary:-
 <%Response.Write(rs.Fields("expsalary"))%>
Contact Person:-
 <%Response.Write(rs.Fields("contactperson"))%>
Address:-
 <%Response.Write(rs.Fields("address"))%>
Send Resume :-
 careers@blueplanetsolutions.com
 
Posted Date <%Response.Write(rs.Fields("postdate"))%>
<%Loop end if cnn.close%>


 
 
 
Contact Us
Map & Direction
Location Worldwide
Why BPSI

 
PROFILE NEWS CONTACT HOME