Purchase/Supplier Section

Category List

<% dim cn dim rs Set cn = Server.CreateObject("ADODB.connection") Set rs = Server.CreateObject("ADODB.recordset") cn.Open Session("ConnectionString") rs.Open "select * from Category",cn,2,2 If Not rs.Eof then rs.MoveFirst Do While Not rs.Eof %>
<% rs.MoveNext Loop rs.Close Set rs = Nothing cn.Close Set cn = Nothing %>

" style="text-decoration: none"> <%= rs.Fields("CategoryName") %>

 
<% Else %>

Not Activated

<% End If %>