<% 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_BYORDER" Services.CommandType = 4 Services.CommandTimeout = 0 Services.Prepared = true Services.Parameters.Append Services.CreateParameter("@OrderBy", 129, 1,50,Services__OrderBy) set rsSERVICES = Services.Execute rsSERVICES_numRows = 0 %> <% Dim RepeatServices1__numRows RepeatServices1__numRows = -1 Dim RepeatServices1__index RepeatServices1__index = 0 rsSERVICES_numRows = rsSERVICES_numRows + RepeatServices1__numRows %>
<% Dim OpenCounter OpenCounter = 0 While ((RepeatServices1__numRows <> 0) AND (NOT rsSERVICES.EOF)) %> <% OpenCounter = OpenCounter + 1 RepeatServices1__index=RepeatServices1__index+1 RepeatServices1__numRows=RepeatServices1__numRows-1 rsSERVICES.MoveNext() Wend %>
 <%= StripHTML(rsSERVICES.Fields.Item("ServiceTitle").Value) %>
?OrderBy=ASC"> ?OrderBy=DESC"">