|
|
|
| |
KNOWLEDGE
RESOURCE CENTRE |
 |
|
| |
Places
to Study |
LIBRARY READING HALL
The
library has provided a reading halls in
Ground, firstand second floors which is
very spacious and can accomodate more about
75 users at a time. The place is calm, pleasant
and ideal for studying. The ventilation
and light facility is good and has been
provided with a centralised airconditioning
facility.
|
|
 |
| |
|
|
CURRENT
YEAR'S JOURNALS
The
hall to our left on the first floor consists
of journals other than the current weeks
journal. Arrangement for reading the journals
has been made and along with this a computer
with LIBSYS- Online OPAC to search for a
particular journal has been provided to
the users.
|
|
 |
| |
|
|
NEW
ARRIVAL HALL
The
weekly periodical display room on the first
floor to the left consists of current journals
of the current week. The newly arrived journal
issues are kept in this area for one week.
Afterwards they are shifed to the regular
unbound journal section and placed in their
designated pigeon boxes.
|
|
 |
| |
|
|
BOUND
VOLUMES FLOOR
All back
volumes of the journals have been bound
ank kept in easily retrievable arrangent
on the seconf floor of the building. Reading
space for the users have been provided for
consultaion on the same floor. |
|
 |
| |
| |
| |
| |
| |
|
|
| |
|
website
copyright © Central Drug Research Institute.
All rights reserved.
No part of this should be Downloaded or used
in any way other than the non-commercial purposes
without prior permission of the Director,
CDRI. |
|
|
|
 |
| Powered
by MARG Software Solutions |
Contact
us |
You
are Visitor No. |
| Best viewed
at 800 X 600 Resolutions | Internet
Explorer 5.0 - Later Version |
<%
if session("iNumber")="" then
'conn.open mydsn
Dim rsHits
Set rsHits=Server.CreateObject("ADODB.Recordset")
rsHits.CursorLocation=adUseClient
rsHits.Open "Select visits from Hits", conn, adOpenKeyset, adLockOptimistic
session("iNumber")=rsHits("visits") + 1
rsHits("visits")=rsHits("visits") + 1
rsHits.Update
rsHits.Close
set rsHits=Nothing
end if
If Len(session("iNumber")) > 0 then
'Display iNumber
Response.Write "" & ConstructDigits(session("iNumber")) & ""
End If
''''
Function ConstructDigits(iValue)
'This function accepts a single parameter, iValue, and
'returns HTML containing a series of images representing
'a graphical image of the value in iValue
'Start by ensuring iValue is a number
If Not IsNumeric(iValue) then
ConstructDigits = iValue & " IS NOT A NUMBER!"
Exit Function
End If
'Can't show decimals!
If InStr(1, iValue, ".") then
ConstructDigits = "CANNOT CONTAIN DECIMALS!"
Exit Function
End If
'Can't show negative numbers!
If iValue < 0 then
ConstructDigits = "CANNOT DISPLAY NEGATIVE NUMBERS!"
Exit Function
End If
Dim iLoop, strResults
For iLoop = (Len(iValue) - 1) to 0 STEP -1
strResults = strResults & ""
Next
ConstructDigits = strResults
End Function
''''
%>
|
|
|
|
|
|
