PO BOX  14 

Postal Code 115

Madinat Sultan Qaboos,

Sultanate of Oman

Ph : 00968 596454

Fax : 00968 597089

        

 

 Jobs View - All Jobs
<% dim mcat mcat = request.form("jb_cat") set Cn = Server.CreateObject("ADODB.Connection") Cn.Open "driver=SQL Server;server=216.122.236.5;uid=alamjad;pwd=INdNPcsm6qk;database=alamjad" sqltemp="select job_id,uname,date_sub,job_title,st_date from subjob order by date_sub desc" 'set RS = Server.CreateObject("ADODB.Recordset") 'RS.Open sqltemp, cn, 3, 3 ' Troubleshooting TIP: ' if you use this code and get an error, for example: ' ' ADODB.Recordset error 800a0cb3 ' ' The operation requested by the application is not ' supported by the provider. ' ' You may have a driver that is out of date, see: ' http://www.learnasp.com/learn/connectioninfo.asp ' for code that will identify what your driver version is ' this script works with Access, SQLserver and Oracle ' with up-to-date drivers 'If aduseclient="" THEN ' response.end 'END IF mypage=request("whichpage") If mypage="" then mypage=1 end if mypagesize=request("pagesize") If mypagesize="" then mypagesize=10 end if mySQL=request("SQLquery") IF mySQL="" THEN mySQL=SQLtemp END IF set rstemp=Server.CreateObject("ADODB.Recordset") rstemp.cursorlocation=aduseclient rstemp.cachesize=5 tempSQL=lcase(mySQL) badquery=false IF instr(tempSQL,"delete")>0 THEN badquery=true END IF IF instr(tempSQL,"insert")>0 THEN badquery=true END IF IF instr(tempSQL,"update")>0 THEN badquery=true END IF If badquery=true THEN response.write "Not a SELECT Statement
" response.end END IF rstemp.open mySQL,cn if Not rstemp.eof and Not rstemp.bof then rstemp.movefirst rstemp.pagesize=mypagesize maxpages=cint(rstemp.pagecount) maxrecs=cint(rstemp.pagesize) rstemp.absolutepage=mypage howmanyrecs=0 howmanyfields=rstemp.fields.count -1 response.write "Jobs Posted..... " response.write "Page " & mypage & " of " & maxpages & "
" response.write "" 'Put Headings On The Table of Field Names 'FOR i=0 to howmanyfields response.write "" response.write "" response.write "" response.write "" 'NEXT response.write "" ' Now loop through the data DO UNTIL rstemp.eof OR howmanyrecs>=maxrecs response.write "" ' FOR i = 0 to howmanyfields 'fieldvalue=rstemp(i) 'If isnull(fieldvalue) THEN ' fieldvalue="n/a" 'END IF 'If trim(fieldvalue)="" THEN ' fieldvalue=" " 'END IF response.write "" response.write "" response.write "" response.write "" 'next response.write "" rstemp.movenext howmanyrecs=howmanyrecs+1 LOOP response.write "
" & "Job Id" & "" & "Submitted " & "" & "Job title " & "" & "Job start date " & "
" response.write "" &rstemp("job_id") &"" response.write "" response.write rstemp("date_sub") response.write "" response.write rstemp("job_title") response.write "" response.write rstemp("st_date") response.write "

" ' close, destroy rstemp.close set rstemp=nothing ' Now make the page _ of _ hyperlinks Call PageNavBar sub PageNavBar() pad="" scriptname=request.servervariables("script_name") response.write "" response.write "" response.write "
" response.write "" if (mypage mod 10) = 0 then counterstart = mypage - 9 else counterstart = mypage - (mypage mod 10) + 1 end if counterend = counterstart + 9 if counterend > maxpages then counterend = maxpages if counterstart <> 1 then ref="First : " Response.Write ref ref="Previous " Response.Write ref end if Response.Write "Select the Page you wish to see " response.write "
" response.write "[" for counter=counterstart to counterend If counter>=10 then pad="" end if if cstr(counter) <> mypage then ref="" & pad & counter & "" else ref="" & pad & counter & "" end if response.write ref if counter <> counterend then response.write " " next Response.Write "]" if counterend <> maxpages then ref=" Next" Response.Write ref ref=" : Last" Response.Write ref end if response.write "
" response.write "
" end sub else response.write "No data Found " end if %>