<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim Services Dim Services_cmd Dim Services_numRows Set Services_cmd = Server.CreateObject ("ADODB.Command") Services_cmd.ActiveConnection = MM_dhsweb_STRING Services_cmd.CommandText = "SELECT [Service Key] FROM Services" Services_cmd.Prepared = true Set Services = Services_cmd.Execute Services_numRows = 0 %>

Services <% While (NOT Services.EOF) %> "><%=(Services.Fields.Item("Service Key").Value)%> <% Services.MoveNext() Wend If (Services.CursorType > 0) Then Services.MoveFirst Else Services.Requery End If %> Search

<% Services.Close() Set Services = Nothing %>