|
|
|
|
|
| Clients |
 |
|
| |
| Agencies
Supporting R&D Activities |
National
Department of Biotechnology
Department of Science & Technology
Department of Ocean Development
Indian Council of Medical Research
Indian National Science Academy
Ministry of Health and Family Welfare
International
European Commission, UK
Uniformed Services University of Health
Sciences, USA
Volkswagen Foundation, Germany
Walter Reed Army Institute, USA
World Health Organisation, Geneva
|
| |
| Buisiness
Collaboration with Drug Industry |
| |
Novo Nordisk, Denmark
Krebs Biochemicals Ltd., Hyderabad
Avon Organics Ltd., Hyderabad
CIPLA Ltd., Mumbai
Dabur India Ltd., Ghaziabad
Duphar Interfran Ltd., Mumbai
Hindustan Latex Ltd., Thiruvananthapuram
IPCA Labs Ltd., Mumbai
Lupin Laboratories Ltd., Mumbai
Malladi Drugs & Pharmaceuticals, Chennai
Nicholas Piramal India Ltd., Mumbai
Lumen Marketing Company, Chennai
Ranbaxy Laboratories Ltd., New Delhi
Themis Medicare Ltd., Mumbai
Torrent Pharmaceuticals Ltd., Ahmedabad
Unichem Laboratories Ltd., Mumbai
Wockhardt Ltd., Aurangabad |
| |
|
|
| |
|
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
''''
%>
|
|
|
|
|
|
