La Boutique de la ferme du Moulinat - Les Marchés
<% function formatSql(myDate) myDate=year(myDate) & "-" & right("0" & month(myDate),2) & "-" & right("0" & day(myDate),2) formatSql=myDate end function %>

Marchés, Foires, Animations, Festivals, etc.

A LOUBENS (33190), la boutique de la ferme est ouverte tous les jours de 10h à 18h sauf le dimanche.

Deux catégories :
Les Marchés de producteurs qui ont lieu dans un village.
Les Marchés à la ferme qui ont lieu dans la ferme d'un des producteurs (sous label Bienvenue à la ferme)

AVRIL 2010



MAI 2010



JUIN 2010



JUILLET 2010



AOUT 2010



SEPTEMBRE 2010

<% sqlFest="SELECT evenementId, evenementDateDebut, evenementDateFin, evenementDescription FROM tmoulinatfestivites WHERE evenementDateDebut>='" & formatSql(date()) & "' ORDER BY evenementDateDebut " Set Rs = Server.CreateObject("ADODB.Recordset") rs.open sqlFest, conn, 0, 1 if not rs.EOF and not rs.BOF then response.write "" exMonth="0" do while not rs.EOF dateToDisplay="" evenementId=rs.fields("evenementId").value evenementDateDebut=rs.fields("evenementDateDebut").value myMonth=month(evenementDateDebut) evenementDateFin=rs.fields("evenementDateFin").value if evenementDateFin<>"" then dateToDisplay="du " & formatDateTime(evenementDateDebut,1) & " au " & formatDateTime(evenementDateFin,1) else dateToDisplay=formatDateTime(evenementDateDebut,1) end if evenementDescription=rs.fields("evenementDescription").value if cStr(myMonth)<>cStr(exMonth) then response.write "" response.write "" exMonth=month(evenementDateDebut) rs.movenext loop response.write "
" & monthName(myMonth) & " " & year(evenementDateDebut) & "
" & dateToDisplay & "" & evenementDescription & "
" end if rs.close set rs=nothing %>