<%@LANGUAGE="VBSCRIPT"%> <%Response.Expires=0%> <% set conn = server.createobject("ADODB.Connection") conn.open "driver={microsoft access driver (*.mdb)}; dbq=" & server.mappath("system\JDATA.mdb") %> Mitglieder

Mitgliederliste der Vereinigung der Deutschen Medizinischen Fach- und Standespresse e. V.

 Diese Seite drucken


Diese Liste enthält nur die Namen, Funktionen und Spezialgebiete der Mitglieder. Eine Adressen- und E-Mail-Liste kann unter Angabe Ihres persönlichen Passwortes hier geöffnet werden.

 

Mitgliederzahl Gruppe I und Gruppe II: <% sql = "SELECT count(*) as anz FROM tblJAdr WHERE int_Grp = 201 OR int_Grp = 202" set rs = conn.execute(sql) response.write(rs("anz")) ' ***zählt die Mitglieder in Gruppe 1 und 2 %>

 

 

Ehrenmitglieder:

 

<% sql = "SELECT str_Name, str_Vorname, str_Titel, str_Gruppe_Jour, str_Spez_Jour_I_1, str_Spez_Jour_I_2, str_Spez_Jour_II_1, str_Spez_Jour_II_2, str_Spez_Jour_III_1, str_Spez_Jour_III_2, str_Ort, int_Grp FROM tblJAdr WHERE int_Grp = 203 ORDER BY str_Name" 'Ehrenmitglieder set rs = conn.execute(sql) while not rs.eof %>

<% response.write(rs("str_Name")) if (rs("str_Name")) <>"" then response.write(", ") end if %> <% response.write(rs("str_Vorname")) if (rs("str_Vorname")) <>"" then response.write(", ") end if response.write(rs("str_Titel")) if (rs("str_Titel")) <>"" then response.write(", ") end if response.write(rs("str_Gruppe_Jour")) if (rs("str_Gruppe_Jour")) <>"" then response.write(", ") end if response.write(rs("str_Spez_Jour_I_1")) if (rs("str_Spez_Jour_I_1")) <>"" then response.write(", ") end if response.write(rs("str_Spez_Jour_I_2")) if (rs("str_Spez_Jour_I_2")) <>"" then response.write(", ") end if response.write(rs("str_Spez_Jour_II_1")) if (rs("str_Spez_Jour_II_1")) <>"" then response.write(", ") end if response.write(rs("str_Spez_Jour_II_2")) if (rs("str_Spez_Jour_II_2")) <>"" then response.write(", ") end if response.write(rs("str_Spez_Jour_III_1")) if (rs("str_Spez_Jour_III_1")) <>"" then response.write(", ") end if response.write(rs("str_Spez_Jour_III_2")) if (rs("str_Spez_Jour_III_2")) <>"" And (rs("str_Ort")) <>"" then response.write(", ") end if response.write(rs("str_Ort")) response.write("
") response.write("
") rs.movenext wend rs.close set rs = nothing %>

 

Gruppe I(Herausgeber, Redakteure, Journalisten mit regelmäßiger medizinischer und/oder gesundheitspolitischer Berichterstattung) zum Seitenanfang

 

<% sql = "SELECT str_Name, str_Vorname, str_Titel, str_Gruppe_Jour, str_Spez_Jour_I_1, str_Spez_Jour_I_2, str_Spez_Jour_II_1, str_Spez_Jour_II_2, str_Spez_Jour_III_1, str_Spez_Jour_III_2, str_Ort, int_Grp FROM tblJAdr WHERE int_Grp = 201 ORDER BY str_Name" 'Gruppe 1 set rs = conn.execute(sql) while not rs.eof %>

<% response.write(rs("str_Name")) if (rs("str_Name")) <>"" then response.write(", ") end if %> <% response.write(rs("str_Vorname")) if (rs("str_Vorname")) <>"" then response.write(", ") end if response.write(rs("str_Titel")) if (rs("str_Titel")) <>"" then response.write(", ") end if response.write(rs("str_Gruppe_Jour")) if (rs("str_Gruppe_Jour")) <>"" then response.write(", ") end if response.write(rs("str_Spez_Jour_I_1")) if (rs("str_Spez_Jour_I_1")) <>"" then response.write(", ") end if response.write(rs("str_Spez_Jour_I_2")) if (rs("str_Spez_Jour_I_2")) <>"" then response.write(", ") end if response.write(rs("str_Spez_Jour_II_1")) if (rs("str_Spez_Jour_II_1")) <>"" then response.write(", ") end if response.write(rs("str_Spez_Jour_II_2")) if (rs("str_Spez_Jour_II_2")) <>"" then response.write(", ") end if response.write(rs("str_Spez_Jour_III_1")) if (rs("str_Spez_Jour_III_1")) <>"" then response.write(", ") end if response.write(rs("str_Spez_Jour_III_2")) if (rs("str_Spez_Jour_III_2")) <>"" And (rs("str_Ort")) <>"" then response.write(", ") end if response.write(rs("str_Ort")) response.write("
") response.write("
") rs.movenext wend rs.close set rs = nothing %>

 

Gruppe II(Medizinjournalisten mit nebenberuflicher Tätigkeit aus den Bereichen ÖA/PR, Unternehmenszeitschriften und sonstige Medienarbeit) zum Seitenanfang

 

<% sql = "SELECT str_Name, str_Vorname, str_Titel, str_Gruppe_Jour, str_Spez_Jour_I_1, str_Spez_Jour_I_2, str_Spez_Jour_II_1, str_Spez_Jour_II_2, str_Spez_Jour_III_1, str_Spez_Jour_III_2, str_Ort, int_Grp FROM tblJAdr WHERE int_Grp = 202 ORDER BY str_Name" 'Gruppe 2 set rs = conn.execute(sql) while not rs.eof %>

<% response.write(rs("str_Name")) if (rs("str_Name")) <>"" then response.write(", ") end if %> <% response.write(rs("str_Vorname")) if (rs("str_Vorname")) <>"" then response.write(", ") end if response.write(rs("str_Titel")) if (rs("str_Titel")) <>"" then response.write(", ") end if response.write(rs("str_Gruppe_Jour")) if (rs("str_Gruppe_Jour")) <>"" then response.write(", ") end if response.write(rs("str_Spez_Jour_I_1")) if (rs("str_Spez_Jour_I_1")) <>"" then response.write(", ") end if response.write(rs("str_Spez_Jour_I_2")) if (rs("str_Spez_Jour_I_2")) <>"" then response.write(", ") end if response.write(rs("str_Spez_Jour_II_1")) if (rs("str_Spez_Jour_II_1")) <>"" then response.write(", ") end if response.write(rs("str_Spez_Jour_II_2")) if (rs("str_Spez_Jour_II_2")) <>"" then response.write(", ") end if response.write(rs("str_Spez_Jour_III_1")) if (rs("str_Spez_Jour_III_1")) <>"" then response.write(", ") end if response.write(rs("str_Spez_Jour_III_2")) if (rs("str_Spez_Jour_III_2")) <>"" And (rs("str_Ort")) <>"" then response.write(", ") end if response.write(rs("str_Ort")) response.write("
") response.write("
") rs.movenext wend rs.close set rs = nothing %> zum Seitenanfang

  
<% conn.close set conn = nothing %>