Menion83
12-06-2007, 14:43
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!
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!