<%@language=vbscript%>
<%response.buffer = true%>
<%
set con = server.createobject("adodb.connection")
con.open strCon
set rs = server.createobject("adodb.recordset")
rs.activeconnection = con
strsql = "SELECT vacancyCategory.vcID, vacancyCategory.vcTitle, Count(vacancies.ID) AS CountOfID "&_
"FROM vacancyCategory INNER JOIN vacancies ON vacancyCategory.vcID = vacancies.vcID "&_
"where vacancies.expiryDate >= #"&mediumdate(date())&"# " &_
"GROUP BY vacancyCategory.vcTitle, vacancyCategory.vcID;"
rs.open strsql
arrDBData = rs.GetRows()
rs.close
rs.open "select count(ID) as vacancyCount from vacancies where expiryDate >= #"&mediumdate(date())&"#;"
vacancyCount = rs("vacancyCount")
rs.close
set rs = nothing
con.close
set con = nothing
iRecFirst = LBound(arrDBData, 2)
iRecLast = UBound(arrDBData, 2)
iFieldFirst = LBound(arrDBData, 1)
iFieldLast = UBound(arrDBData, 1)
%>
Cardiff Yellow - Wales' premier online job vacancies board detailing job vacancies in Cardiff, Newport, Caerphilly, Pontypridd, Barry and Bridgend.
Powered by Synapse Data Solutions
<%response.flush%>
