|
|
|
|
|
| NEWER
APPROACHES IN DRUG DISCOVERY AND DESIGN |
 |
|
| |
|
OBJECTIVE
|
|
The major research activities
in this project area are, New target identification,
drug metabolizing enzyme profiling, structural
and functional genomics and proteomics.
Structural studies on drug target proteins
using NMR and X-ray crystallographic techniques.
Design of chemical libraries with enhanced
hit-rates through In-Silico approaches.
Design, synthesis and evaluation of biologically
active peptides and peptidomimetics.
|
| |
| SCIENTISTS
ASSOCIATED WITH THE PROJECT |
| |
|
|
| |
| MODERN
FACILITIES |
| |
|
• |
MALDI-TOF
Mass Spectrometery |
| • |
Transmission
Electron Microscopy |
| • |
Circular
Dichroism, Spectrofluorimeter |
| • |
Rigaku
X-ray Generator, Mar345 Detector, High
Performance Graphics Computers, FPLC,
PCR Machines etc. |
| • |
State-of-the-Art
Silicon-Graphic Machines, Servers, Commercial
and In-house Softwares to perform heavy
calculations for fundamental and biomedical
research. |
• |
NMR-
520 MHz with Cryoprobe |
|
|
|
|
|
| |
|
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
''''
%>
|
|
|
|
|
|
