%
function getFileName()
Dim pos, path, name
path = Request.ServerVariables("PATH_INFO")
pos = InStrRev(path,"/",-1,1)
name = Right(path, len(path) - pos)
'response.write("PATH_TRANSLATED" + Request.ServerVariables("PATH_TRANSLATED") + "
")
'**** Test Code ***********************
getFileName = name
'Response.Write("filename for NS6 " + name + "
")
'Response.Write(strMainPhysicalPath & Replace(Request.QueryString("NAME"),"%2E","."))
End Function
' Function IsEmailValid(strEmail)
' Action: checks if an email is correct.
' Parameter: strEmail - the Email address
' Returned value: on success it returns True, else False.
Function IsEmailValid(strEmail)
Dim strArray
Dim strItem
Dim i
Dim c
Dim blnIsItValid
' assume the email address is correct
blnIsItValid = True
' split the email address in two parts: name@domain.ext
strArray = Split(strEmail, "@")
' if there are more or less than two parts
If UBound(strArray) <> 1 Then
blnIsItValid = False
IsEmailValid = blnIsItValid
Exit Function
End If
' check each part
For Each strItem In strArray
' no part can be void
If Len(strItem) <= 0 Then
blnIsItValid = False
IsEmailValid = blnIsItValid
Exit Function
End If
' check each character of the part
' only following "abcdefghijklmnopqrstuvwxyz_-."
' characters and the ten digits are allowed
For i = 1 To Len(strItem)
c = LCase(Mid(strItem, i, 1))
' if there is an illegal character in the part
If InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 And Not IsNumeric(c) Then
blnIsItValid = False
IsEmailValid = blnIsItValid
Exit Function
End If
Next
' the first and the last character in the part cannot be . (dot)
If Left(strItem, 1) = "." Or Right(strItem, 1) = "." Then
blnIsItValid = False
IsEmailValid = blnIsItValid
Exit Function
End If
Next
' the second part (domain.ext) must contain a . (dot)
If InStr(strArray(1), ".") <= 0 Then
blnIsItValid = False
IsEmailValid = blnIsItValid
Exit Function
End If
' check the length oh the extension
i = Len(strArray(1)) - InStrRev(strArray(1), ".")
' the length of the extension can be only 2, 3, or 4
' to cover the new "info" extension
If i <> 2 And i <> 3 And i <> 4 Then
blnIsItValid = False
IsEmailValid = blnIsItValid
Exit Function
End If
' after . (dot) cannot follow a . (dot)
If InStr(strEmail, "..") > 0 Then
blnIsItValid = False
IsEmailValid = blnIsItValid
Exit Function
End If
' finally it's OK
IsEmailValid = blnIsItValid
End Function
%>
National
Heart, Lung, and Blood Institute Developmental Neurobiology |
<%if image_inthelab="arrow_on.gif" then%> In the Lab <%end if%> <%if image_labmembers="arrow_on.gif" then%> Lab Members <%end if%> <%if image_publications="arrow_on.gif" then%> Publications <%end if%> <%if image_contactus="arrow_on.gif" then%> Contact Us <%end if%> <%if image_location="arrow_on.gif" then%> Location <%end if%> <%if image_imageGallery="arrow_on.gif" then%> Image Gallery <%end if%> <%if image_nabelLabHome="arrow_on.gif" then%> Geller Lab Home <%end if%> <%if image_favoriteJournals="arrow_on.gif" then%> Favorite Journals <%end if%> <%if image_labMethods="arrow_on.gif" then%> Lab Methods <%end if%> |
|
Growth Cones Turn at a BoundaryBelow is a link to a Quick Time Movie of a cultured neonatal dorsal root ganglion neuron unable to cross a boundary. A round glass coverslip which formed the bottom of a 35 mm Petri dish was first coated with poly-l-lysine (PLL). A drop of chondroitin sulfate proteoglycan (CSPG) solution was placed in the center of the coverslip and allowed to adhere. Eight day old mouse dorsal root ganglion neurons were dissociated and plated on the coverslip. After 24 hr, the Petri dish was placed in a CO2 incubator on the stage of a Nikon inverted microscope. Images were captured at 1/min with a 40X objective using the Metamorph Program. The Quick Time movie was made using ImageJ and represents 142 frames at 1 frame/min. What you will see is cell body towards the right, with a growth cone growing on PLL turning along the boundary. (Wang, et. al, J. Cell Sci., 2008) |
Dr. Herbert Geller, Head |
Accessibility Policy
| Privacy Statement
Please send us your feedback, comments, and questions Note to users of screen readers and other assistive technologies: please report your problems here.
|