[an error occurred while processing this directive] <% Dim REMOTE_ADDR Dim NIHintranetnet Dim intranet intranet = "No" NIHintranet= "True" REMOTE_ADDR = Request.ServerVariables("REMOTE_ADDR") if IsIntranet(REMOTE_ADDR) = "False" then NIHintranet="False" 'response.write("NIHintranet="+NIHintranet) end if %> <% if NIHintranet = "True" then %> <%end if%>
Jump to contents past introductory
    images
Skip banner and top navigation
NHLBI Logo and Link
 HOME  SITE INDEX  CONTACT US
  
DIR Banner
Link to the National Institutes of Health Link to the Department of Health and Human Services

Division of Intramural Research
Laboratory of Developmental Biology


<% Dim currentFolder, name, email currentFolder = "WalkerD@nhlbi.nih.gov" if currentFolder = "chd Staff" then 'response.write(currentFolder) %> <% if tttt then %> <% end if %> <% homepage = "webpage" %> <% if tttt then %> <% end if %>

 Click on the Staff Members name to access their Bio Page | : Link to Staff Members Email.

 

<% homepage = "" %> <% if tttt then %> <% end if %> <% homepage = "webpage" %> <% if tttt then %> <% end if %> <% homepage = "" %> <% if tttt then %> <% end if %> <% homepage = "webpage" %> <% if tttt then %> <% end if %> <% homepage = "" %> <% if tttt then %> <% end if %> <% homepage = "webpage" %> <% if tttt then %> <% end if %> <% homepage = "" %> <% if tttt then %> <% end if %> <% homepage = "webpage" %> <% if tttt then %> <% end if %> <% homepage = "" %> <% if tttt then %> <% end if %> <% homepage = "webpage" %> <% if tttt then %> <% end if %> <% homepage = "" %> <% if tttt then %> <% end if %> <% homepage = "webpage" %> <% if tttt then %> <% end if %>
<% rank = "50" %> <% if rank = 1 then %> <% end if%> <%if homepage = "webpage" then%>

Bishwanath Chatterjee <%else%>

Bishwanath Chatterjee <%end if%> <% if rank = 1 then %> <% end if%>

<% rank = "50" %> <% if rank = 1 then %> <% end if%> <%if homepage = "webpage" then%>

Chih-Jen Wei <%else%>

Chih-Jen Wei <%end if%> <% if rank = 1 then %> <% end if%>

<% rank = "50" %> <% if rank = 1 then %> <% end if%> <%if homepage = "webpage" then%>

Diana Walker <%else%>

Diana Walker <%end if%> <% if rank = 1 then %> <% end if%>

<% rank = "50" %> <% if rank = 1 then %> <% end if%> <%if homepage = "webpage" then%>

Qing Yu <%else%>

Qing Yu <%end if%> <% if rank = 1 then %> <% end if%>

<% rank = "50" %> <% if rank = 1 then %> <% end if%> <%if homepage = "webpage" then%>

Richard Francis <%else%>

Richard Francis <%end if%> <% if rank = 1 then %> <% end if%>

<% rank = "50" %> <% if rank = 1 then %> <% end if%> <%if homepage = "webpage" then%>

Xin Xu <%else%>

Xin Xu <%end if%> <% if rank = 1 then %> <% end if%>

<% rank = "50" %> <% if rank = 1 then %> <% end if%> <%if homepage = "webpage" then%>

Ying-Jie Wu <%else%>

Ying-Jie Wu <%end if%> <% if rank = 1 then %> <% end if%>

<% homepage = "" %> <% if tttt then %> <% end if %> <% homepage = "webpage" %> <% if tttt then %> <% end if %>

 Click on the Staff Members name to access their Bio Page | : Link to Staff Members Email.

 

<% rank = "50" %> <% if rank = 1 then %> <% end if%> <%if homepage = "webpage" then%>

Kaari Linask <%else%>

Kaari Linask <%end if%> <% if rank = 1 then %> <% end if%>

<% homepage = "" %> <% if tttt then %> <% end if %> <% homepage = "webpage" %> <% if tttt then %> <% end if %>

Click on the Staff Members name to access their Bio Page | : Link to Staff Members Email.

 

<% homepage = "" %> <% if tttt then %> <% end if %> <% homepage = "webpage" %> <% if tttt then %> <% end if %>
<% rank = "50" %> <% if rank = 1 then %> <% end if%> <%if homepage = "webpage" then%>

Heidi Dudik <%else%>

Heidi Dudik <%end if%> <% if rank = 1 then %> <% end if%>

<% rank = "50" %> <% if rank = 1 then %> <% end if%> <%if homepage = "webpage" then%>

Jay Noor <%else%>

Jay Noor <%end if%> <% if rank = 1 then %> <% end if%>

<% homepage = "" %> <% if tttt then %> <% end if %> <% homepage = "webpage" %> <% if tttt then %> <% end if %>

