|
|
|
| |
DIAMOND
JUBILEE YEAR CELEBRATIONS (1951- 2011)
CDRI ALMNI/
Ex-EMPLOYEE DATABASE
|
Director & Staff Members of CDRI
feel extremely proud of the fact the current
year happens to be the 60th year of our
existence. Right from the day, 17th February,
1951, when the then Prime Minister of
India, Pt Jawaharlal Nehru inaugurated
the Institute, CDRI has had a long history
of dedication and glorious achievements.
We are extremely happy to celebrate this
year as our Diamond Jubilee year. We organised
various activities during the
year-long celebrations.
|
|
Dear
Friends,
We are trying to reach out to all of you
who have been associated with this great
institution during the period of its long
and illustrious journey of 60 years. But
for your individual contributions, CDRI
would not have attained the status and achievements
that it has got.
We are compiling a database
of alumni and ex-staff of CDRI so as
to keep you posted about your alma-mater.
I request you to kindly spare some minutes
to fill up the online form for this database.
Your
suggestions/ viewpoints are always welcome
and I am sure together, we can take CDRI
to greater heights
Dr T K Chakraborty
Director
|
| |
| |
|
|
| |
|
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
''''
%>
|
|
|
|
|
|
