<%
strUserName = session("UserName")
' Create a recordset object to store specific table information
Set objRS = Server.CreateObject("ADODB.Recordset")
if session("AccessLevel") = "1" then
'Establish what records you want selected for the SQL query string
SQL = "Select * From TblServices order by Category"
else
'Establish what records you want selected for the SQL query string
SQL = "Select * From TblServices where UserName = '" + strUserName + "' order by Category"
end if
'Set the recordset object equal to the SQL query string
objRS.Open SQL, objADO, 1, 3
%>
MANAGE SERVICES
<% if objrs.eof then %>
Sorry. You do not have any services listed in our directory.
<% if session("AccessLevel") = "1" then %>
<% else %>
Click here
<% end if %>
to add your company's services to our directory.
<% else %>
|
Category
|
Company
|
Description
|
Action
|
<% while not objrs.EOF %>
|
<%= objrs("Category") %>
|
<%= objrs("Company") %>
|
<%= objrs("Description") %>
|
<% if session("AccessLevel") = "1" then %>
<% else %>
<% end if %>
Add New | ">Edit | ">Delete
|
<% objrs.MoveNext %>
<% wend %>
<% end if %>