% @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!
Your Friends at the Cutting Costs Baby Freebies thank you recommending our website!
<% End Sub %>
<% Sub IntroPage() %>
<% 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
Tell a Friend! about our page and help spread the word.