|
<%
Set Conn = Server.CreateObject("ADODB.Connection")
chemin = Server.MapPath("../musee.mdb")
Conn.open "driver={Microsoft Access Driver (*.mdb)};DBQ="&chemin
SQL = "SELECT * FROM Objets where Expo='oui' and Pub2<>'aucun'"
Set RS=Conn.Execute(SQL)
while not RS.eof %>">
<%rs.movenext wend%>
INFORMATION TO OUR REFERENCED ARTISTS CONCERNING EXHIBITIONS
YOU MUST INFORM US OF YOURS NEXT EXHIBITIONS , THEN WE INFORM OUR VISITORS HERE.
SEND US BY MAIL OR E-MAIL ALL INFORMATIONS AND THE POSTER OF YOUR EXHIBITION.
WE PRESENTED IT HERE
THANK YOU
INFORMATION A NOS ARTISTES ET GALERIES REFERENCEES
VOUS DEVEZ NOUS INFORMER DE VOS PROCHAINES EXPOSITIONS AFIN
QUE NOUS PUISSIONS AVISER NOS VISITEURS ICI.
ENVOYEZ NOUS VOS PREVISIONS ET L’AFFICHE DE VOTRE PROCHAINE EXPO
ELLE SERA PRESENTEE ICI
MERCI