LoBella.com

<%@LANGUAGE="VBSCRIPT"%> <% Dim MM_editAction MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString) End If ' boolean to abort record edit Dim MM_abortEdit MM_abortEdit = false %> <% ' IIf implementation Function MM_IIf(condition, ifTrue, ifFalse) If condition = "" Then MM_IIf = ifFalse Else MM_IIf = ifTrue End If End Function %> <% If (CStr(Request("MM_insert")) = "form1") Then If (Not MM_abortEdit) Then ' execute the insert Dim MM_editCmd Set MM_editCmd = Server.CreateObject ("ADODB.Command") MM_editCmd.ActiveConnection = MM_lobella_conn_STRING MM_editCmd.CommandText = "INSERT INTO lobellacom.registration (firstname, lastname, country, state, city, address, postalcode, hometelephone, email, ispaid, datetime) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, 0b0, ?)" MM_editCmd.Prepared = true MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 201, 1, 200, Request.Form("txt_firstname")) ' adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 201, 1, 200, Request.Form("txt_lastname")) ' adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 201, 1, 100, Request.Form("txt_country")) ' adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 201, 1, 100, Request.Form("txt_state")) ' adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 201, 1, 100, Request.Form("txt_city")) ' adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 201, 1, 500, Request.Form("txt_address")) ' adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 201, 1, 100, Request.Form("txt_postalcode")) ' adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 201, 1, 100, Request.Form("txt_hometelephone")) ' adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param9", 201, 1, 100, Request.Form("txt_email")) ' adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param9", 201, 1, 100, Request.Form("txt_datetime")) ' adLongVarChar MM_editCmd.Execute MM_editCmd.ActiveConnection.Close ' append the query string to the redirect URL Dim MM_editRedirectUrl MM_editRedirectUrl = "./paynow.asp" If (Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If Response.Redirect(MM_editRedirectUrl) End If End If function mysqldate(dt) if isdate(dt) then vmonth = cstr(month(dt)) if len(vmonth) = 1 then vmonth = "0" + vmonth vday = cstr(day(dt)) if len(vday) = 1 then vday = "0" + vday mysqldate = year(dt) & "-" & vmonth & "-" & vday else mysqldate = 0 end if end function %> LoBella.com

< back

The Greatest Love: Being an extraordinary mom.
Wednesday, 18 June 2008 00:00

Every mom knows the wonder and joy that comes with having children, and Loren Slocum has candidly captured these emotions in her book The Greatest Love. With truly incredible photographs by Brittany Lee Hanson, this book celebrates motherhood in a beautiful and inspiring way. Loren includes quotes, advice, stories, and sentiments, through which you will feel your own experiences as a mother coming alive. The Greatest Love will motivate you to seize every opportunity to make the future brighter for your children, will remind you to appreciate every moment that you enjoy as a mother, and will help you to feel like an extraordinary mom every day. The affirmation and love – as well as the gorgeous photos – contained within these pages make this book worth reading again and again.

http://www.momcentral.com:80/book-reviews/the-greatest-love-being-an-extraordinary-mom.html