Home  |  Contact Us  |  Sitemap
 

 
  
SAFETY & CLINICAL DEVELOPMENT
Clinical & Experimental Medicine
Clinical Pharmacology Unit at PGIMER , Chandigarh.
 
   
  Permanent Staff
1. Dr Samir Malhotra, Associate Professor, Pharmacology
2. Dr Nusrat Shafiq, Assistant Professor, Pharmacology
3. Prof P.Pandhi, Professor and Head, Pharmacology
4. Prof G.D, Puri, Professor, Anaesthesia
5. Dr A.Bhalla, Associate Professor, Internal Medicine


 
       
 
 
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 '''' %>