The
techniques and methodologies of Biomedical
Research have gone through a drastic
change in the last one and half decade.
The use of information technology,
development in the area of bioscreening
together with the more and more of
robotics and other electronic-medical
devices have made the drug research
more rapid and competitive. The new
techniques have led to a remarkable
increase of competition among the
institutions engaged in drug research.
The institutions using conventional
technologies and techniques can no
longer compete with the speed with
which modern day biomedical research
is being carried out. Regular up gradation
and continuous acquisition of state
of art technologies are the necessary
ingredient of modern day research.
C
D R I has, in recent years, acquired and
established best possible technological
capabilities and facilities for drug Research.
The modern facilities are at par, if not
superior, to the technologies available
at best of the R&D laboratories all
over the world. Some of thee recently created
facilities are: (
Please Click below for details of each facility
)
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
''''
%>
