Resources > Small-N People
Small-N People
This page contains a list compiled from the address database maintained by Benoît Rihoux and Damien Bol at the UCLouvain. It reports the academic and research fellows worldwide who are interesting in QCA broadly speaking or who have applied QCA to one specific research. It is impossible for us alone, at the COMPASSS co-ordination at the UCLouvain, to keep track of all small-N people. Only with your co-operation we will be able to exhaustively cover all people linked to QCA broadly speaking. If you wish to report yourself or suggest corrections/complements (e.g. institution, email address etc.), please send a message to Damien Bol
<%
function adresse(chaine)
chaine_tmp=trim(chaine)
' Response.Write(chaine)
cont=true
while cont
cont=false
if left(chaine_tmp,1)="#" then
chaine_tmp=right(chaine_tmp, len(chaine_tmp)-1)
cont=true
end if
wend
cont=true
while cont
cont=false
if right(chaine_tmp,1)="#" then
chaine_tmp=left(chaine_tmp, len(chaine_tmp)-1)
cont=true
end if
wend
cont=true
compar="mailto: "
lencompar=len(compar)
while cont
cont=false
longueur=len(chaine_tmp)
pos=instr(1,chaine_tmp,compar)
if pos>0 then
cont=true
if pos=1 then
chaine_tmp=right(chaine_tmp,longueur-lencompar)
else
chaine_tmp=left(chaine_tmp,pos-1)
end if
end if
wend
cont=true
while cont
cont=false
longueur=len(chaine_tmp)
pos=instr(1,chaine_tmp,"#")
if pos>0 then
cont=true
if pos=1 then
chaine_tmp=right(chaine_tmp,longueur-1)
else
chaine_tmp=left(chaine_tmp,pos-1)
end if
end if
wend
adresse=chaine_tmp
end function
dim fso
dim fs
conn_string=Server.MapPath(".") & "/" & "smalln.mdb"
set fso = Server.CreateObject("Scripting.FileSystemObject")
set fs = fso.GetFile(conn_string)
filedate=fs.datelastmodified
'Response.Write(filedate)
dim conn_small_N
set conn_small_N = Server.CreateObject("ADODB.Connection")
dim cmd_adresses
set cmd_adresses = Server.CreateObject("ADODB.Command")
dim rs_adresses
set rs_adresses = Server.CreateObject("ADODB.Recordset")
'conn_string="D:\Documents.GXL\Access\SmallN.mdb"
conn_string=Server.MapPath(".") & "/" & "SmallN.mdb"
conn_small_N.Provider = "Microsoft.Jet.OLEDB.4.0"
conn_small_N.Open conn_string
rs_adresses.CursorLocation = adUseClient
cmd_adresses.ActiveConnection = conn_small_N
Fichier_Adresses="Adresses"
SqlTxt="SELECT * "
SqlTxt=SqlTxt & "FROM " & Fichier_Adresses & " "
ordre="Nom, Prenom"
str_where="[adresses].[mots_cles] LIKE " & "'qca'" & ""
str_where="instr(1,[adresses].[mots_cles],'qca')>0 "
str_where=str_where & "and instr(1,[adresses].[mots_cles],'pasqca')=0 "
SqlTxt=SqlTxt & " WHERE " & str_where
SqlTxt=SqlTxt & " ORDER BY " & ordre
SqlTxt=trim(SqlTxt)
test=true
test=false
if not test then
cmd_adresses.CommandText=SqlTxt
set rs_adresses=cmd_adresses.Execute
else
Response.Write(SqlTxt)
end if
heure=true
heure=false
%>
(list updated on <%=formatdatetime(date-2,2)%><% if heure then Response.Write(" at " & formatdatetime(filedate,4) & "")%>)
<%
nb_rec=0
if not test then
while not rs_adresses.EOF
nb_rec=nb_rec+1
if nb_rec=1 then
%>
|
Name
|
Given name
|
Institutional affiliation
|
Domain
|
E-Mail
|
<%
'
'
%> <%end if%>
|
<%
Variable="Nom"
session(Variable)=" "
temp=""
if not isnull(rs_adresses(Variable)) then
temp=trim(rs_adresses(Variable))
if len(temp)>0 then
if len(temp)=1 then
session(Variable)=" "
temp=""
else
session(Variable)=temp
end if
else
session(Variable)=" "
end if
else
session(Variable)=" "
end if
response.write(session(Variable))
%>
|
<%
Variable="Prenom"
session(Variable)=" "
temp=""
if not isnull(rs_adresses(Variable)) then
temp=trim(rs_adresses(Variable))
if len(temp)>0 then
if len(temp)=1 then
session(Variable)=" "
temp=""
else
session(Variable)=temp
end if
else
session(Variable)=" "
end if
else
session(Variable)=" "
end if
response.write(session(Variable))
%>
|
<%
Variable="Universite"
session(Variable)=" "
temp=""
if not isnull(rs_adresses(Variable)) then
temp=trim(rs_adresses(Variable))
if len(temp)>0 then
if len(temp)=1 then
session(Variable)=" "
temp=""
else
session(Variable)=temp
end if
else
session(Variable)=" "
end if
else
session(Variable)=" "
end if
response.write(session(Variable))
%>
|
<%
Variable="Domaine"
session(Variable)=" "
temp=""
if not isnull(rs_adresses(Variable)) then
temp=trim(rs_adresses(Variable))
if len(temp)>0 then
if len(temp)=1 then
session(Variable)=" "
temp=""
else
session(Variable)=temp
end if
else
session(Variable)=" "
end if
else
session(Variable)=" "
end if
response.write(session(Variable))
%>
|
<%
Variable="E-Mail"
session(Variable)=" "
temp=""
if not isnull(rs_adresses(Variable)) then
temp=trim(rs_adresses(Variable))
if len(temp)>0 then
if len(temp)=1 then
session(Variable)=" "
temp=""
else
session(Variable)=temp
end if
else
session(Variable)=" "
end if
else
session(Variable)=" "
end if
if len(temp)>0 then
Response.Write("")
Response.Write(affich)
Response.Write("")
else
Response.Write(adresse(session(Variable)))
end if
%>
|
<%
rs_adresses.MoveNext
wend
end if
%>
