<% Server.ScriptTimeout = 300 %> Welcome to Q plus learning
Last Updated:3/23/2006 11:39:46 AM
Qplus logo Job seekers
 
Home >> Job Seekers >> Hot Jobs >> Job Details
JOBS DETAILS
<% Dim Conn, strConStr, Rs, strQuery,strReqId, Rs1, intQualCount Dim strQualification : strQualification = "" intQualCount = 1 strReqId = Trim(Request("reqid")) Set Conn = Server.CreateObject("ADODB.Connection") Set Rs = Server.CreateObject("ADODB.Recordset") Set Rs1 = Server.CreateObject("ADODB.Recordset") Dim strPath 'strPath = server.MapPath("../db/Qplus.mdb") strConStr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=binarycorp;Password=binarycorp321;Initial Catalog=binary_SqlDB;Data Source=64.106.249.160" Conn.Open strConStr strQuery = "Select * from curr_req where req_id='" & strReqId & "'" Rs.Open strQuery,Conn If not Rs.EOF Then %> <% End If %>
Job ID <%= Rs("Req_Id") %>
Job Title <%= Rs("Title") %>
Primary Skills <%= Rs("Tech_Name") %>
Educational Qualification <%= Rs("Qualification_name") %>
Experience <%= DisplayExp(Rs("Experience"))%> Years
Profile Description <%= Rs("Description") %>
Location <%= Rs("Location_Name") %>
" />
<% Function DisplayExp(expcode) Dim strExpCaption : strExpCaption = "" Select Case expcode Case "E0" strExpCaption = "Less than 1" Case "E1" strExpCaption = "1 - 2" Case "E2" strExpCaption = "2 - 4" Case "E3" strExpCaption = "3 - 5" Case "E4" strExpCaption = "4 - 6" Case "E5" strExpCaption = "More than 5" Case "E6" strExpCaption = "More than 6" End Select DisplayExp = strExpCaption End Function %>