Diminuire i Recordset

[Menion83]

Ciao Ragazzi!
Sto trasformando il mio sito dal php in asp e costruendo la pagina dell'ultima stagione (si tratta di un sito sportivo) mi sono accorto che ci sono troppi recordset. Questo potrebbe appesantire troppo il server e di conseguenza le performance del sito.
Sinceramente ho provato ad ottimizzare l'SQL ma senza riuscirci.
C'è un modo per diminuire tutti questi recordset?

<%
Dim Recordset8
Dim Recordset8_numRows

Set Recordset8 = Server.CreateObject("ADODB.Recordset")
Recordset8.ActiveConnection = MM_cnn_database_STRING
Recordset8.Source = "SELECT * FROM News"
Recordset8.CursorType = 0
Recordset8.CursorLocation = 2
Recordset8.LockType = 1
Recordset8.Open()

Recordset8_numRows = 0
%>
<%
Dim Recordset9
Dim Recordset9_numRows

Set Recordset9 = Server.CreateObject("ADODB.Recordset")
Recordset9.ActiveConnection = MM_cnn_database_STRING
Recordset9.Source = "SELECT * FROM Partite WHERE Ultima = 1 ORDER BY Id DESC"
Recordset9.CursorType = 0
Recordset9.CursorLocation = 2
Recordset9.LockType = 1
Recordset9.Open()

Recordset9_numRows = 0
%>
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_cnn_database_STRING
Recordset1.Source = "SELECT * FROM Partite WHERE Stagione = '2006-2007' ORDER BY Id ASC"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<%
Dim Recordset2
Dim Recordset2_numRows

Set Recordset2 = Server.CreateObject("ADODB.Recordset")
Recordset2.ActiveConnection = MM_cnn_database_STRING
Recordset2.Source = "SELECT Sum(RisultatoUnited) AS United FROM Partite WHERE stagione = '2006-2007'"
Recordset2.CursorType = 0
Recordset2.CursorLocation = 2
Recordset2.LockType = 1
Recordset2.Open()

Recordset2_numRows = 0
%>
<%
Dim Recordset3
Dim Recordset3_numRows

Set Recordset3 = Server.CreateObject("ADODB.Recordset")
Recordset3.ActiveConnection = MM_cnn_database_STRING
Recordset3.Source = "SELECT Sum(RisultatoAvversario) AS Avversario FROM Partite WHERE stagione = '2006-2007'"
Recordset3.CursorType = 0
Recordset3.CursorLocation = 2
Recordset3.LockType = 1
Recordset3.Open()

Recordset3_numRows = 0
%>
<%
Dim Recordset4
Dim Recordset4_numRows

Set Recordset4 = Server.CreateObject("ADODB.Recordset")
Recordset4.ActiveConnection = MM_cnn_database_STRING
Recordset4.Source = "SELECT COUNT(*) AS Partite FROM Partite WHERE stagione = '2006-2007'"
Recordset4.CursorType = 0
Recordset4.CursorLocation = 2
Recordset4.LockType = 1
Recordset4.Open()

Recordset4_numRows = 0
%>
<%
Dim Recordset5
Dim Recordset5_numRows

Set Recordset5 = Server.CreateObject("ADODB.Recordset")
Recordset5.ActiveConnection = MM_cnn_database_STRING
Recordset5.Source = "SELECT Count (*) AS PartiteCasa FROM Partite WHERE CasaTrasfertaNeutro LIKE 'Old Trafford' AND stagione = '2006-2007'"
Recordset5.CursorType = 0
Recordset5.CursorLocation = 2
Recordset5.LockType = 1
Recordset5.Open()

Recordset5_numRows = 0
%>
<%
Dim Recordset6
Dim Recordset6_numRows

Set Recordset6 = Server.CreateObject("ADODB.Recordset")
Recordset6.ActiveConnection = MM_cnn_database_STRING
Recordset6.Source = "SELECT Count (*) AS PartiteTrasferta FROM Partite WHERE CasaTrasfertaNeutro LIKE 'Trasferta' AND stagione = '2006-2007'"
Recordset6.CursorType = 0
Recordset6.CursorLocation = 2
Recordset6.LockType = 1
Recordset6.Open()

Recordset6_numRows = 0
%>
<%
Dim Recordset7
Dim Recordset7_numRows