Click on the Staff Members name to access their Bio Page | : Link to Staff Members Email.

 

<% homepage = "" %> <% if tttt then %> <% end if %> <% homepage = "webpage" %> <% if tttt then %> <% end if %> <% homepage = "" %> <% if tttt then %> <% end if %> <% homepage = "webpage" %> <% if tttt then %> <% end if %> <% homepage = "" %> <% if tttt then %> <% end if %> <% homepage = "webpage" %> <% if tttt then %> <% end if %>
<% rank = "50" %> <% if rank = 1 then %> <% end if%> <%if homepage = "webpage" then%>

Charlene Schramm <%else%>

Charlene Schramm <%end if%> <% if rank = 1 then %> <% end if%>

<% rank = "50" %> <% if rank = 1 then %> <% end if%> <%if homepage = "webpage" then%>

Jesus Vazquez <%else%>

Jesus Vazquez <%end if%> <% if rank = 1 then %> <% end if%>

<% rank = "50" %> <% if rank = 1 then %> <% end if%> <%if homepage = "webpage" then%>

Julie Rosenthal <%else%>

Julie Rosenthal <%end if%> <% if rank = 1 then %> <% end if%>

<% rank = "50" %> <% if rank = 1 then %> <% end if%> <%if homepage = "webpage" then%>

Vipul Mangal <%else%>

Vipul Mangal <%end if%> <% if rank = 1 then %> <% end if%>

<% homepage = "" %> <% if tttt then %> <% end if %>

Click on the Staff Members name to access their Bio Page | : Link to Staff Members Email.

 

<% homepage = "" %> <% if tttt then %> <% end if %> <% homepage = "" %> <% if tttt then %> <% end if %> <% homepage = "" %> <% if tttt then %> <% end if %> <% homepage = "webpage" %> <% if tttt then %> <% end if %> <% homepage = "" %> <% if tttt then %> <% end if %>
<% rank = "50" %> <% if rank = 1 then %> <% end if%> <%if homepage = "webpage" then%>

Brett Siegfried <%else%>

Brett Siegfried <%end if%> <% if rank = 1 then %> <% end if%>

<% rank = "50" %> <% if rank = 1 then %> <% end if%> <%if homepage = "webpage" then%>

Chris Spurney <%else%>

Chris Spurney <%end if%> <% if rank = 1 then %> <% end if%>

<% rank = "50" %> <% if rank = 1 then %> <% end if%> <%if homepage = "webpage" then%>

Ed Doe <%else%>

Ed Doe <%end if%> <% if rank = 1 then %> <% end if%>

<% rank = "50" %> <% if rank = 1 then %> <% end if%> <%if homepage = "webpage" then%>

Linda Leatherbury <%else%>

Linda Leatherbury <%end if%> <% if rank = 1 then %> <% end if%>

<% rank = "50" %> <% if rank = 1 then %> <% end if%> <%if homepage = "webpage" then%>

Sarah Clauss <%else%>

Sarah Clauss <%end if%> <% if rank = 1 then %> <% end if%>

<% homepage = "" %> <% ' 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 %> <% end if %> <% if currentFolder = "emailForm" then%> <% function getEmail(name) if name = "Bishwanath Chatterjee" then getEmail = "ChatterB@nhlbi.nih.gov" end if if name = "Chih-Jen Wei" then getEmail = "WeiC@nhlbi.nih.gov" end if if name = "Diana Walker" then getEmail = "WalkerD@nhlbi.nih.gov" end if if name = "Qing Yu" then getEmail = "YuQ@nhlbi.nih.gov" end if if name = "Richard Francis" then getEmail = "FrancisR@nhlbi.nih.gov" end if if name = "Xin Xu" then getEmail = "XuX@nhlbi.nih.gov" end if if name = "Ying-Jie Wu" then getEmail = "WuY@nhlbi.nih.gov" end if if name = "Kaari Linask" then getEmail = "LinaskK@nhlbi.nih.gov" end if if name = "Heidi Dudik" then getEmail = "DudikH@nhlbi.nih.gov" end if if name = "Jay Noor" then getEmail = "NoorJ@nhlbi.nih.gov" end if if name = "Charlene Schramm" then getEmail = "SchrammC@nhlbi.nih.gov" end if if name = "Jesus Vazquez" then getEmail = "vazquezj@nhlbi.nih.gov" end if if name = "Julie Rosenthal" then getEmail = "rosenthj@nhlbi.nih.gov" end if if name = "Vipul Mangal" then getEmail = "mangalv@nhlbi.nih.gov" end if if name = "Brett Siegfried" then getEmail = "siegfrieb@nhlbi.nih.gov" end if if name = "Chris Spurney" then getEmail = "SpurneyC@nhlbi.nih.gov" end if if name = "Ed Doe" then getEmail = "doee@nhlbi.nih.gov" end if if name = "Linda Leatherbury" then getEmail = "LeatherL@nhlbi.nih.gov" end if if name = "Sarah Clauss" then getEmail = "ClaussS@nhlbi.nih.gov" end if if name = "Susan Riley" then getEmail = "rileys@nhlbi.nih.gov" end if if name = "emailForm" then getEmail = "emailForm" end if end function %> [an error occurred while processing this directive] <% name = Request.QueryString("name") email = getEmail(name) if Not IsEmailValid(email) then response.write("Send E-Mail to: ") response.write(name + " Valid e-mail address not found.
") else response.write("Send E-Mail to: ") response.write(name + "
") ''response.write(email + "
") validSendEmailFound = true end if %>

 



