%@ Language=VBScript %>
<%
OrderBy = Request.QueryString("OrderBy")
if OrderBy = "" then
OrderBy = "Members.Company"
end if
sqlQuery = "select Distinct Members.Company, Members.WebsiteURL, Members.IndustryType, IndustryType.IndustryType from Members, IndustryType WHERE Members.IndustryType = IndustryType.IndustryTypeID"
sqlQuery = sqlQuery & " ORDER BY " & OrderBy
'Response.Write("query = " & sqlQuery & "
")
'get document list
set rs = Application("dataConn").execute(sqlQuery)
%>