Set Recordset7 = Server.CreateObject("ADODB.Recordset")
Recordset7.ActiveConnection = MM_cnn_database_STRING
Recordset7.Source = "SELECT Count (*) AS PartiteNeutro FROM Partite WHERE CasaTrasfertaNeutro LIKE 'Neutro' AND stagione = '2006-2007'"
Recordset7.CursorType = 0
Recordset7.CursorLocation = 2
Recordset7.LockType = 1
Recordset7.Open()

Recordset7_numRows = 0
%>
<%
Dim Recordset10
Dim Recordset10_numRows

Set Recordset10 = Server.CreateObject("ADODB.Recordset")
Recordset10.ActiveConnection = MM_cnn_database_STRING
Recordset10.Source = "SELECT COUNT(Esito) AS Vittoria FROM Partite WHERE esito = 'Vittoria' AND stagione = '2006-2007'"
Recordset10.CursorType = 0
Recordset10.CursorLocation = 2
Recordset10.LockType = 1
Recordset10.Open()

Recordset10_numRows = 0
%>
<%
Dim Recordset11
Dim Recordset11_numRows

Set Recordset11 = Server.CreateObject("ADODB.Recordset")
Recordset11.ActiveConnection = MM_cnn_database_STRING
Recordset11.Source = "SELECT COUNT(Esito) AS Pareggio FROM Partite WHERE esito = 'Pareggio' AND stagione = '2006-2007'"
Recordset11.CursorType = 0
Recordset11.CursorLocation = 2
Recordset11.LockType = 1
Recordset11.Open()

Recordset11_numRows = 0
%>
<%
Dim Recordset12
Dim Recordset12_numRows

Set Recordset12 = Server.CreateObject("ADODB.Recordset")
Recordset12.ActiveConnection = MM_cnn_database_STRING
Recordset12.Source = "SELECT COUNT(Esito) AS Sconfitte FROM Partite WHERE esito = 'Sconfitta' AND stagione = '2006-2007'"
Recordset12.CursorType = 0
Recordset12.CursorLocation = 2
Recordset12.LockType = 1
Recordset12.Open()

Recordset12_numRows = 0
%>
<%
Dim Recordset13
Dim Recordset13_numRows

Set Recordset13 = Server.CreateObject("ADODB.Recordset")
Recordset13.ActiveConnection = MM_cnn_database_STRING
Recordset13.Source = "SELECT COUNT(Esito) AS VittoriaOldTrafford FROM Partite WHERE esito = 'Vittoria' AND stagione = '2006-2007' and CasaTrasfertaNeutro = 'Old Trafford'"
Recordset13.CursorType = 0
Recordset13.CursorLocation = 2
Recordset13.LockType = 1
Recordset13.Open()

Recordset13_numRows = 0
%>
<%
Dim Recordset14
Dim Recordset14_numRows

Set Recordset14 = Server.CreateObject("ADODB.Recordset")
Recordset14.ActiveConnection = MM_cnn_database_STRING
Recordset14.Source = "SELECT COUNT(Esito) AS PareggioTrasferta FROM Partite WHERE esito = 'Pareggio' AND stagione = '2006-2007' and casatrasfertaneutro = 'Trasferta'"
Recordset14.CursorType = 0
Recordset14.CursorLocation = 2
Recordset14.LockType = 1
Recordset14.Open()

Recordset14_numRows = 0
%>
<%
Dim Recordset15
Dim Recordset15_numRows

Set Recordset15 = Server.CreateObject("ADODB.Recordset")
Recordset15.ActiveConnection = MM_cnn_database_STRING
Recordset15.Source = "SELECT COUNT(Esito) AS VittoriaTrasferta FROM Partite WHERE esito = 'Vittoria' AND stagione = '2006-2007' and CasaTrasfertaNeutro = 'Trasferta'"
Recordset15.CursorType = 0
Recordset15.CursorLocation = 2
Recordset15.LockType = 1
Recordset15.Open()

Recordset15_numRows = 0
%>
<%
Dim Recordset16
Dim Recordset16_numRows

Set Recordset16 = Server.CreateObject("ADODB.Recordset")
Recordset16.ActiveConnection = MM_cnn_database_STRING
Recordset16.Source = "SELECT COUNT(Esito) AS VittoriaNeutro FROM Partite WHERE esito = 'Vittoria' AND stagione = '2006-2007' and CasaTrasfertaNeutro = 'Neutro'"
Recordset16.CursorType = 0
Recordset16.CursorLocation = 2
Recordset16.LockType = 1
Recordset16.Open()

Recordset16_numRows = 0
%>
<%
Dim Recordset17
Dim Recordset17_numRows

