<% dim cn dim rs dim sql set cn = Server.CreateObject("ADODB.Connection") set rs = Server.CreateObject("ADODB.RecordSet") cn.Open constr cn.CursorLocation = 3 %> De pierre, de bois, de brique - Des maisons à visiter
Accueil
Liens Recherche À propos du site Pour nous joindre
Carte géoclimatique du Québec
La maison Lamontagne
Des maisons à visiter
Des maisons à visiter  

Nous vous proposons deux façons de trouver les maisons à visiter :

  • Accédez à la carte et cliquez sur une région pour avoir la liste des maisons à visiter dans cette région.
  • Vous pouvez aussi choisir de faire une recherche de maisons en sélectionnant un ou plusieurs thèmes ou régions. Le résultat de votre recherche s'affichera au bas de la page.


 

Thèmes

La maison rurale en Nouvelle-France

La maison des notables

La maison urbaine en Nouvelle-France

Les maisons de colonisation

La maison londonienne

De maison en commerce

Villas et villégiatures

War-time housing et bungalow

La maison rurale du Bas-Canada

Les maisons d'aujourd'hui

La maison des faubourgs

Les maisons de demain

L'habitat ouvrier urbain

 

 


Régions

Îles-de-la-Madeleine

Laurentides

Gaspésie

Montréal

Bas-Saint-Laurent

Outaouais

Québec

Abitibi-Témiscamingue

Charlevoix

Saguenay—Lac-Saint-Jean

Chaudière-Appalaches

Manicouagan (Côte-Nord)

Mauricie

Duplessis (Côte-Nord)

Cantons-de-l'Est

Nord-du-Québec / Baie James

Montérégie

Laval

Lanaudière

Centre-du-Québec


<% if request.QueryString("posted") <> "" AND (Request.QueryString("regions") <> "" OR Request.QueryString("idTheme") <> "") then sql = "SELECT id, nom FROM maison WHERE " if request.QueryString("idTheme") <> "" then sql = sql & "id_Theme IN (" & Request.QueryString("idTheme") & ")" end if if request.QueryString("idTheme") <> "" AND Request.QueryString("regions") <> "" then sql = sql & " AND " end if if Request.QueryString("regions") <> "" THEN sql = sql & "id_region in (" & request.QueryString("regions") & ")" end if rs.Open sql, cn, 0, 4 %>

Résultat de recherche

<% for i = 1 to rs.RecordCount %> <% rs.MoveNext next if rs.RecordCount = 0 then %> <% end if rs.Close %>

'); return false;"><%=rs("nom")%>

Aucune maison trouvée.

<% end if %>
 
 
   
<% cn.Close set rs = nothing set cn = nothing %>