C D R I's Contraceptive
development programme has acieved anther great
success in this area of national and international
importance. It's contraceptive Cream, CONSAP
has now been approved bu the Drugs Controller
General of India for its marketing and use.
CONSAP is a sterile contraceptive cream developed
from the saponins obtained from soap nuts
(Reetha) collected from the plant, Sapindus
mukorosii. The cream is recommended for
all women of reproductive age group who want
to space their children. It is safe and free
from systemic side effects on continuous prolonged
use.The preparation has been developed by
using saponins from the soapnut or reetha
(Sapindus mukorossi). The cream went through
all regulatory testing and Phase I, II and
III clinical trials and proved to be an effective
contraceptive product. DCG(I) cleared the
cream for use.
Click
for +zoom
The
CONSAP Cream has been licensed to the Hindustan
Latex Limited who are going to market the
product very soon
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
''''
%>