Set Recordset17 = Server.CreateObject("ADODB.Recordset")
Recordset17.ActiveConnection = MM_cnn_database_STRING
Recordset17.Source = "SELECT COUNT(Esito) AS PareggioCasa FROM Partite WHERE esito = 'Pareggio' AND stagione = '2006-2007' and casatrasfertaneutro = 'Old Trafford'"
Recordset17.CursorType = 0
Recordset17.CursorLocation = 2
Recordset17.LockType = 1
Recordset17.Open()

Recordset17_numRows = 0
%>
<%
Dim Recordset18
Dim Recordset18_numRows

Set Recordset18 = Server.CreateObject("ADODB.Recordset")
Recordset18.ActiveConnection = MM_cnn_database_STRING
Recordset18.Source = "SELECT COUNT(Esito) AS PareggioNeutro FROM Partite WHERE esito = 'Pareggio' AND stagione = '2006-2007' and casatrasfertaneutro = 'Neutro'"
Recordset18.CursorType = 0
Recordset18.CursorLocation = 2
Recordset18.LockType = 1
Recordset18.Open()

Recordset18_numRows = 0
%>
<%
Dim Recordset19
Dim Recordset19_numRows

Set Recordset19 = Server.CreateObject("ADODB.Recordset")
Recordset19.ActiveConnection = MM_cnn_database_STRING
Recordset19.Source = "SELECT COUNT(Esito) AS VittorieCasa FROM Partite WHERE esito = 'Sconfitta' AND stagione = '2006-2007' and casatrasfertaneutro = 'Old Trafford'"
Recordset19.CursorType = 0
Recordset19.CursorLocation = 2
Recordset19.LockType = 1
Recordset19.Open()

Recordset19_numRows = 0
%>
<%
Dim Recordset20
Dim Recordset20_numRows

Set Recordset20 = Server.CreateObject("ADODB.Recordset")
Recordset20.ActiveConnection = MM_cnn_database_STRING
Recordset20.Source = "SELECT COUNT(Esito) AS VittorieTrasferta FROM Partite WHERE esito = 'Sconfitta' AND stagione = '2006-2007' and casatrasfertaneutro = 'Trasferta'"
Recordset20.CursorType = 0
Recordset20.CursorLocation = 2
Recordset20.LockType = 1
Recordset20.Open()

Recordset20_numRows = 0
%>
<%
Dim Recordset21
Dim Recordset21_numRows

Set Recordset21 = Server.CreateObject("ADODB.Recordset")
Recordset21.ActiveConnection = MM_cnn_database_STRING
Recordset21.Source = "SELECT COUNT(Esito) AS VittorieNeutro FROM Partite WHERE esito = 'Sconfitta' AND stagione = '2006-2007' and casatrasfertaneutro = 'Neutro'"
Recordset21.CursorType = 0
Recordset21.CursorLocation = 2
Recordset21.LockType = 1
Recordset21.Open()

Recordset21_numRows = 0
%>
<%
Dim Recordset22
Dim Recordset22_numRows

Set Recordset22 = Server.CreateObject("ADODB.Recordset")
Recordset22.ActiveConnection = MM_cnn_database_STRING
Recordset22.Source = "SELECT Sum(RisultatoUnited) AS UnitedCasa FROM Partite WHERE stagione = '2006-2007' AND casatrasfertaneutro = 'Old Trafford'"
Recordset22.CursorType = 0
Recordset22.CursorLocation = 2
Recordset22.LockType = 1
Recordset22.Open()

Recordset22_numRows = 0
%>
<%
Dim Recordset23
Dim Recordset23_numRows

Set Recordset23 = Server.CreateObject("ADODB.Recordset")
Recordset23.ActiveConnection = MM_cnn_database_STRING
Recordset23.Source = "SELECT Sum(RisultatoUnited) AS UnitedTrasferta FROM Partite WHERE stagione = '2006-2007' AND casatrasfertaneutro = 'Trasferta'"
Recordset23.CursorType = 0
Recordset23.CursorLocation = 2
Recordset23.LockType = 1
Recordset23.Open()

Recordset23_numRows = 0
%>
<%
Dim Recordset24
Dim Recordset24_numRows

Set Recordset24 = Server.CreateObject("ADODB.Recordset")
Recordset24.ActiveConnection = MM_cnn_database_STRING
Recordset24.Source = "SELECT Sum(RisultatoUnited) AS UnitedNeutro FROM Partite WHERE stagione = '2006-2007' AND casatrasfertaneutro = 'Neutro'"
Recordset24.CursorType = 0
Recordset24.CursorLocation = 2
Recordset24.LockType = 1
Recordset24.Open()

