<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim SearchResults
Dim SearchResults_cmd
Dim SearchResults_numRows
Set SearchResults_cmd = Server.CreateObject ("ADODB.Command")
SearchResults_cmd.ActiveConnection = MM_dhsweb_STRING
SearchResults_cmd.CommandText = "SELECT * FROM [Resource Name] ORDER BY [Org Name] ASC"
SearchResults_cmd.Prepared = true
Set SearchResults = SearchResults_cmd.Execute
SearchResults_numRows = 0
%>
Untitled Document
Test of new search results
You searched for: <%=(SearchResults.Fields.Item("servicesMenu").Value)%>
<%
SearchResults.Close()
Set SearchResults = Nothing
%>