<% Option Explicit 'Old Foxpro Stuff 'Dim wrkJet 'Dim dbsData 'Dim rstTestimon ' 'Set wrkJet = Server.CreateObject("DAO.DBEngine.35") 'Set dbsData = wrkJet.OpenDatabase(Session("DataPath"), 0, True, Session("Driver")) 'Set rstTestimon = dbsData.OpenRecordset("Testimon.dbf", 1) 'New Sql Server Stuff Dim objDbConn, rstTestimon Set objDbConn = Server.CreateObject("ADODB.Connection") objDbConn.Open Application("DataConnection") Set rstTestimon = Server.CreateObject("ADODB.Recordset") rstTestimon.Open "SELECT * FROM Testimon", objDbConn %> Gracie's Great Adventures: Testimonials
Customer Testimonials
 <% Do Until rstTestimon.EOF = True %> <% rstTestimon.MoveNext Loop %>
From Teachers, to Parents and Kids alike, the GRACIE’S GREAT ADVENTURES book series is a gift that everyone seems to love. Here's what some of Gracie’s fans have to say!
Last Christmas, the whole family, including aunts, uncles and grandparents, were watching the children open gifts. When my 3-year-old grandchild opened the Gracie books, she said, "I'm done." Off she went with the books and tapes. She insisted on listening to the tapes twice before we could get her to return to open the rest of her presents.
CHARLOTTE WILLIAMS ,
My grandchildren, Alyssa and Andrew, love the stories and were especially excited to know that Gracie is a real dog? They look forward to sharing more of Gracie's adventures.
GAIL RUSSELL ,
"My daughter has all three volumes of the Gracie books and she really loves them. As a mom, we enjoy these books because they help the kids learn to read. The combination of the book and tape together helps the children begin to learn new words that they might not have known before. The books keep them occupied when we're traveling, and they have a great time learning the songs and the stories that go with them. We can hardly wait for the next one to come out."
Julia O'Neil King , Gunnison, Colorado
HomePage
Email Gracie

by WEB-ROLLERS.COM
<% 'close out the data objects rstTestimon.Close objDbConn.Close Set rstTestimon = Nothing Set objDbConn = Nothing %>