<% set Cn = Server.CreateObject("ADODB.Connection") Cn.Open "driver=SQL Server;server=216.122.236.5;uid=alamjad;pwd=INdNPcsm6qk;database=alamjad" SQL="Select count(*) as kount from subjob" Set rs=cn.execute(SQL) dim tot, today if not rs.EOF and NOT rs.BOF then rs.movefirst tot = rs("kount") else tot = "None" end if today = MonthName(month(date)) & ", " & day(date) & ", " & year(date) %>

PO BOX  14 

Postal Code 115

Madinat Sultan Qaboos,

Sultanate of Oman

Ph : 00968 596454

Fax : 00968 597089

 

        

 

Job Opportunities 

Job Seekers Login Here

 

User Name

Password   

 

Trouble Signing in 

New User Register here

 

    Jobs  

      Enter a Key Word

     

     Check By Category

     Check all Jobs

     Check Jobs posted in last 7 days

      Total Jobs Available :<%=tot%>

 Al-Amjad Group Login here

 

      User Name   

      Password      

     

       Trouble Signing in

       Date :<%=today%>