To Provide Information
about the Activities, Achievements,
Facilities etc of C D R I to the Scientific
Community, Industry, Government Agencies,
Regulatory Authorities and all those
who may like to have any information
about the Institute
•
To work as a liaison between
the Drugs and Pharmaceutical Industry
and C D R I in order to have a proper
commercial and scientific interaction
and to achieve the goal of reaching
the fruits of Research to People.
•
To coordinate S &
T Services including Biological Screening
facility provided to outside institutions
•
To coordinate the international
collaboration with respect to C D R
I Scientists
•
To carry out projects
planning of the of C D R I in tune with
the policy of the Institute, CSIR and
the Government of India and carry out
Monitoring and Evaluation thereof
•
To coordinate Training
programs conducted by the Institute
•
To protect the IPR in
India and abroad for the products, technologies
etc generated at the institute
•
To Prepare and Publish
the Annual Report of the Institute and
carry out Publicity of C D R I Work
by putting up Exhibition Stalls during
various expositions
•
Data Management of CDRI's
synthetic, natural products and marine
samples ( under DOD project)
•
To implement CSIR schemes
as CPLYS and KYPY
•
To coordinate International
affairs with ISTAD, CSIR
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
''''
%>
