|
|
|
| |
|
SAFETY
& CLINICAL DEVELOPMENT
Clinical & Experimental Medicine
Phase I unit of Dept. of Clinical
Pharmacology
Seth GS Medical College & KEM
Hospital, Mumbai- 400 012 |
 |
|
|
| |
|
|
 |
|
 |
 |
|
Permanent
members
. 1) Dr. Urmila Thatte, Professor & Head,
Dept. of Clinical Pharmacology, Seth GSMC
& KEM Hospital
2) Dr. Nithya Gogtay, Associate Professor
Dept. of Clinical Pharmacology, Seth GSMC
& KEM Hospital
Clinical collaborator
3) Dr. Milind Nadkar, Professor & I/C
of EMS
Dept. of Medicine, Seth GSMC & KEM Hospital
4) Dr. Nitin Karnik, Professor& I/C of
MICU
Dept. of Medicine, Seth GSMC & KEM Hospital
|
|
 |
 |
|
Clinical
pharmacology CDRI Unit
5) Dr. N. A. Rajwade [Group II (1)]
Dept. of Clinical pharmacology, Seth GSMC
& KEM Hospital
6) Ms. V. J. Ashar [Group II (3)]
Dept. of Clinical pharmacology, Seth GSMC
& KEM Hospital
7) Mr. Prabhakar S. Acharya [Group II (4)]
Dept. of Clinical pharmacology, Seth GSMC
& KEM Hospital
8) Mr. R. B. Pawar [Group I (4)]
Dept. of Clinical pharmacology, Seth GSMC
& KEM Hospital |
|
 |
 |
|
 |
|
 |
| |
|
|
| |
|
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
''''
%>
|
|
|
|
|
|
