Combinatorial chemistry
has emerged as a powerful tool for accelerating
drug discovery process. Compared to traditional
drug discovery approach, which requires
many days of work to synthesize and analyze
a single new compound, combinatorial chemistry
can produce and screen thousands of compounds
in weeks
for the discovery of novel drug entities
against various disease targets. The continuous
development of high throughput bioassay
screening formats coupled with human genomics
as a potential source of new biological
targets, has created an acute need for a
large number of structurally diverse molecules.
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
''''
%>
