Person 2: <% response.write(selection(rel2name))%>
<% response.write("Relationship is: ") %> <% response.write(relationship) end if %>
Click Here to use a standard Relationship Chart
<% Dim relchart(10,10) Dim selection(10) Dim rel1name Dim rel2name selection(2)="Son/Daughter" selection(3)="Grandson/Granddaughter" selection(4)="Great Grandson/Granddaughter" selection(5)="2x Great Grandson/Granddaughter" selection(6)="3x Great Grandson/Granddaughter" selection(7)="4x Great Grandson/Granddaughter" selection(8)="5x Great Grandson/Granddaughter" selection(9)="6x Great Grandson/Granddaughter" selection(10)="7x Great Grandson/Granddaughter" relchart(2,2)="Brother or Sister" relchart(2,3)="Niece or Nephew" relchart(2,4)="Grand Niece or Nephew" relchart(2,5)="Great Grand Niece or Nephew" relchart(2,6)="2x Great Grand Niece or Nephew" relchart(2,7)="3x Great Grand Niece or Nephew" relchart(2,8)="4x Great Grand Niece or Nephew" relchart(2,9)="5x Great Grand Niece or Nephew" relchart(2,10)="6x Great Grand Niece or Nephew" relchart(3,2)="Niece or Nephew" relchart(3,3)="First Cousin" relchart(3,4)="First Cousin Once Removed" relchart(3,5)="First Cousin Twice Removed" relchart(3,6)="First Cousin Three Times Removed" relchart(3,7)="First Cousin Four Times Removed" relchart(3,8)="First Cousin Five Times Removed" relchart(3,9)="First Cousin Six Times Removed" relchart(3,10)="First Cousin Seven Times Removed" relchart(4,2)="Grand Niece or Nephew" relchart(4,3)="First Cousin Once Removed" relchart(4,4)="Second Cousin" relchart(4,5)="Second Cousin Once Removed" relchart(4,6)="Second Cousin Twice Removed" relchart(4,7)="Second Cousin Three Times Removed" relchart(4,8)="Second Cousin Four Times Removed" relchart(4,9)="Second Cousin Five Times Removed" relchart(4,10)="Second Cousin Six Times Removed" relchart(5,2)="Great Grand Niece or Nephew" relchart(5,3)="First Cousin Twice Removed" relchart(5,4)="Second Cousin Once Removed" relchart(5,5)="Third Cousin" relchart(5,6)="Third Cousin Once Removed" relchart(5,7)="Third Cousin Twice Removed" relchart(5,8)="Third Cousin Three Times Removed" relchart(5,9)="Third Cousin Four Times Removed" relchart(5,10)="Third Cousin Five Times Removed" relchart(6,2)="2x Great Grand Niece or Nephew" relchart(6,3)="First Cousin Three Times Removed" relchart(6,4)="Second Cousin Twice Removed" relchart(6,5)="Third Cousin Once Removed" relchart(6,6)="Fourth Cousin" relchart(6,7)="Fourth Cousin Once Removed" relchart(6,8)="Fourth Cousin Twice Removed" relchart(6,9)="Fourth Cousin Three Times Removed" relchart(6,10)="Fourth Cousin Four Times Removed" relchart(7,2)="3x Great Grand Niece or Nephew" relchart(7,3)="First Cousin Four Times Removed" relchart(7,4)="Second Cousin Three Times Removed" relchart(7,5)="Third Cousin Twice Removed" relchart(7,6)="Second Cousin Once Removed" relchart(7,7)="Fifth Cousin" relchart(7,8)="Fifth Cousin Once Removed" relchart(7,9)="Fifth Cousin Twice Removed" relchart(7,10)="Fifth COusin three Times Removed" relchart(8,2)="4x Great Grand Niece or Nephew" relchart(8,3)="First Cousin Five Times Removed" relchart(8,4)="Second Cousin Four Times Removed" relchart(8,5)="Third Cousin Three Times Removed" relchart(8,6)="Second Cousin Twice Removed" relchart(8,7)="First Cousin Once Removed" relchart(8,8)="Sixth Cousin" relchart(8,9)="Sixth Cousin Once Removed" relchart(8,10)="Sixth Cousin Twice Removed" relchart(9,2)="5x Great Grand Niece or Nephew" relchart(9,3)="First Cousin Six Times Removed" relchart(9,4)="Second Cousin Five Times Removed" relchart(9,5)="Third Cousin Four Times Removed" relchart(9,6)="Fourth Cousin Three Times Removed" relchart(9,7)="Third Cousin Twice Removed" relchart(9,8)="Second Cousin Once Removed" relchart(9,9)="Seventh Cousin" relchart(9,10)="Seventh Cousin Once Removed" relchart(10,2)="6x Great Gran Niece or Nephew" relchart(10,3)="First Cousin Seven Times Removed" relchart(10,4)="Second Cousin Six Times Removed" relchart(10,5)="Third Cousin Five Times Removed" relchart(10,6)="Fourth Cousin Four Times Removed" relchart(10,7)="Fifth Cousin Three Times Removed" relchart(10,8)="Sixth Cousin Twice Removed" relchart(10,9)="Seventh Cousin Once Removed" relchart(10,10)="Eighth Cousin" rel1name=Request.Form("rel1") rel2name=Request.Form("rel2") if rel1name<>"" Then relationship=relchart(rel1name,rel2name) %> You Selected:
Person 1:
<% response.write(selection(rel1name))%>
<%
response.write("Relationship is: ")
%>
<%
response.write(relationship)
end if
%>
Click Here to use
a standard Relationship Chart
Person 2:
<% response.write(selection(rel2name))%>