% Randomize RandomTest = Int(Rnd * 7) + 1 Dim testimonials2__MMColParam testimonials2__MMColParam = RandomTest If (Request("MM_EmptyValue") <> "") Then testimonials2__MMColParam = Request("MM_EmptyValue") End If %> <% Dim testimonials2 Dim testimonials2_numRows Set testimonials2 = Server.CreateObject("ADODB.Recordset") testimonials2.ActiveConnection = MM_testimonials_STRING testimonials2.Source = "SELECT * FROM service WHERE TestNum = " + Replace(testimonials2__MMColParam, "'", "''") + "" testimonials2.CursorType = 0 testimonials2.CursorLocation = 2 testimonials2.LockType = 1 testimonials2.Open() testimonials2_numRows = 0 %>
|
||||||
|
|
Privacy
| Shipping
| Returns |
Satisfaction Guarantee
| Contact Us About Us | News | Checkout | Product Listing | Sitemap | Links © 1995-2007, JLRyan.com or its affiliates. 53 Avenue C - Burlington, Vermont 05401 Phone: 802-865-0111 Fax: 309-406-3143 |
The following forms
of payment accepted: |