<%@LANGUAGE="VBSCRIPT"%> <% Dim t_list__MMColParam t_list__MMColParam = "1" If (Request("MM_EmptyValue") <> "") Then t_list__MMColParam = Request("MM_EmptyValue") End If %> <% Dim t_list Dim t_list_cmd Dim t_list_numRows Set t_list_cmd = Server.CreateObject ("ADODB.Command") t_list_cmd.ActiveConnection = MM_mymom_STRING t_list_cmd.CommandText = "SELECT * FROM dbo.a_testimonials WHERE display = ? AND display_admin =0 ORDER BY sort ASC" t_list_cmd.Prepared = true t_list_cmd.Parameters.Append t_list_cmd.CreateParameter("param1", 11, 1, -1, t_list__MMColParam) ' adBoolean Set t_list = t_list_cmd.Execute t_list_numRows = 0 %> <% Dim top_page Dim top_page_cmd Dim top_page_numRows Set top_page_cmd = Server.CreateObject ("ADODB.Command") top_page_cmd.ActiveConnection = MM_mymom_STRING top_page_cmd.CommandText = "SELECT * FROM dbo.a_testimonials_intro" top_page_cmd.Prepared = true Set top_page = top_page_cmd.Execute top_page_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 t_list_numRows = t_list_numRows + Repeat1__numRows %> My Mother's Bloomers - Testimonials
 
 
<% While ((Repeat1__numRows <> 0) AND (NOT t_list.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 t_list.MoveNext() Wend %>
 
" alt="My Mother's Bloomers Testimonial " />

 

 

<%=(t_list.Fields.Item("description").Value)%>

<%=(t_list.Fields.Item("names").Value)%>, <%=(t_list.Fields.Item("location").Value)%>

Contact My Mother's Bloomers for all of your floral needs: 1.800.565.1899
<% t_list.Close() Set t_list = Nothing %> <% top_page.Close() Set top_page = Nothing %>