Efectivamente el fallo estaba en esas líneas. Puesto que hago dos consultas a la base de datos tenía que poner:
set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("contador/count_clicks.mdb"))
SQL="SELECT categoria FROM Categoria ORDER BY categoria ASC"
SQL1="SELECT COUNT(id) AS total FROM count WHERE tipo='"&tipo&"'"
rs1.open SQL1, oConn, 3, 1
Respose.write(
rs1("total"))
Gracias!!!!!!!!!!!!!!!