Recordset24_numRows = 0
%>
<%
Dim Recordset25
Dim Recordset25_numRows

Set Recordset25 = Server.CreateObject("ADODB.Recordset")
Recordset25.ActiveConnection = MM_cnn_database_STRING
Recordset25.Source = "SELECT Sum(RisultatoAvversario) AS AvversarioCasa FROM Partite WHERE stagione = '2006-2007' AND casatrasfertaneutro = 'Old Trafford'"
Recordset25.CursorType = 0
Recordset25.CursorLocation = 2
Recordset25.LockType = 1
Recordset25.Open()

Recordset25_numRows = 0
%>
<%
Dim Recordset26
Dim Recordset26_numRows

Set Recordset26 = Server.CreateObject("ADODB.Recordset")
Recordset26.ActiveConnection = MM_cnn_database_STRING
Recordset26.Source = "SELECT Sum(RisultatoAvversario) AS AvversarioTrasferta FROM Partite WHERE stagione = '2006-2007' AND casatrasfertaneutro = 'Trasferta'"
Recordset26.CursorType = 0
Recordset26.CursorLocation = 2
Recordset26.LockType = 1
Recordset26.Open()

Recordset26_numRows = 0
%>
<%
Dim Recordset27
Dim Recordset27_numRows

Set Recordset27 = Server.CreateObject("ADODB.Recordset")
Recordset27.ActiveConnection = MM_cnn_database_STRING
Recordset27.Source = "SELECT Sum(RisultatoAvversario) AS AvversarioNeutro FROM Partite WHERE stagione = '2006-2007' AND casatrasfertaneutro = 'Neutro'"
Recordset27.CursorType = 0
Recordset27.CursorLocation = 2
Recordset27.LockType = 1
Recordset27.Open()

Recordset27_numRows = 0
%>

27 Recordset possono sembrare eccessivi però servono per poter gestire tutte le statistiche della stagione:

Partite: {Recordset4.Partite} - Casa: {Recordset5.PartiteCasa} - Trasferta: {Recordset6.PartiteTrasferta} - Neutro: {Recordset7.PartiteNeutro} - Vittorie: {Recordset10.Vittoria} - Pareggi: {Recordset11.Pareggio} - Sconfitte: {Recordset12.Sconfitte}

Vittorie in Casa: {Recordset13.VittoriaOldTrafford} - Trasferta: {Recordset15.VittoriaTrasferta} - Neutro: {Recordset16.VittoriaNeutro} - Pareggi in Casa: {Recordset17.PareggioCasa} - Trasferta: {Recordset14.PareggioTrasferta} - Neutro: {Recordset18.PareggioNeutro} - Sconfitte in Casa: {Recordset19.VittorieCasa} - Trasferta: {Recordset20.VittorieTrasferta} - Neutro: {Recordset21.VittorieNeutro}

Gol Fatti: {Recordset2.United} - Gol Subiti: {Recordset3.Avversario} - Gol Fatti in Casa:{Recordset22.UnitedCasa} - Trasferta: {Recordset23.UnitedTrasferta} - Neutro: {Recordset24.UnitedNeutro} - Gol Subiti in Casa: {Recordset25.AvversarioCasa} - Trasferta: {Recordset26.AvversarioTrasferta} - Neutro: {Recordset27.AvversarioNeutro}

Spero in un maestro di SQL.
CIAO!

[newuser]

Le query sono tutte statiche, puoi quindi raggrupparle in una unica usando più subquery nella forma:

