Picroliv is a hepatoprotective
agent of plant origin. It is an iridoid
glycoside mixture containing 60% picroside
I and kutoside in the ratio of 1:1.5
obtained from the plant, Picrorhiza
kurrooa ( root and rhizome ).
Picroliv ( 6 and 12.5 mg/ kg ) has
shown efficacy comparable to silymarin
( 10 and 20 mg/ kg ) in rodent models
of galactosamine, paracetamol, thioacetamide
and CC14 induced hepatic damage. Picroliv
has shown cholerectic effect in rat
and anti-cholestatic effect in rat,
guinea pigs and cats treated with
paracetamol and ethinyl estradiol.
It has also antiviral and immunostimulant
activities. Picroliv is devoid of
any significant CNS and CVS , autonomic
and other systemic activity.
Picroliv appears to be safe in rats and
monkeys and has excellent therapeutic
index. Phase I and II clinical trials
have been conducted and the drug has shown
no side effect and is well tolerated.
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
''''
%>
