<%
If request.QueryString("Logout")="T" then
Session("Username")=""
Session("Fullname")=""
Session("usertype")=""
Session("Lastlogged")=""
Response.Redirect("index.asp")
Response.End
End If
IF session("Usertype")="E" then
Response.Redirect("loginhomeE.asp")
Response.End()
End If
'
If session("Username")="" then
response.redirect("Login.asp")
response.end
End if
Dim cnn, rsapplexp,rscat,x,lnk,msql
Set Cnn=Server.CreateObject("ADODB.Connection")
With cnn
.Provider = "SQLOLEDB"
.ConnectionString = Application("SqlConnectionString")
.Open
End With
'*********SQL Server Connection
Set rs =Server.Createobject("Adodb.recordset")
Set rscat =Server.Createobject("Adodb.recordset")
strsql="Select distinct Category from Jobcategory Order by category"
rscat.open strsql,Cnn
dim musername,mpassword
Dim errmsg
musername=session("username")
Dim rsmembers
Set rsmembers =Server.Createobject("Adodb.recordset")
strsql="Select * from members where username like '" & musername & "'"
rsmembers.open strsql,cnn
If rsmembers.eof then
response.redirect("Login.asp")
rsmembers.close
cnn.close
set rsmemebrs=nothing
set cnn = nothing
Response.End
End If
%>
Apt - Human Resource & Management Consultancy
<%If session("Username")<>"" then %>
<%End if%>
APT
Dubai, United Arab Emriates
<% If session("usertype")<>"J" then %>
Tel : + 971 4 3970397 Fax + 971 4 3971398
<% end If%>
Email : info@apthrd.com
