Origin'Art - Musées, galeries et commissaires-priseurs...

<%@LANGUAGE="VBSCRIPT"%> <% set actuparis1 = Server.CreateObject("ADODB.Recordset") actuparis1.ActiveConnection = "DRIVER={Microsoft Access Driver (*.mdb)};" &"DBQ=" & Server.MapPath("..") &"/Database/base_donnees.mdb" actuparis1.Source = "SELECT titre FROM expositions WHERE n°auto = 1" actuparis1.CursorType = 0 actuparis1.CursorLocation = 2 actuparis1.LockType = 3 actuparis1.Open actuparis1_numRows = 0 %> <% set actuparis2 = Server.CreateObject("ADODB.Recordset") actuparis2.ActiveConnection = "DRIVER={Microsoft Access Driver (*.mdb)};" &"DBQ=" & Server.MapPath("..") &"/Database/base_donnees.mdb" actuparis2.Source = "SELECT titre FROM expositions WHERE n°auto = 2" actuparis2.CursorType = 0 actuparis2.CursorLocation = 2 actuparis2.LockType = 3 actuparis2.Open actuparis2_numRows = 0 %> <% set actu_nord = Server.CreateObject("ADODB.Recordset") actu_nord.ActiveConnection = "DRIVER={Microsoft Access Driver (*.mdb)};" &"DBQ=" & Server.MapPath("..") &"/Database/base_donnees.mdb" actu_nord.Source = "SELECT titre FROM expositions_nord WHERE n°auto = 1" actu_nord.CursorType = 0 actu_nord.CursorLocation = 2 actu_nord.LockType = 3 actu_nord.Open actu_nord_numRows = 0 %> <% set actuartiste = Server.CreateObject("ADODB.Recordset") actuartiste.ActiveConnection = "DRIVER={Microsoft Access Driver (*.mdb)};" &"DBQ=" & Server.MapPath("..") &"/Database/base_donnees.mdb" actuartiste.Source = "SELECT titre FROM artiste WHERE n°auto = 1" actuartiste.CursorType = 0 actuartiste.CursorLocation = 2 actuartiste.LockType = 3 actuartiste.Open actuartiste_numRows = 0 %> <% set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = "DRIVER={Microsoft Access Driver (*.mdb)};" &"DBQ=" & Server.MapPath("..") &"/Database/base_donnees.mdb" Recordset1.Source = "SELECT Titre_accueil, Illustration2 FROM musee_mois WHERE N°auto = 2" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 3 Recordset1.Open Recordset1_numRows = 0 %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables ' set the record count Recordset1_total = Recordset1.RecordCount ' set the number of rows displayed on this page If (Recordset1_numRows < 0) Then Recordset1_numRows = Recordset1_total Elseif (Recordset1_numRows = 0) Then Recordset1_numRows = 1 End If ' set the first and last displayed record Recordset1_first = 1 Recordset1_last = Recordset1_first + Recordset1_numRows - 1 ' if we have the correct record count, check the other stats If (Recordset1_total <> -1) Then If (Recordset1_first > Recordset1_total) Then Recordset1_first = Recordset1_total If (Recordset1_last > Recordset1_total) Then Recordset1_last = Recordset1_total If (Recordset1_numRows > Recordset1_total) Then Recordset1_numRows = Recordset1_total End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (Recordset1_total = -1) Then ' count the total records by iterating through the recordset Recordset1_total=0 While (Not Recordset1.EOF) Recordset1_total = Recordset1_total + 1 Recordset1.MoveNext Wend ' reset the cursor to the beginning If (Recordset1.CursorType > 0) Then Recordset1.MoveFirst Else Recordset1.Requery End If ' set the number of rows displayed on this page If (Recordset1_numRows < 0 Or Recordset1_numRows > Recordset1_total) Then Recordset1_numRows = Recordset1_total End If ' set the first and last displayed record Recordset1_first = 1 Recordset1_last = Recordset1_first + Recordset1_numRows - 1 If (Recordset1_first > Recordset1_total) Then Recordset1_first = Recordset1_total If (Recordset1_last > Recordset1_total) Then Recordset1_last = Recordset1_total End If %> Origin'Art - Musées, galeries et commissaires-priseurs...

Le Musée du mois

le musée portuaire de Dunkerque

Consulter l'article >>>>

Musées de la région : Découvrez l'ensemble des musées de la région, coordonnées, mail, lien internet. Découvrez également la carte interactive des musées régionaux. Localisez les sites les plus visités de la région mais aussi les musées un peu moins connus.

Galeries de la région : Retrouvez le nom et les coordonnées des lieux d'exposition de la région lilloise. Cette liste ne rassemble pas la totalité des galeries de la région mais Origin'Art vous assure qu'elle se complètera au fur et à mesure du développement du site. Vous pouvez effectuer votre recherche par nom ou par ville.

Commissaires-priseurs : Vous souhaitez contacter l'un des commissaires-priseurs en France. Cette liste vous fournira les coordonnées de ces professionnels de l'art partout en France. Pour cela, il vous suffit de saisir un nom de famille, un numéro de département ou une ville.

Origin'Art - Actualités - Revue de web - Généralités - Adresses utiles - Jeux -
Plan du site - Contactez Nous.

© Origin-Art - 2002 - Euryale.fr