<% if trim(session("SessionID")) ="" then Dim cn Dim RS Dim SQLs,VarStatus Set Cn = Server.CreateObject("ADODB.Connection") set rs = Server.CreateObject("ADODB.Recordset") varserver = Request.ServerVariables("APPL_PHYSICAL_PATH") Cn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/RRB.mdb")) sqls="select * from HitCounter" RS.Open sqls,cn session("Hit")=rs("HitCounter") session("Hit")=Session("Hit") +1 session("SessionID")=session.SessionID ' cn.Execute "Update Hitcounter set hitcounter=" & session("Hit") cn.Close end if %>

RESULTS

Employement Notice Results Updated On Results of CE.N. No. 1/2006 Result of Cat.14 CEN 1/2006 31.05.2007 Result of Cat.14 CEN 1/2006 25.04.2007 Result of Cat.11, 13 & 14 CEN 1/2006 30.03.2007 Result of Cat.14 CEN 1/2006 16.02.2007 Result of Cat.13 CEN 1/2006 16.02.2007 Result of Cat.1, 4 & 11 CEN 1/2006 18.01.2007 Result of Cat.15 & 14 CEN 1/2006 26.12.2006 Result of Cat.6 & 15 CEN 1/2006 13.12.2006 Result of Cat.4 & 11 CEN 1/2006 07.12.2006 Result of Cat.3 & 12 CEN 1/2006 20.11.2006 Result of Cat.15 CEN 1/2006 08.11.2006 Result of Cat.5, 7, 11 & 12 CEN 1/2006 03.11.2006 Result of Cat.1, 5, 7 & 12 CEN 1/2006 29.09.2006 Result of Cat.1, 2, 3, 4, 6, 7, 8, 11, 12, 13, 16, 17 & 41 CEN 1/2006 22.09.2006 Result of Cat.15 CEN 1/2006 16.09.2006 Result of Cat.14 CEN 1/2006 25.08.2006 Result of Cat.9 & 10 CEN 1/2006 03.08.2006 Result of Cat.9 & 10 CEN 1/2006 31.07.2006 Result of Cat.SE & JE of EN No.CEN 1/2006 29.07.2006

< back