%@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 %>
|
Mitgliederliste der Vereinigung der Deutschen Medizinischen Fach- und Standespresse e. V. |
|
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(" |
| 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(" |
| 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(" |