Kolorcure

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim Recordset1__MMColParam Recordset1__MMColParam = "Products" If (Request("MM_EmptyValue") <> "") Then Recordset1__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_Kolorcure_STRING Recordset1.Source = "SELECT * FROM news WHERE newsCategory = '" + Replace(Recordset1__MMColParam, "'", "''") + "' ORDER BY newsName ASC" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> <% Dim Recordset2__MMColParam Recordset2__MMColParam = "Tradeshows" If (Request("MM_EmptyValue") <> "") Then Recordset2__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Recordset2 Dim Recordset2_numRows Set Recordset2 = Server.CreateObject("ADODB.Recordset") Recordset2.ActiveConnection = MM_Kolorcure_STRING Recordset2.Source = "SELECT * FROM news WHERE newsCategory = '" + Replace(Recordset2__MMColParam, "'", "''") + "' ORDER BY newsName ASC" Recordset2.CursorType = 0 Recordset2.CursorLocation = 2 Recordset2.LockType = 1 Recordset2.Open() Recordset2_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 Recordset2_numRows = Recordset2_numRows + Repeat2__numRows %> Kolorcure

News

Happy Holidays

Kolorcure Wishes you

a Warm Holiday Season and

a Happy New Year!

<% Recordset1.Close() Set Recordset1 = Nothing %> <% Recordset2.Close() Set Recordset2 = Nothing %>