DRUGS & PHARMACEUTICALS
CURRENT R&D HIGHLIGHTS Quarterly This quarterly periodical keeps the
users abreast with latest scientific and
technological progress in the field of Drug
Research. Every issue of the periodical
focuses on a specific area of Drug Research. Each issue of the periodical includes:
Features
An overview
article on the theme of
the issue by subject specialist
on other articles by senior
research scientists are
published in this section
News
& Views
Important
recent developments in a
particular research area
(theme) are focused
R&D
Highlights
Most recent
research highlights in specific
area.
R&D
Technology
Recent technological
achievements
Biotechnology
Applications
of biotechnology related
to the theme of the issue.
New
Leads
Novel scientific
leads which have further
developmental potential.
Natural
Products
Role of Natural
Products related to the
theme.
Patents
Status
of the Patents.
In
the last ten years (1995-2002) various
topics covered through this publication
ARE..
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
''''
%>
