<% dim aantal dim datum dim afkomstig dim myarray dim jaar dim maand dim dag dim a dim b dim c afkomstig = lcase("http://" & Request.ServerVariables("REMOTE_HOST")) 'afkomstig = afkomstig & "<1>" & lcase(Request.ServerVariables("REMOTE_ADDR")) 'afkomstig = afkomstig & "<2>" & lcase(Request.ServerVariables("SERVER_NAME")) 'afkomstig = afkomstig & "<3>" & lcase(Request.ServerVariables("HTTP_REFERER")) 'afkomstig = afkomstig & "<4>" & lcase(Request.ServerVariables("HTTP_USER_AGENT")) 'afkomstig = afkomstig & "<5>" & lcase(Request.ServerVariables("SCRIPT_NAME")) MyString = date MyArray = split(MyString,"/") a = myarray(0) b = myarray(1) c = myarray(2) 'jaar = c 'maand = a 'dag = b datum = b & "-" & a & "-" & c ' Open Connection to the database %> <% ' record voor het tellen per dag zoeken en vullen set xrs = Server.CreateObject("ADODB.Recordset") zoek = "select * from tellen where filler1 like '%" & datum & "%' and filler2 like '%kijkers%' and afkomstig like '%" & afkomstig & "%'" xrs.open zoek, xconn, 1, 2 if xrs.eof then xrs.addnew xrs.fields("jaar") = c xrs.fields("maand") = a xrs.fields("dag") = b xrs.fields("afkomstig") = afkomstig xrs.fields("filler1") = datum xrs.fields("filler2") = "kijkers" end if aantal = xrs("bezoekaantal").value aantal = aantal + 1 xrs("bezoekaantal").value = Cint(aantal) xrs.update ' alles sluiten en instanties verwijderen xrs.close set xrs = nothing ' totaalrecord zoeken en vullen set xrs = Server.CreateObject("ADODB.Recordset") zoek = "select * from totaal where filler2 like '%kijkers%'" xrs.open zoek, xconn, 1, 2 if xrs.eof then xrs.addnew xrs("eerstebezoek").value = datum xrs("filler1").value = "-" xrs("filler2").value = "kijkers" end if xrs("laatstebezoek").value = datum aantal = xrs("totaalaantal").value aantal = aantal + 1 xrs("totaalaantal").value = Cint(aantal) xrs.update xrs.close set xrs = nothing xconn.close set xconn = nothing %> Borstvoedingscentrum Almere
 
 

   

Borstvoeding in Almere

Borstvoeding is de beste en meest natuurlijke voeding die een pasgeboren kindje kan krijgen. Zelf voeden is een bijzondere en unieke ervaring.

Al tijdens de zwangerschap kan goede informatie je zelfvertrouwen in het geven van borstvoeding verhogen. Met kennis en vertrouwen heb je een basis voor plezier en een goede start van borstvoeding geven. Zit je met vragen of ondervind je moeilijkheden, dan staat onze deur voor je open. Borstvoedingscentrum Almere is een centrum waar informatie over borstvoeding op de eerste plaats staat. Samen zullen we bekijken welke adviezen voor jouw situatie haalbaar en werkzaam zijn.

Ons motto: Het maakt ons niet uit hoe lang je zelf zult voeden, als je na afloop maar met plezier op je borstvoedingsperiode kan terugkijken.

Wij bieden:

Voor ouders
Voor zorgverleners
  • beantwoorden van vragen
  • scholing
  • bijscholing
  • themabijeenkomsten
  • lezingen en workshops.
  • begeleiding bij het opzetten van een borstvoedingsprotocol
  • informatieve artikelen en brochures
  • telefonische ondersteuning bij problemen in de hulpverlening

Wilt u meer informatie of een afspraak maken, bel met een van de onderstaande nummers of stuur een E-mail.

 

Actueel!


Borstvoedingscentrum Almere | telefoon: 036 5377460 of 06-20191296
Voor meer informatie mailt u naar: info@borstvoedingalmere.nl


© 2004 Borstvoedingscentrum Almere.
Disclaimer