<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> Agenda 21 escolar de Aranda de Duero <% conn="DRIVER={Microsoft Access Driver (*.mdb)};" conn=conn & "DBQ=" & server.mappath(bd) 'Constante con url relativa a bd set rs = Server.CreateObject("ADODB.recordset") sql="SELECT * FROM clase ORDER BY cl_id_c, cl_nom" rs.open sql,conn if not rs.eof then cl=rs.getrows rs.close if isarray(cl) then ubcl=ubound(cl,2) else ubcl=-1 cid=cint(request("id")) if cid=0 then randomize cid=cl(cl_id,fix(rnd()*ubcl)) end if for x=0 to ubcl if cl(cl_id,x)=cid then clx=x:x=ubcl next todoco=0 sql="SELECT * FROM colegio" rs.open sql,conn if not rs.eof then co=rs.getrows rs.close if isarray(co) then ubco=ubound(co,2) else ubco=-1 for x=0 to ubco todoco=todoco+co(c_co2,x) if co(c_id,x)=cl(cl_id_c,clx) then cox=x next sql="SELECT * FROM aviso ORDER BY a_id DESC" rs.open sql,conn if not rs.eof then a=rs.getrows rs.close if isarray(a) then uba=ubound(a,2) else uba=-1 sql="SELECT * FROM blog WHERE b_id_cl=24 ORDER BY b_fecha DESC" rs.open sql,conn if not rs.eof then if rs("b_fecha")
<%=fixtildes(formatFecha(date))%>
<%if todoco<>0 then%> <%per=100*cl(cl_co2,clx)/todoco%> LA CLASE REPRESENTA UN <%=fix(per)%>% DEL TOTAL <%end if%>
<%if todoco<>0 then per=100*co(c_co2,cox)/todoco%> EL COLEGIO REPRESENTA UN <%=fix(per)%>% DEL TOTAL <%end if%>
<%=fixtildes(co(c_nom,cox))%>
<%=fixtildes(cl(cl_nom,clx))%>
<%totalco=cifm(cl(cl_co2,clx),6)%>
<%if len(totalco)>6 then totalco=999999 for x=0 to 5 tam="g" if x>2 then tam="p" if x=3 then%>
<%end if if len(totalco)>4-x-1 then %><%=mid(totalco,x+1,1)%><% else %>0<% end if next%>
Kg. de CO2
<%if uba>-1 then%>
Aviso desde el programa: <%=fixtildes(a(a_tit,0))%>
<%end if%> <%if cclogin=cid then%> <%if cid<>24 then%>
Añadir evento:
Tipo de evento: Clase: Subclase: ¿Cuántos se comprometen?
<%sql="SELECT * FROM e_tipo ORDER BY et_tit" rs.open sql,conn if not rs.eof then e=rs.getrows rs.close if isarray(e) then ube=ubound(e,2) else ube=-1 %> <%t=cint(request("t")) c=cint(request("c")) sql="SELECT * FROM e_clase WHERE ec_id_et=" & t & " ORDER BY ec_tit" rs.open sql,conn if not rs.eof then ec=rs.getrows rs.close if isarray(ec) then ubc=ubound(ec,2) else ubc=-1%> <%sql="SELECT * FROM e_sub WHERE es_id_ec=" & c & " AND es_on=true ORDER BY es_tit" rs.open sql,conn if not rs.eof then es=rs.getrows rs.close if isarray(es) then ubs=ubound(es,2) else ubs=-1%>

Descripción: onclick="alert('Debes elegir un tipo');return false;"<%elseif request("c")="" then%>onclick="alert('Debes elegir una clase');return false;"<%elseif request("c")="" then%>onclick="alert('Debes elegir una subclase');return false;"<%end if%> style="position:relative;top:-4px;" type="submit" value="Añadir" />
<%end if%>
Añadir refrán o idea:
Añadir apunte:
Descripción:

Imagen:
<%end if%>
<%sql="SELECT * FROM refran ORDER BY r_id DESC" rs.open sql,conn if not rs.eof then r=rs.getrows rs.close if isarray(r) then ubr=ubound(r,2) else ubr=-1 lr=0 sql="SELECT * FROM doc ORDER BY d_id DESC" rs.open sql,conn if not rs.eof then d=rs.getrows rs.close if isarray(d) then ubd=ubound(d,2) else ubd=-1 ld=0 sql="SELECT * FROM blog WHERE b_id_cl=" & cid & " ORDER BY b_fecha DESC" rs.open sql,conn if not rs.eof then b=rs.getrows rs.close if isarray(b) then ubb=ubound(b,2) else ubb=-1 %>
Blog

