<!--#include virtual="/Connections/myConString.asp" -->
<%
Set strObj = Server.CreateObject ("ADODB.Command")
strObj.ActiveConnection = MYl_STRING
SQL = "SELECT DISTINCT Category FROM dbo.VacPckg"
strObj.Prepared = true
strObj.CommandText = sql
Set rsCategory = strObj.Execute
rsCategory_numRows = 0
%>
<ul>
<% while not rsCategory.EOF %>
<li><a href="vacpkg.asp?ref=<%=rsCategory(0)%>"><%=rsCategory(0)%></a></li>
<% rsCategory.MoveNext
wend %>
</ul>
<%
rsCategory.Close()
Set rsCategory = Nothing
%>
|