<%dim OBJdbConnection rem Dati economici Versione pag:0.1 rem Configurare qui i patametri dello script db=server.mappath("Ecodati.mdb") 'Nome del database (il database si deve trovare nella stessa directory) const dbp="download.asp"'percorso della pagina dei downloads rem I parametri dell'aspetto si configurano nella funzione aprifile if request.querystring("p")="" then 'intro response.redirect("index.asp?p=ric") else select case request.querystring("p") case "ric" argomento case "ric2" ricerca end select end if%> <%sub aprihtml (t) rem Configurare qui l'aspetto grafico della pagina response.write("") end sub sub chiudihtml response.write("") end sub sub intro aprihtml("Dati economici")%>

Dati economici

Ricerca/Raggruppa

Compara/Elabora

<%chiudihtml end sub sub connetti Set OBJdbConnection = Server.CreateObject("ADODB.Connection") OBJdbConnection.Open "DBQ="&db&";DefaultDir=" & Server.MapPath("/") & ";" & _ "Driver={Microsoft Access Driver (*.mdb)}; DriverId=25;FIL=MS Access;MaxBufferSize=512;PageTimeout=5;UID=;" end sub sub disconnetti OBJdbConnection.close set OBJdbConnection=nothing end sub%> <%sub argomento connetti sql="select distinct * from serie" set rs=objdbconnection.execute(sql) aprihtml("Dati economici - Ricerca")%>

Ricerca

Argomento: Tutti <%do while not rs.eof%> "><%=rs.fields("serie")%> <%rs.movenext loop rs.close set rs=nothing%>

Anno compreso tra: 1960 <%for i=1961 to 1998 %> <%=i%> <%next%> e <%for i=1960 to 1997 %> <%=i%> <%next%> 1998

Paese:Tutti <% sql="select distinct paese from main" set rs=objdbconnection.execute(sql) do while not rs.eof%> "><%=rs("paese")%> <%rs.movenext loop rs.close set rs=nothing%>

Ordinamento: CrescenteDecrescente in base a ArgomentoPaese <%for i=1960 to 1998 %> Anno <%=i%> <%next%>

Riduci i risultati ai primi 10

<%chiudihtml disconnetti end sub%> <%sub ricerca aprihtml("Dati economici - Risultato ricerca") dim arr() connetti if request.form("argomento")="%" and request.form("Paese")="%" then%> Attenzione l'interrogazione al database potrebbe durare molto e non andare a buon fine a causa dell'immensa mole di dati. Consigliamo quindi di fornire Criteri pił specifici o nel caso si volesse avere l'intero databse di Scaricarlo.
Grazie
<%set rs=objdbconnection.execute("select * from serie") 'redim arr(25) do while not rs.eof 'arr(rs.fields("id"))=rs.fields("serie") response.write(""+rs.fields("serie")+"

") sql="select * from main where serie_id like '"+CSTR(rs.fields("id"))+"' order by "+request.form("ord_Target")+request.form("ord_sense") set rJ=objdbconnection.execute(sql) c=true%><%for i=request.form("anno") to request.form("annob")%><%next%> <%j=0 do while not rj.eof and c=true%> <%for i=request.form("anno") to request.form("annob")%> <%next%> <%if request.form("limit")="on" then j=j+1 if j=10 then c=false end if end if rj.movenext loop response.write("

Paese	<%=i%>
<%=rj.fields("paese")%>	<% if not isnumeric(rj.fields("anno"+Cstr(i))) then response.write("n/a") else response.write(rj.fields("anno"+Cstr(i))) end if%>

") rs.movenext loop rs.close rj.close set rs=nothing set rj=nothing else %> <%if request.form("argomento")="%" then set rs=objdbconnection.execute("select * from serie") redim arr(25) do while not rs.eof arr(rs.fields("id"))=rs.fields("serie") rs.movenext loop else set rs=objdbconnection.execute("select * from serie where id like '"+request.form("argomento")+"'") response.write(""+rs.fields("Serie")+"

") end if if not request.form("paese")="%" then response.write(""+ request.form("paese")+"

") end if sql="select * from main where Serie_ID like '"+request.form("argomento")+ "' and paese like '"+request.form("paese")+"' order by "+request.form("ord_target") +request.form("ord_sense") set rs=objdbconnection.execute(sql) if rs.eof then response.write("Nessun record corrispondente!") else c=true j=0 %> <%if request.form("argomento")="%" then%> <%end if%> <%if request.form("paese")="%" then%><%end if%> <%for i=request.form("anno") to request.form("annob")%> <%next%> <%do while not rs.eof and c=true%> <%if request.form("argomento")="%" then response.write("") end if%> <%if request.form("paese")="%" then%><%end if%> <%for i=request.form("anno") to request.form("annob")%> <%next%> <%rs.movenext if request.form("limit")="on" then j=j+1 if j=10 then c=false end if end if loop rs.close set rs=nothing%>

Argomento	Paese	<%=i%>
"+arr(rs.fields("Serie_id"))+"	<%=rs.fields("paese")%>	<% if not isnumeric(rs.fields("anno"+Cstr(i))) then response.write("n/a") else response.write(rs.fields("anno"+Cstr(i))) end if%>

<% end if end if%>

Indietro <% chiudihtml disconnetti end sub%>