<%
' Create a recordset object to store specific table information
Set objRS = Server.CreateObject("ADODB.Recordset")
'Establish what records you want selected for the SQL query string
SQL = "Select * From TblServiceCategories order by CategoryName"
'Set the recordset object equal to the SQL query string
objRS.Open SQL, objADO, 1, 3
%>
MANAGE SERVICE CATEGORIES
<% if not objrs.EOF then %>
|
Service Category
|
Action
|
<% while not objrs.EOF %>
|
<%= objrs("CategoryName") %>
|
Add New | ">Edit | ">Delete
|
<% objrs.MoveNext %>
<% wend %>
<% else %>
|
Currently there are not any service categories listed. Click the "Add New" link below to add a new category.
Add New
|
<% end if %>