* Tel  #: (301)451-8261
 
Fax #: (301)480-4581
 
Send E-mail

Diana Walker

Postdoctoral Fellow
 

B.S., Biochemistry & Cell Biology, UCSD

Ph.D., Cellular and Developmental Biology, Iowa State

 

Research Interests

Publications

National Institutes of Health / NHLBI

10 Center Drive, Building 50

Room 4537
Bethesda, MD 20892

 

 

 

 

<% end if %> <% if currentFolder <> "emailForm" and currentFolder <> "LCE Staff" then 'response.write "dummy statement" %>

 



* Tel  #: (301)451-8261
 
Fax #: (301)480-4581
 
Send E-mail

Diana Walker

Postdoctoral Fellow
 

B.S., Biochemistry & Cell Biology, UCSD

Ph.D., Cellular and Developmental Biology, Iowa State

 

Research Interests

Publications

National Institutes of Health / NHLBI

10 Center Drive, Building 50

Room 4537
Bethesda, MD 20892

 

 

 

 

<%end if%>
<% if NIHintranet = "False" and intranet = "Yes" then 'response.write("NIHintranet="+NIHintranet) ' do nothing... else%> <% end if intranet = "No" %> <% if NIHintranet = "False" and intranet = "Yes" then 'response.write("NIHintranet="+NIHintranet) ' do nothing... else%> <% end if intranet = "No" %> <% if NIHintranet = "False" and intranet = "Yes" then 'response.write("NIHintranet="+NIHintranet) ' do nothing... else%> <% end if intranet = "No" %> <% if NIHintranet = "False" and intranet = "Yes" then 'response.write("NIHintranet="+NIHintranet) ' do nothing... else%> <% end if intranet = "No" %> <% if NIHintranet = "False" and intranet = "Yes" then 'response.write("NIHintranet="+NIHintranet) ' do nothing... else%> <% end if intranet = "No" %> <% if NIHintranet = "False" and intranet = "Yes" then 'response.write("NIHintranet="+NIHintranet) ' do nothing... else%> <% end if intranet = "No" %> <% if NIHintranet = "False" and intranet = "Yes" then 'response.write("NIHintranet="+NIHintranet) ' do nothing... else%> <% end if intranet = "No" %> <% if NIHintranet = "False" and intranet = "Yes" then 'response.write("NIHintranet="+NIHintranet) ' do nothing... else%> <% end if intranet = "No" %> <% if NIHintranet = "False" and intranet = "Yes" then 'response.write("NIHintranet="+NIHintranet) ' do nothing... else%> <% end if intranet = "No" %> <% if NIHintranet = "False" and intranet = "Yes" then 'response.write("NIHintranet="+NIHintranet) ' do nothing... else%> <% end if intranet = "No" %> <% if NIHintranet = "False" and intranet = "Yes" then 'response.write("NIHintranet="+NIHintranet) ' do nothing... else%> <% end if intranet = "No" %> <% if NIHintranet = "False" and intranet = "Yes" then 'response.write("NIHintranet="+NIHintranet) ' do nothing... else%> <% end if intranet = "No" %>
Laboratories of the NHLBI
LDB Home
Connexin Regulation of Cell Motility
Neural Crest Cell Migration
Primordial Germ Cell Migration
Connexin Protein Interactions and Cell Signaling
Connexin 45 Distribution
Gap Junction Cell Signaling
Mouse ENU Mutagenesis
LDB Mouse ENU Mutagenesis Program
Mouse Heart Atlas
Fetal Mouse Atlas
Introduction to EFIC
Photo/Movie Gallery
Movie Gallery
Photo Gallery
Protocols
Genotyping Automations
LDB Staff
LDB Group
LDB Personnel
jump over rollover images to navigation links  

HOME · SEARCH · ACCESSIBILITY INFORMATION · SITE INDEX · LINKS TO OTHER SITES · PRIVACY STATEMENT · CONTACT US





Please send us your feedback, comments, and questions
by using the appropriate link on the page, Contact the NHLBI.

Note to users of screen readers and other assistive technologies: please report your problems here.