<% Dim Services__OrderBy Services__OrderBy = "ASC" if(Request("OrderBy") <> "") then Services__OrderBy = Request("OrderBy") %> <% set Services = Server.CreateObject("ADODB.Command") Services.ActiveConnection = MM_ADOSQL_STRING Services.CommandText = "dbo._SP_SELECT_SERVICES_TITLES" Services.CommandType = 4 Services.CommandTimeout = 0 Services.Prepared = true Services.Parameters.Append Services.CreateParameter("RETURN_VALUE", 3, 4) Services.Parameters.Append Services.CreateParameter("@OrderBy", 129, 1,50,Services__OrderBy) set rsSER = Services.Execute rsSER_numRows = 0 %> <% Dim HLooper1__numRows HLooper1__numRows = 4 Dim HLooper1__index HLooper1__index = 0 rsSER_numRows = rsSER_numRows + HLooper1__numRows %>

<% startrw = 0 endrw = HLooper1__index numberColumns = 2 numrows = 2 while((numrows <> 0) AND (Not rsSER.EOF)) startrw = endrw + 1 endrw = endrw + numberColumns %> <% If startrw > 1 Then %> <% End If %> <% While ((startrw <= endrw) AND (Not rsSER.EOF)) %> <% If startrw < endrw Then %> <% End If %> <% startrw = startrw + 1 rsSER.MoveNext() Wend %> <% numrows=numrows-1 Wend %> <%= rsSER.Fields.Item("ServiceTitle").Value %> <%= ReadMore(rsSER.Fields.Item("ServiceDescription").Value, 62, "services/default.asp", rsSER("SERID")) %>