<!--#include file="../../_config.asp"-->
<!--#include file="../../scripts/utils/JSON-2.0.3.asp"--><%

function getNPs

	Dim R
	Set R = jsObject()
	Set R("Meta") = jsObject()
	Set R("Destacados") = jsObject()
	Set R("Notas") = jsObject()
	Set R("Areas") = jsArray()
	Set R("Meses") = jsObject()
	Set Area = jsObject()

	cmd.CommandText = "pa_web_notas_get_areas"
	cmd.CommandType = 4
	cmd.Parameters.Append cmd.CreateParameter("@idSede", 200, 1, 20, "1")
	cmd.Parameters.Append cmd.CreateParameter("@q", 200, 1, 20, "")
	cmd.Parameters.Append cmd.CreateParameter("@mes", 200, 1, 20, "9")
	cmd.Parameters.Append cmd.CreateParameter("@año", 200, 1, 20, "2009")
	set rs = cmd.execute

	Do until rs.eof
		Set R("Areas")(Null) = jsObject()
		R("Areas")(Null)("IdArea") = rs("IdArea")
		R("Areas")(Null)("Descripcion") = rs("Descripcion")
		R("Areas")(Null)("NombreCorto") = rs("NombreCorto")
		R("Areas")(Null)("m") = rs("m")
		rs.movenext
	Loop
	rs.close

	getNPs = toJSON(R)

end function

If Request.QueryString("op") = "First" Then
	Response.Write(getFirst())
ElseIf Not Request.QueryString("page") = "" Then
	Response.Write(getPage())
ElseIf Not Request.QueryString("idNota") = "" Then
	Response.Write(getNota())
Else
	Response.Write("{}")
End If

'First(filtros){Todo-Detalle}
'PageN(npage,filtros){listado}
'Nota(idNota,filtros){Todo-listado-paginador}

%>