<%@LANGUAGE="VBSCRIPT"%> <%Response.Expires=0%> <% set connection_Ehrenmitglieder = server.createobject("ADODB.Connection") 'connection_Ehrenmitglieder.open "Driver={Microsoft Excel Driver (*.xls)}; dbq=" & server.mappath("w05a0201_db\FSP_Ehrenmitglieder.xls") connection_Ehrenmitglieder.open = vn_Mitglieder_Ehrenmitglieder_STRING set connection_FSP_Grupppe1 = server.createobject("ADODB.Connection") 'connection_FSP_Grupppe1.open "Driver={Microsoft Excel Driver (*.xls)}; dbq=" & server.mappath("w05a0201_db\FSP_Gruppe1.xls") connection_FSP_Grupppe1.open = vn_Mitglieder_Gruppe1_STRING set connection_FSP_Grupppe2 = server.createobject("ADODB.Connection") 'connection_FSP_Grupppe2.open "Driver={Microsoft Excel Driver (*.xls)}; dbq=" & server.mappath("w05a0201_db\FSP_Gruppe2.xls") connection_FSP_Grupppe2.open = vn_Mitglieder_Gruppe2_STRING %> 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 `FSP_Gruppe1$` " 'sql = "SELECT count(*) as anz FROM Datenbank " set rs_Gruppe1 = connection_FSP_Grupppe1.execute(sql) sql = "SELECT count(*) as anz FROM `FSP_Gruppe2$` " 'sql = "SELECT count(*) as anz FROM Datenbank " set rs_Gruppe2 = connection_FSP_Grupppe2.execute(sql) response.write(rs_Gruppe1("anz")+ rs_Gruppe2("anz")) ' ***zählt die Mitglieder in Gruppe 1 und 2 %>

 

 


Ehrenmitglieder:

 

<% sql = "SELECT A0004, A0005, A0022, A0029, A0028, A0014, M0001 FROM `FSP_Ehrenmitglieder$` ORDER BY A0004" 'sql = "SELECT A0004, A0005, A0022, A0029, A0028, A0014, M0001 FROM Datenbank ORDER BY A0004" '**Ehrenmitglieder set rs = connection_Ehrenmitglieder.execute(sql) while not rs.eof %>

<% response.write(rs("A0004")) '**str_Name if Trim(rs("A0004")) <>"" then response.write(", ") end if %> <% response.write(rs("A0005")) '**str_Vorname if Trim(rs("A0005")) <>"" then response.write(", ") end if response.write(rs("A0022")) '**str_Titel if Trim(rs("A0022")) <> "" then response.write(", ") end if response.write(rs("A0029")) '**str_Gruppe_Jour if Trim(rs("A0029")) <>"" then response.write(", ") end if '** response.write(rs("A0028")) '** str_Spez_Jour_I_1 '** if Trim(rs("A0028")) <>"" then '** response.write(", ") '** end if response.write(rs("A0014")) '**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)

 

<% '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" sql = "SELECT A0004, A0005, A0022, A0029, A0028, A0014, M0001 FROM `FSP_Gruppe1$` ORDER BY A0004" 'sql = "SELECT A0004, A0005, A0022, A0029, A0028, A0014, M0001 FROM Datenbank ORDER BY A0004" 'Gruppe 1 'set rs = connection_FSP_Grupppe1.execute(sql) set rs = connection_FSP_Grupppe1.execute(sql) while not rs.eof %>

<% response.write(rs("A0004")) '**str_Name if Trim(rs("A0004")) <>"" then response.write(", ") end if %> <% response.write(rs("A0005")) '**str_Vorname if Trim(rs("A0005")) <>"" then response.write(", ") end if response.write(rs("A0022")) '**str_Titel if Trim(rs("A0022")) <>"" then response.write(", ") end if response.write(rs("A0029")) '**str_Gruppe_Jour if Trim(rs("A0029")) <>"" then response.write(", ") end if response.write(rs("A0028")) '**str_Spez_Jour_I_1 if Trim(rs("A0028")) <>"" then response.write(", ") end if response.write(rs("A0014")) '**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)

 

<% '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" sql = "SELECT A0004, A0005, A0022, A0029, A0028, A0014, M0001 FROM `FSP_Gruppe2$` ORDER BY A0004" 'sql = "SELECT A0004, A0005, A0022, A0029, A0028, A0014, M0001 FROM Datenbank ORDER BY A0004" 'Gruppe 2 set rs = connection_FSP_Grupppe2.execute(sql) while not rs.eof %>

<% response.write(rs("A0004")) '**str_Name if Trim(rs("A0004")) <>"" then response.write(", ") end if %><% response.write(rs("A0005")) '**str_Vorname if Trim(rs("A0005")) <>"" then response.write(", ") end if response.write(rs("A0022")) '**str_Titel if Trim(rs("A0022")) <>"" then response.write(", ") end if response.write(rs("A0029")) '**str_Gruppe_Jour if Trim(rs("A0029")) <>"" then response.write(", ") end if response.write(rs("A0028")) '**str_Spez_Jour_I_1 if Trim(rs("A0028")) <>"" then response.write(", ") end if response.write(rs("A0014")) '**str_Ort response.write("
") response.write("
") rs.movenext wend rs.close set rs = nothing %>

 
<% connection_Ehrenmitglieder.close set connection_Ehrenmitglieder = nothing connection_FSP_Grupppe1.close set connection_FSP_Grupppe1 = nothing connection_FSP_Grupppe2.close set connection_FSP_Grupppe2 = nothing %>