Baby at I Am Expecting

Welcome to I Am Expecting, a website put to help families find their way around the great big internet! The site is fairly well layed out, please use the menu bar to find the page that most describes you!
We welcome any comments or suggestions you may have for us, please feel free to email us directly at Contributions

Baby at I Am Expecting

What's The Law?
What Equipment should I have?
Where do I Go For Help?
Some would say that Tony and his government has done little for the family, and this may be true. However at least the family friendly legislation and 1 year maternity leave must be helping some people!!! Check out Direct Gov - Public Services all in one place whats right and whats wrong. Remember that there are rules and rights that protect mothers and fathers from all sorts of discrimination and fear in the workplace, make sure YOU know whats what!
Equipment? Well that can be a long and exhaustive list. It seems that there is much equipment to buy as there is money to spend.
Take a look at our "essentials" list, our "Nice to Have" list and our favourite, the ever growing "Grandparents presents" list!
Check out our e-Bay search page for Baby Equipment
Well what help do you need? is it financial, medical or legal? We have links here to all the best sites! Here's a few;
  • Pensions
  • Savings
  • NHS Direct
  • Direct Gov
  • NSPCC

  • If your the self help type, then try our own bookshop, powered by Amazon, where we have done the searching for you!
    <%@ Language=VBScript %> <% ' Local file to store XML ' You must create a blank file named "local_112721.xml" in the same ' directory as this script. It MUST be writable by the web ' server. On unix you would CHMOD 666 the file. On Windows ' you will need to access your custom control panel to set ' the permissions or contact your hosting company. Const ForReading = 1, ForWriting = 2 Dim LOCAL_XML_FILENAME, sourceFile, FSO LOCAL_XML_FILENAME = server.MapPath("local_112721.xml") sourceFile = "http://www.text-link-ads.com/xml.php?inventory_key=3BBPUVYWTSS61UYSCDXY&referer=" & Server.UrlEncode(Request.ServerVariables("HTTP_REFERER")) & "&user_agent=" & Server.UrlEncode(Request.ServerVariables("HTTP_USER_AGENT")) Set FSO = server.createObject("Scripting.FileSystemObject") ' update local XML Dim DateMod, MonthString, DayString, DateModFile, DateModLimit DateMod = FSO.getFile(LOCAL_XML_FILENAME).DateLastModified MonthString = Month(DateMod) If (MonthString < 10) Then MonthString = "0" & MonthString End If DayString = Day(DateMod) If (DayString < 10) Then DayString = "0" & DayString End If DateModFile = Year(DateMod) & "-" & MonthString & "-" & DayString & " " & Hour(DateMod) & ":" & Minute(DateMod) & ":" & Second(DateMod) MonthString = Month(Date) If (MonthString < 10) Then MonthString = "0" & MonthString End If DayString = Day(Date) If (DayString < 10) Then DayString = "0" & DayString End If DateModLimit = Year(Date) & "-" & MonthString & "-" & DayString & " " & (Hour(Now)-1) & ":" & Minute(Now) & ":" & Second(Now) Dim Contents, Result, xmlhttp, TextStream ' read local XML Contents = "" Set TextStream = FSO.OpenTextFile(LOCAL_XML_FILENAME, ForReading, False, -2) Do While Not TextStream.AtEndOfStream Contents = Contents & TextStream.ReadLine Loop TextStream.Close Set TextStream = nothing If (DateModFile < DateModLimit Or FSO.getFile(LOCAL_XML_FILENAME).size < 20) Then ' fetch remote XML Set xmlhttp = CreateObject("Microsoft.XMLHTTP") xmlhttp.open "GET", sourceFile, False xmlhttp.send "" Result = xmlhttp.responseText If (Result <> "") Then Contents = Result End If ' write new XML to local file Set TextStream = FSO.OpenTextFile(LOCAL_XML_FILENAME, ForWriting, True) TextStream.Write Contents TextStream.Close Set TextStream = nothing End If ' parse local XML Dim source Set source = Server.CreateObject("Microsoft.XMLDOM") source.async = false source.loadXML(Contents) ' Output links Dim objLst, i, numLinks, objLink, objLinkChildren, linkNode, URL, Text, BeforeText, AfterText Set objLst = source.getElementsByTagName("Link") numLinks = objLst.length - 1 Response.Write("
      ") For i = 0 To numLinks Set objLink = objLst.item(i) Set objLinkChildren = objLink.childNodes URL = "" Text = "" BeforeText = "" AfterText = "" For Each linkNode In objLinkChildren If linkNode.nodeName = "URL" Then URL = linkNode.text End If If linkNode.nodeName = "Text" Then Text = linkNode.text End If If linkNode.nodeName = "BeforeText" Then BeforeText = linkNode.text End If If linkNode.nodeName = "AfterText" Then AfterText = linkNode.text End If Next Response.Write("
    • " & BeforeText & " " & Text & " " & AfterText & "
    • ") Next Response.Write("
    ") %>
    Mother's Day at Moonpig.com
    1000s of price reductions at lxdirect.com!
    Rising Gas & Electricity prices!
    Go to the Origins Network
    autumn transition
    Spring/Summer 2007
    Google