<%
Dim Person, Name
Person = Request.QueryString("Person")
Select Case Person
' --- Präsidium
Case "hofmann"
Name = "an Prof. Senator e.h. Dr.-Ing. Hans L. Hofmann"
Case "lemmer"
Name = "an Dr. Uwe Lemmer"
Case "puchta"
Name = "an Dr. Ralph Puchta"
Case "jukrueger"
Name = "an Jürgen Krüger"
Case "dhoelzl"
Name = "an Dr. Dieter Hölzl"
Case "lauterbach"
Name = "an Prof. Dr. Thomas Lauterbach"
Case "nelkenbrecher"
Name = "an den stellvertretenden Leiter der AG "Internationales Jahr der Astronomie" Marco Nelkenbrecher"
Case "karlson"
Name = "an Björn Karlson"
Case "hommes"
Name = "an Dr. Nico van Eikema Hommes"
' --- Sonstige
Case "rbabo"
Name = "wegen RB-Abonnement"
Case "regiomontanusbote"
Name = "an das RB-Team der NAA"
Case "presse"
Name = "- Pressekontakt"
Case "webmaster"
Name = "an den Webmaster"
Case "info"
Name = "an die NAG"
Case "praesidium"
Name = "an das Präsidium"
Case "guertler"
Name = "an den Vorsitzenden des Kuratoriums Prof. Dipl.-Ing. em. Georg Guertler"
' --- AG Geschichte
Case "gaab"
Name = "an den Leiter der AG Astronomiegeschichte Hans Gaab"
Case "christie"
Name = "an Tony Christie"
Case "engelhardt"
Name = "an Ludwig Engelhardt"
Case "goerz"
Name = "an Prof. Dr. Günther Görz"
Case "inhetveen"
Name = "an Dr. Rüdiger Inhetveen"
Case "kett"
Name = "an Siegfried Kett"
Case "leich"
Name = "an den Leiter der AG "Internationales Jahr der Astronomie" Pierre Leich"
Case "loeffladt"
Name = "an Günter Löffladt"
Case "matthaeus"
Name = "an Dr. Klaus Matthäus"
Case "schmidt"
Name = "an Dr. Eckehard Schmidt"
Case "thiel"
Name = "an Prof. Dr. Christian Thiel"
' --- AG IYA
Case "graeter"
Name = "an Matthias Gräter"
Case "heber"
Name = "an Prof. Dr. Ulrich Heber"
Case "jhoelzl"
Name = "an Johannes Hölzl"
Case "foesel"
Name = "an Dr. Angela Fösel"
Case "pritsching"
Name = "an Volker Pritsching"
Case "loeffladt"
Name = "an Günter Löffladt"
Case "engelhardt"
Name = "an Ludwig Engelhardt"
Case "goerz"
Name = "an Prof. Günther Görz"
Case "jukrueger"
Name = "an Jürgen Krüger"
Case "jakrueger"
Name = "an Jasmin Krüger"
Case "sadurski"
Name = "an Jürgen Sadurski"
Case "cnelkenbrecher"
Name = "an Claudia Nelkenbrecher"
Case "chofmann"
Name = "an Christoph Hofmann"
Case "wagner"
Name = "an Chriska Wagner"
Case "sommer"
Name = "an Torsten Sommer MA"
Case "maendl"
Name = "an Prof. Dr. Matthias Mändel"
Case "schule"
Name = "an die AG Schule"
Case "ausstellung"
Name = "an die AG Wanderausstellung"
Case "presse"
Name = "wegen Pressekontakt"
Case "herrmann"
Name = "an Prof. Dr. Dieter B. Herrmann"
' --- Sonst
Case Else
Name = "die NAG"
End Select
If Person = Empty Then Person = "info"
%>
