%
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%> |
|
The End-Binding Protein EB3 Localizes Points of Microtubule Polymerization in a NeuronBelow is a link to a Quick Time Movie of a cultured neonatal mouse cerebellar granule neuron transfected with a construct of monomeric RFP-EB3. A round glass coverslip which formed the bottom of a 35 mm Petri dish was first coated with poly-l-lysine (PLL). Eight day old mouse cerebellar granule neurons were dissociated, transfected with RFP-EB3 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 every 5 sec with a 100X objective using the Metamorph Program. The Quick Time movie was made using ImageJ and represents 25 frames. What you will see is a neuron with EB3 speckles moving outward from the soma and distally in each of the processes. Speckles indicate the sites of tubulin polymerization and the rate of movement of speckles represents the polymerization rate. |
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.
|