SELECT
	(SELECT COUNT(*) FROM Partite WHERE stagione = '2006-2007 ) AS Partite,
	(SELECT Count (*) FROM Partite WHERE CasaTrasfertaNeutro LIKE 'Old Trafford' AND stagione = '2006-2007) AS PartiteCasa

Questa query ritorna un record con due campi, puoi aggiungere tutte le altre nello stesso modo.

[Menion83]

Grazie per la risposta!!!

Quindi dovrebbe essere cosi la query?

SELECT

(SELECT * FROM Partite WHERE Stagione = '2006-2007' ORDER BY Id ASC) AS Partite,
(SELECT * FROM News) AS News,
(SELECT * FROM Partite WHERE Ultima = 1 ORDER BY Id DESC) AS UltimePartite,
(SELECT Sum(RisultatoUnited) FROM Partite WHERE stagione = '2006-2007') AS RisultatoUnited,
(SELECT Sum(RisultatoAvversario) FROM Partite WHERE stagione = '2006-2007') AS Avversario ,
(SELECT COUNT(*) FROM Partite WHERE stagione = '2006-2007') AS ContaPartite,
(SELECT Count (*) FROM Partite WHERE CasaTrasfertaNeutro LIKE 'Old Trafford' AND stagione = '2006-2007') AS ContaPartiteCasa,
(SELECT Count (*) FROM Partite WHERE CasaTrasfertaNeutro LIKE 'Trasferta' AND stagione = '2006-2007') AS ContaPartiteTrasferta,
(SELECT Count (*) FROM Partite WHERE CasaTrasfertaNeutro LIKE 'Neutro' AND stagione = '2006-2007') AS ContaPartiteNeutro,
(SELECT COUNT(Esito) FROM Partite WHERE esito = 'Vittoria' AND stagione = '2006-2007') AS ContaVittorieTotali,
(SELECT COUNT(Esito) FROM Partite WHERE esito = 'Pareggio' AND stagione = '2006-2007') AS ContaPareggiTotali,
(SELECT COUNT(Esito) FROM Partite WHERE esito = 'Sconfitta' AND stagione = '2006-2007') AS ContaSconfitteTotali ,
(SELECT COUNT(Esito) FROM Partite WHERE esito = 'Vittoria' AND stagione = '2006-2007' and CasaTrasfertaNeutro = 'Old Trafford') AS ContaVittorieOldTrafford,
(SELECT COUNT(Esito) FROM Partite WHERE esito = 'Pareggio' AND stagione = '2006-2007' and casatrasfertaneutro = 'Old Trafford') AS ContaPareggiOldTrafford,
(SELECT COUNT(Esito) FROM Partite WHERE esito = 'Sconfitta' AND stagione = '2006-2007' and casatrasfertaneutro = 'Old Trafford') AS ContaSconfitteOldTrafford,
(SELECT COUNT(Esito) FROM Partite WHERE esito = 'Vittoria' AND stagione = '2006-2007' and CasaTrasfertaNeutro = 'Trasferta') AS ContaVittorieTrasferta,
(SELECT COUNT(Esito) FROM Partite WHERE esito = 'Pareggio' AND stagione = '2006-2007' and casatrasfertaneutro = 'Trasferta') AS ContaPareggiTrasferta,
(SELECT COUNT(Esito) FROM Partite WHERE esito = 'Sconfitta' AND stagione = '2006-2007' and casatrasfertaneutro = 'Trasferta') AS ContaSconfitteTrasferta,
(SELECT COUNT(Esito) FROM Partite WHERE esito = 'Vittoria' AND stagione = '2006-2007' and CasaTrasfertaNeutro = 'Neutro') AS ContaVittorieNeutro,
(SELECT COUNT(Esito) FROM Partite WHERE esito = 'Pareggio' AND stagione = '2006-2007' and casatrasfertaneutro = 'Neutro') AS ContaPareggiNeutro,
(SELECT COUNT(Esito) FROM Partite WHERE esito = 'Sconfitta' AND stagione = '2006-2007' and casatrasfertaneutro = 'Neutro') AS ContaSconfitteNeutro,
(SELECT Sum(RisultatoUnited) FROM Partite WHERE stagione = '2006-2007' AND casatrasfertaneutro = 'Old Trafford') AS GolFattiOldTrafford,
(SELECT Sum(RisultatoUnited) FROM Partite WHERE stagione = '2006-2007' AND casatrasfertaneutro = 'Trasferta') AS GolFattiTrasferta,
(SELECT Sum(RisultatoUnited) FROM Partite WHERE stagione = '2006-2007' AND casatrasfertaneutro = 'Neutro') AS GolFattiNeutro,
(SELECT Sum(RisultatoAvversario) FROM Partite WHERE stagione = '2006-2007' AND casatrasfertaneutro = 'Old Trafford') AS GolSubitiOldTrafford,
(SELECT Sum(RisultatoAvversario) FROM Partite WHERE stagione = '2006-2007' AND casatrasfertaneutro = 'Trasferta') AS GolSubitiTrasferta,
(SELECT Sum(RisultatoAvversario) FROM Partite WHERE stagione = '2006-2007' AND casatrasfertaneutro = 'Neutro') AS GolSubitiNeutro)

La devo semplicemente mettere al posto della query nel recordset1?
CIAO!