%@LANGUAGE="VBSCRIPT"%> <% 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 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_employment 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 Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 t_list_numRows = t_list_numRows + Repeat1__numRows %>
| |
|||||||||||||
|
|||||||||||||
|
| Home | Products | Order | Profile | Community | Neville's Jobs | Employment | Testimonials | Links | Events | Contact | Admin |
| © 2007 My Mother's Bloomers | web site by oatmeal simple graphic design |