Apt - Human Resource & Management Consultancy

<% If session("Username")="" then 'Response.redirect("login.asp") 'Response.End() End If %> <% Dim Cnn,strsql,rs,rscategory,mcategory,rscat,mcompany Set Cnn=Server.CreateObject("ADODB.Connection") With cnn .Provider = "SQLOLEDB" .ConnectionString = Application("SqlConnectionString") .Open End With Set rscat =Server.Createobject("Adodb.recordset") strsql="Select distinct Category from Jobcategory Order by category" rscat.open strsql,Cnn Set rs =Server.Createobject("Adodb.recordset") dim mordno mordno=request.QueryString("Orderno") mordno=trim(mordno) mordno=left(mordno,9) mordno=trim(mordno) strsql="Select * from vacancy where orderno=" & mordno rs.open strsql,Cnn,adopendynamic,adlockpessimistic,adcmdtext %> Apt - Human Resource & Management Consultancy

<%If session("Username")<>"" then %>

<%End If%>

<% morderno="" mpositionname="No details found " mSalary="" mvacnotes="" mcompany="" If not rs.eof then rs.movefirst morderno=rs("orderno") mpositionname=rs("Positionname") mSalary=rs("Salary") mvacnotes=rs("Vacnotes") mcompany=rs("company") End If %>
Job Ref # <% = mOrderno %>		<%=trim(mPositionName) %>	<%=trim(rs("Salary")) %>
Company	<% = mCompany %>
<%=trim(mvacnotes) %> <% If session("Username")<>"" then %> Click here to apply <% End If%> <% If session("Username")="" then %> If you want to be considered for any similar future positions, continue with a detailed Registration- Click here. If you want to be considered for this position ONLY, Click here for a quick registration. <% end if%>
Back

Home - About Us - Our Clients - Jobseeker - Feedback - Employer