<% Dim id Dim canton 'getting the id id = Request.QueryString("id") 'establishing connection to DB Dim DBPath Dim Conn Dim RSPreins Dim RSUrls Dim RSTypoUrls Dim RSUrlId Dim RSTypos Dim RSTypoId 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") Set RSUrls=Server.CreateObject("ADODB.RecordSet") Set RSTypoUrls=Server.CreateObject("ADODB.RecordSet") Set RSTypos=Server.CreateObject("ADODB.RecordSet") SQL="SELECT * FROM liste_biblios WHERE Id="&id&"" RSPreins.Open SQL, Conn 'cantonale identification If RSPreins("BE") = true then canton = "BERNE" end if If RSPreins("FR") = true then canton = "FRIBOURG" end if If RSPreins("GE") = true then canton = "GENEVE" end if If RSPreins("JU") = true then canton = "JURA" end if If RSPreins("NE") = true then canton = "NEUCHATEL" end if If RSPreins("VD") = true then canton = "VAUD" end if If RSPreins("VS") = true then canton = "VALAIS" end if SQLUrls="SELECT * FROM Url WHERE IdBiblios="&id&"" RSUrls.Open SQLUrls, Conn %> Bibliomedia Schweiz Suisse Svizzera
Guide des bibliothèques    RETOUR
<% if not RSPreins("Remarques") = "" then %> <% else %> <%end if%>
<% if not RSPreins("Site_web") = "" then %> <% else %><%end if%> <% if not RSPreins("Email") = "" then %> <% else %><%end if%> <% if not RSPreins("System") = "" then %> <% else %><%end if%>
 
<% = RSPreins("Nom")%>
<% if not RSPreins("Section") = "" then %> <% else %><%end if%>
<% = RSPreins("Adresse")%>
<% = RSPreins("NPA")%> <% = RSPreins("Localite")%>
<% = RSPreins("Section")%> 
<% if not RSPreins("Telephone") = "" then %> <% else %><%end if%> <% if not RSPreins("Fax") = "" then %> <% else %><%end if%>
Tel <% = RSPreins("Telephone")%>
Fax <% = RSPreins("Fax")%>
  <% = canton%>
Site web 
"><% = RSPreins("Site_web")%>
Email 
"><% = RSPreins("Email")%>
 
Système informatique 
<% = RSPreins("System")%>
<% if RSPreins("Principale") = true then %>

Horaires

LUNDI   MARDI   MERCREDI   JEUDI   VENDREDI   SAMEDI
<% = RSPreins("Horaire_lundi")%>   <% = RSPreins("Horaire_mardi")%>   <% = RSPreins("Horaire_mercredi")%>   <% = RSPreins("Horaire_jeudi")%>   <% = RSPreins("Horaire_vendredi")%>   <% = RSPreins("Horaire_samedi")%>
<% else %>   <%end if%>

Remarques

<% = RSPreins("Remarques")%>
 
<% RSPreins.Close RSUrls.Close Conn.Close Set Conn=Nothing %>