<%for x=0 to ubb%> <%if b(b_img,x)<>"" then%>

<%end if%>
<%fechaBlog(b(b_fecha,x))%>
<%=sacaUrl(b(b_txt,x))%> <%if cclogin=24 or cclogin=cid then%>[eliminar]<%end if%>

<%randomize val=fix(rnd()*10) if val>5 and lr<=ubr then%>
<%for z=0 to ubcl if r(r_id_cl,lr)=cl(cl_id,z) then for y=0 to ubco if cl(cl_id_c,z)=co(c_id,y) then id=y:y=ubco next%> <%=fixtildes(co(c_nom,id))%> • <%=cl(cl_nom,z)%> <%end if next%>
<%=fixtildes(r(r_txt,lr))%> <%lr=lr+1%>
<%end if%>
<%next%> <%if ubb=-1 then%> No hay ningún apunte aún...

<%end if%>
<%sql="SELECT * FROM evento WHERE e_id_cl=" & cid & " ORDER BY e_fecha DESC" rs.open sql,conn if not rs.eof then e=rs.getrows else e="" rs.close if isarray(e) then ube=ubound(e,2) else ube=-1 for x=0 to xubcl then n=0 'if ube=-1 and ubb=-1 and cclogin<>cid then response.redirect("ver.asp?id=" & cl(cl_id,n))%>
<%if request("r")<>"" then for y=0 to ubr if r(r_id,y)=cint(Request("r")) then lr=y next%>
<%for x=0 to ubcl if r(r_id_cl,lr)=cl(cl_id,x) then for y=0 to ubco if cl(cl_id_c,x)=co(c_id,y) then id=y:y=ubco next%> <%=fixtildes(co(c_nom,id))%> • <%=cl(cl_nom,x)%> <%end if next%>
<%=fixtildes(r(r_txt,lr))%> <%lr=lr+1 if lr>ubr and request("r")<>"" then lr=0%>
<%end if%> <%for x=0 to ube%> <%tam=e(e_tam,x):img=e(e_img,x):col=e(e_color,x) if e(e_sub,x)=9999 or e(e_sub,x)=0 then tam=tamGen(e(e_tipo,x)) img=imgGen(e(e_tipo,x)) col=colGen(e(e_tipo,x)) end if%>
-<%=e(e_co2,x)*e(e_num,x)%>
<%fechaBlog(e(e_fecha,x))%>
<%tami=" px18" tamm=e(e_tam,x) if (len(e(e_desc,x))>40 and (tamm="1x1" or tamm="1x2")) or (len(e(e_desc,x))>70 and (tamm="2x1" or tamm="2x2" or tamm="3x1")) then tami=" px16" end if if (len(e(e_desc,x))>50 and (tamm="1x1" or tamm="1x2")) or (len(e(e_desc,x))>100 and (tamm="2x1" or tamm="2x2" or tamm="3x1")) then tami=" px14" end if if (len(e(e_desc,x))>60 and (tamm="1x1" or tamm="1x2")) or (len(e(e_desc,x))>130 and (tamm="2x1" or tamm="2x2" or tamm="3x1")) then tami=" px12" end if if (len(e(e_desc,x))>70 and (tamm="1x1" or tamm="1x2")) or (len(e(e_desc,x))>160 and (tamm="2x1" or tamm="2x2" or tamm="3x1")) then tami=" px10" end if%>
<%=fixTildes(e(e_desc,x))%>
<%randomize val=fix(rnd()*10) if val>5 and ld<=ubd then if len(d(d_tit,ld))>0 then tami=" px16" end if if len(d(d_tit,ld))>50 then tami=" px14" end if if len(d(d_tit,ld))>85 then tami=" px12" end if if len(d(d_tit,ld))>105 then tami=" px10" end if%>
"> <%if instr(d(d_url,ld),"http://")>0 then pref="" else pref="doc/"%> <%=fixtildes(d(d_tit,ld))%> <%ld=ld+1%>
<%end if randomize val=fix(rnd()*10) if val>5 and lr<=ubr then%>
<%for z=0 to ubcl if r(r_id_cl,lr)=cl(cl_id,z) then for y=0 to ubco if cl(cl_id_c,z)=co(c_id,y) then id=y:y=ubco next%> <%=fixtildes(co(c_nom,id))%> • <%=cl(cl_nom,z)%> <%end if next%>
<%=fixtildes(r(r_txt,lr))%> <%lr=lr+1 if lr>ubr and request("r")<>"" then lr=0%>
<%end if%> <%next%>
Agenda 21 Local
Ayuntamiento de Aranda de Duero
Junta de Castilla y León
 
Contacta • GEA © 2008