|
|
|
|
|
| DNA
Microarray |
 |
|
| |
 |
.. |
The DNA Microarray
facility at CDRI is intended for
genetic analysis with applications
to basic research as well as for
structural and functional genomics.
Microarray provides vehicle for
exploring the gene expression in
a manner that is rapid, sensitive,
systematic and comprehensive. Microarray
involves spotting of DNA in microscopic
amounts in a regular pattern. After
hybridizing with probe (derived
from various tissues etc.), arrays
give a global picture of differential
gene expression involved in health
and disease OR subjected to a particular
drug treatment. Large amount of
data generated from a single chip
involves sophisticated computational
tools involved in information technology.
|
|
|
|
| OBJECTIVES
|
|
|
| |
| Special
Features |
| |
| In addition to the
above use we are open for collaboration/on
payment or otherwise use for academia and
industries. |
| |
| Facility
in charge |
| |
| Dr.
Charu Sharma , Scientist |
| |
| |
|
|
| |
|
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
''''
%>
|
|
|
|
|
|
