<% ' *** for table purpose dim AdminRoleYes dim CoordinatorRoleYes dim FullUserRoleYes dim roleBuffer dim chiefBuffer ' *** testing administrator role first roleBuffer = session("admin") chiefBuffer = session("chief") if ( ( roleBuffer = "true" ) or ( chiefBuffer = "true") ) then AdminRoleYes = true end if ' *** testing coordinator roleBuffer = session("coordinator") if ( ( roleBuffer = "true") or ( chiefBuffer = "true") ) then CoordinatorRoleYes = true end if ' *** testing full User roleBuffer = session("fulluser") if (roleBuffer = "true" ) then FullUserRoleYes = true else FullUserRoleYes = false end if Response.Write "

" ' *** first is full user or user if (FullUserRoleYes = true) then %> <% else %> <% end if ' *** then is the admin if (AdminRoleYes = true) then %> <% end if ' *** then is the coordinator if (CoordinatorRoleYes = true) then %><% end if %>

User Update

Update Administrator or Coordinator

Module Update

Category Update

System Update

Email Box

Checking User Response Through Email

Checking Whether User meet deadline or Not

Automate Choose Reviewer for every new module

Assign New Module to Coordinator

Upload an existing module to the System

Transfer Finished Module to Downloadable Place

Create Module Posting List

GO TO MODULE LIST

Update Posted Module

Library

A   B  C   D   E  F   G  H   I   J   K   L   M   N   O   P   Q   R   S   T   U   V   W   X   Y   Z

<% dim ConnBuffer , RSBuffer ,sqlBuffer dim fName dim mName dim lName dim AuthorName dim beginWith dim recordID dim approval dim userName Set ConnBuffer = Server.CreateObject("ADODB.Connection") ConnBuffer.Open ConnectionString beginWith = trim(Request.QueryString("begin")) if (beginWith = "") then beginWith = "a" end if %>

 

<% sqlBuffer = "select * from full_user_desc_table where last_name like '" & beginWith & "%' order by last_name" ' response.write sqlBuffer & "
" set RSBuffer = ConnBuffer.Execute(sqlBuffer) if (RSBuffer.eof = false) then do while (RSBuffer.eof = false) fName = trim(RSBuffer("first_name")) mName = trim(RSBuffer("middle_name")) lName = trim(RSBuffer("last_name")) recordID = cint(RSBuffer("record_id")) approval = cint(RSBuffer("approved")) AuthorName = fName & " " & mName & " " & lName username = trim(RSBuffer("username")) %> <% if (approval = 0 ) then %> <% else %> <% end if %> <% RSBuffer.moveNext loop else Response.Write "NONE" & "
" end if %>
Name ( username)  Approve  Disapprove   Erase  Detail
  <%=AuthorName %> ( <%=userName %> )