<%
Dim rscat
Dim cnn
Set Cnn=Server.CreateObject("ADODB.Connection")
Set rs =Server.Createobject("Adodb.recordset")
With cnn
.Provider = "SQLOLEDB"
.ConnectionString = Application("SqlConnectionString")
.Open
End With
Set rscat =Server.Createobject("Adodb.recordset")
strsql="Select distinct Category from Jobcategory Order by category"
rscat.open strsql,Cnn
%>
Apt - Human Resource & Management Consultancy
