<% Dim affiche Dim QueryRecherche Dim FirstNomChar affiche = Request.QueryString("affiche") QueryRecherche = Request.Form("recherche") Request.Form("login") %> Bibliomedia Schweiz Suisse Svizzera

Consulter le guide des bibliothèques de lecture publique de Suisse Romande

 
Recherche par mot-clé
   
Afficher les adresses des bibliothèques
Demande de correction(s)
Demander l'ajout d'une biliothèque
Afficher toutes les bibliothèques
Tri par canton
BE ¦ FR ¦ GE ¦ JU ¦ NE ¦ VD ¦ VS
Tri ordre alphabétique des localités
A ¦ B ¦ C ¦ D ¦ E ¦ F ¦ G ¦ H ¦ I ¦ J ¦ K ¦ L ¦ M ¦ N ¦ O ¦ P ¦ Q ¦ R ¦ S ¦ T ¦ U ¦ V ¦ W ¦ X ¦ Y ¦ Z
<% if Session("Authorization") <> true then%> <% else %> <% end if %>
Guide des bibliothèques
Login:   Pass:  

Résultat(s) de la recherche

<% if Session("Authorization") = true then %> <% end if %> <% Dim DBPath Dim Conn Dim RSPreins DBPath = Left (Request.ServerVariables ("PATH_TRANSLATED"), InStrRev (Request.ServerVariables ("PATH_TRANSLATED"), "\")) & "odbc\liste_biblios.mdb" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DBQ="& DBPath &";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;Password=ikki" Set RSPreins=Server.CreateObject("ADODB.RecordSet") if affiche = "" then 'Search engine if QueryRecherche = "" then SQL="SELECT * FROM liste_biblios ORDER BY Localite ASC" else QueryRecherche = ("%" + QueryRecherche + "%") SQL="SELECT * FROM liste_biblios WHERE Nom LIKE '"&QueryRecherche&"' OR Localite LIKE '"&QueryRecherche&"' OR Section LIKE '"&QueryRecherche&"' OR Adresse LIKE '"&QueryRecherche&"' OR NPA LIKE '"&QueryRecherche&"' OR System LIKE '"&QueryRecherche&"' OR Telephone LIKE '"&QueryRecherche&"' OR Fax LIKE '"&QueryRecherche&"' ORDER BY Localite ASC" end if else 'GETTING CANTON ORDER if affiche = "BE" then SQL="SELECT * FROM liste_biblios WHERE BE = true ORDER BY Localite ASC" end if if affiche = "FR" then SQL="SELECT * FROM liste_biblios WHERE FR = true ORDER BY Localite ASC" end if if affiche = "GE" then SQL="SELECT * FROM liste_biblios WHERE GE = true ORDER BY Localite ASC" end if if affiche = "JU" then SQL="SELECT * FROM liste_biblios WHERE JU = true ORDER BY Localite ASC" end if if affiche = "NE" then SQL="SELECT * FROM liste_biblios WHERE NE = true ORDER BY Localite ASC" end if if affiche = "VD" then SQL="SELECT * FROM liste_biblios WHERE VD = true ORDER BY Localite ASC" end if if affiche = "VS" then SQL="SELECT * FROM liste_biblios WHERE VS = true ORDER BY Localite ASC" end if 'GETTING ALPHA ORDER if affiche >= "a" and affiche <= "z" then affiche = affiche + "%" SQL="SELECT * FROM liste_biblios WHERE Localite LIKE '"&affiche&"' ORDER BY Localite ASC" end if end if RSPreins.Open SQL, Conn Do Until RSPreins.EOF %> <% if Session("Authorization") = true then %> <% end if %> <% RSPreins.MoveNext Loop RSPreins.Close Conn.Close Set Conn=Nothing %>
NOM SECTION NPA LOCALITEADMIN
<% = RSPreins("Nom")%> <% = RSPreins("Section")%> <% = RSPreins("NPA")%> "><% = RSPreins("Localite")%>">Editer / ">Effacer