<% Dim bShowDetail Dim sServiceName Dim sCurrentPage sCurrentPage = "services" page="Trade Customers" %> <% bShowDetail = Len(Request("service")) > 0 sServiceName = Request("service") If Not bShowDetail Then %><% sSQL = "SELECT Name FROM Services ORDER BY OrderShown" Else sSQL = "SELECT Comments FROM Services WHERE Name='" & Replace(sServiceName,"'","''") & "'" End If Set rs = conDB.Execute( sSQL ) If IsRSEmpty(rs) Then%>

<%=smNoServices%>

<%Else If Not bShowDetail Then%>

<%=.Fields("name")%>

<%Else%>

<%=sServiceName%>

<%=rs.Fields("Comments").Value%>

<%=smBackServiceList%> <%End If End If%>