<%
Dim currentFolder, name, email
currentFolder = "chd Staff"
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.
|
|
|
<% 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%>
|
|
<%
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%>
Chih-Jen Wei
<%else%>
Chih-Jen Wei
<%end if%>
<% if rank = 1 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%>
Diana Walker
<%else%>
Diana Walker
<%end if%>
<% if rank = 1 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%>
Qing Yu
<%else%>
Qing Yu
<%end if%>
<% if rank = 1 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%>
Richard Francis
<%else%>
Richard Francis
<%end if%>
<% if rank = 1 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%>
Xin Xu
<%else%>
Xin Xu
<%end if%>
<% if rank = 1 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%>
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.
|
|
|
<% 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%>
|
|
<%
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%>
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.
|
|
|
<% 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%>
|
|
<%
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%>
Jesus Vazquez
<%else%>
Jesus Vazquez
<%end if%>
<% if rank = 1 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%>
Julie Rosenthal
<%else%>
Julie Rosenthal
<%end if%>
<% if rank = 1 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%>
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.
|
|
|
<% 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%>
|
|
<%
homepage = ""
%>
<% if tttt 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%>
|
|
<%
homepage = ""
%>
<% if tttt 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%>
|
|
<%
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%>
Linda Leatherbury
<%else%>
Linda Leatherbury
<%end if%>
<% if rank = 1 then %>
<% end if%>
|
|
<%
homepage = ""
%>
<% if tttt 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
%>
<% end if %>
<%
if currentFolder <> "emailForm" and currentFolder <> "LCE Staff" then
'response.write "dummy statement"
%>
<%end if%>
|
|
 |
Laboratories
of the NHLBI |
|
LDB Home |
 |
|
|
|
|
|
<%
if NIHintranet = "False" and intranet = "Yes" then
'response.write("NIHintranet="+NIHintranet)
' do nothing...
else%>
|
Connexin Regulation of Cell Motility |
|
|
<%
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%>
|
Connexin Protein Interactions and Cell Signaling |
|
|
<%
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%>
|
Mouse ENU Mutagenesis |
|
|
<%
end if
intranet = "No"
%>
|
|
<%
if NIHintranet = "False" and intranet = "Yes" then
'response.write("NIHintranet="+NIHintranet)
' do nothing...
else%>
|
Mouse Heart Atlas |
|
|
<%
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%>
|
Photo/Movie Gallery |
|
|
<%
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%>
|
Protocols |
|
|
<%
end if
intranet = "No"
%>
|
|
<%
if NIHintranet = "False" and intranet = "Yes" then
'response.write("NIHintranet="+NIHintranet)
' do nothing...
else%>
|
LDB Staff |
|
|
<%
end if
intranet = "No"
%>
<%
if NIHintranet = "False" and intranet = "Yes" then
'response.write("NIHintranet="+NIHintranet)
' do nothing...
else%>
|
|
<%
end if
intranet = "No"
%>
|
|
|
|
|
|
|
Department
of Health and Human Services
National
Institutes of Health
National
Heart, Lung, and Blood Institute