Ho una pagina asp dove voglio fare delle statistiche su un db access.
ci sto riuscendo, ma vorrei sapere cosa comporta avere una pagina con tanti recordset come sta venendo fuori questa:
codice:
<%
Dim rs_conta_aperti
Dim rs_conta_aperti_cmd
Dim rs_conta_aperti_numRows

Set rs_conta_aperti_cmd = Server.CreateObject ("ADODB.Command")
rs_conta_aperti_cmd.ActiveConnection = MM_conn_db_interventi_STRING
rs_conta_aperti_cmd.CommandText = "SELECT COUNT(*) FROM query_interventi WHERE intervento_stato = 0" 
rs_conta_aperti_cmd.Prepared = true

Set rs_conta_aperti = rs_conta_aperti_cmd.Execute
rs_conta_aperti_numRows = 0
%>
<%
Dim rs_conta_chiusi
Dim rs_conta_chiusi_cmd
Dim rs_conta_chiusi_numRows

Set rs_conta_chiusi_cmd = Server.CreateObject ("ADODB.Command")
rs_conta_chiusi_cmd.ActiveConnection = MM_conn_db_interventi_STRING
rs_conta_chiusi_cmd.CommandText = "SELECT COUNT(*) FROM query_interventi WHERE intervento_stato = -1" 
rs_conta_chiusi_cmd.Prepared = true

Set rs_conta_chiusi = rs_conta_chiusi_cmd.Execute
rs_conta_chiusi_numRows = 0
%>
<%
Dim rs_totale
Dim rs_totale_cmd
Dim rs_totale_numRows

Set rs_totale_cmd = Server.CreateObject ("ADODB.Command")
rs_totale_cmd.ActiveConnection = MM_conn_db_interventi_STRING
rs_totale_cmd.CommandText = "SELECT COUNT(*) FROM query_interventi" 
rs_totale_cmd.Prepared = true

Set rs_totale = rs_totale_cmd.Execute
rs_totale_numRows = 0
%>
<%
Dim rs_conta_aperti_oggi
Dim rs_conta_aperti_oggi_cmd
Dim rs_conta_aperti_oggi_numRows

Set rs_conta_aperti_oggi_cmd = Server.CreateObject ("ADODB.Command")
rs_conta_aperti_oggi_cmd.ActiveConnection = MM_conn_db_interventi_STRING
rs_conta_aperti_oggi_cmd.CommandText = "SELECT COUNT(*) FROM query_interventi WHERE intervento_stato = 0 AND richiesta_data = date()" 
rs_conta_aperti_oggi_cmd.Prepared = true

Set rs_conta_aperti_oggi = rs_conta_aperti_oggi_cmd.Execute
rs_conta_aperti_oggi_numRows = 0
%>
<%
Dim rs_conta_chiusi_oggi
Dim rs_conta_chiusi_oggi_cmd
Dim rs_conta_chiusi_oggi_numRows

Set rs_conta_chiusi_oggi_cmd = Server.CreateObject ("ADODB.Command")
rs_conta_chiusi_oggi_cmd.ActiveConnection = MM_conn_db_interventi_STRING
rs_conta_chiusi_oggi_cmd.CommandText = "SELECT COUNT(*) FROM query_interventi WHERE intervento_stato = -1 AND richiesta_data = date()" 
rs_conta_chiusi_oggi_cmd.Prepared = true

Set rs_conta_chiusi_oggi = rs_conta_chiusi_oggi_cmd.Execute
rs_conta_chiusi_oggi_numRows = 0
%>
<%
Dim rs_totale_oggi
Dim rs_totale_oggi_cmd
Dim rs_totale_oggi_numRows

Set rs_totale_oggi_cmd = Server.CreateObject ("ADODB.Command")
rs_totale_oggi_cmd.ActiveConnection = MM_conn_db_interventi_STRING
rs_totale_oggi_cmd.CommandText = "SELECT COUNT(*) FROM query_interventi WHERE richiesta_data = date()" 
rs_totale_oggi_cmd.Prepared = true

Set rs_totale_oggi = rs_totale_oggi_cmd.Execute
rs_totale_oggi_numRows = 0
%>