<% @language="vbscript" %> <% Sub Thanks() %> Tell-A-Friend Baby Freebies My site has moved. Please see the new site at

www.free4baby.com

.

Get news and updates for the
Cutting Costs Baby Freebies!


If you have information to add, new sites to suggest, or any baby freebies you've found, please e-mail us at xilamom@lycosmail.com and let us post it in our list!

Keep in mind that we receive this information from other parents and publications. We believe in the freedom to express yourself and we express ourselves by helping others. Rest assured that you won't be bombarded by advertisements for useless web pages, just showered with free stuff for you and your baby!
horizontal rule

Your Friends at the Cutting Costs Baby Freebies thank you recommending our website!



<% End Sub %> <% Sub IntroPage() %>

Tell your friends about the Baby & Parent Freebies!



Friends Email Address:
Their email address, e.g. username@domain.com
Your Email Address
Your email address, e.g. username@domain.com
Subject
Comments  



This message sent to you from a friend or associate as a service of The Baby Freebies at http://pages.ivillage.com/xilamom/. For
baby freebies, parenting freebies, coupons, samples, free gifts and more! The Cutting Costs Baby Freebies

When the message is sent, you'll automatically be copied on the message.
The text immediately above will be added to the message automatically,
identifying the message as coming from The Baby & Parent Freebies.

<% End Sub %> <% Sub DoRecords() %> <% 'Write to a database if so desired 'dim strconn 'dim conn 'dim rs 'set conn = server.createobject("adodb.connection") 'conn.open strconn 'set rs = server.createobject("adodb.recordset") 'rs.open "PutYourTableNameHere", conn, 3, 3 'rs.addnew 'rs("name") = request("name") 'rs("emailaddress") = request("emailaddress") 'rs("phonenumber") = request("phonenumber") 'rs("comments") = request("comments") 'rs("DateSubmitted") = date() 'rs.update 'rs.close 'set rs = nothing 'conn.close 'set conn = nothing strBody = "Your Friend has recommended you check out The Baby Freebies at http://pages.ivillage.com/xilamom/: " & request("YourEmailaddress") & chr(10) & chr(10) strBody = strBody & "Friends Comments: " & chr(10) & request("comments") & chr(10) & chr(10) & chr(10) strBody = strBody & "This message sent to you from an associate as a service of The Baby Freebies at http://pages.ivillage.com/xilamom/." strBody = strBody & "For baby freebies, parenting freebies, coupons, samples, free gifts and more!  http://pages.ivillage.com/xilamom/" 'Send a copy via an email set objNewMail = server.CreateObject("CDONTS.NewMail") objNewMail.From = request("YourEmailAddress") objNewMail.To = request("FriendsEmailAddress") objNewMail.CC = request("YourEmailAddress") objNewMail.BCC = "webmaster@somedomain.com" objNewMail.Subject = request("Subject") objNewMail.Body = strBody objNewMail.Send set objNewMail = Nothing response.redirect "tellfriend.asp?strMessage=Thanks" End Sub %> <% If request("btnSubmit") = "" and request("strMessage") = "" Then call IntroPage() End If If request("btnSubmit") = "Send the Info!" Then call DoRecords() End If if request("strMessage") <> "" Then call Thanks() End If %>


The Baby Freebies Categories:

Coupons ~ Samples/Gifts ~ Health Information ~ Safety Information/Kits ~ Pregnancy Freebies ~ Formula Samples/Coupons ~ Miscellaneous ~ Just the 1-800#s ~ Coupon Exchange ~ About Us
The Baby & Parent Network

The Cutting Costs Baby & Parent Freebies ~ Our Message/Coupon Exchange Board ~ About Us

horizontal rule
Tell a Friend! about our page and help spread the word.