<%@LANGUAGE = VBScript%> <% Dim DBConn,strconn set dbconn=server.createobject("ADODB.connection") strconn="Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" & Server.MapPath ("/mdb-database/Buoni_Spesa_2015.mdb") dbconn.open strconn Dim objRS Set objRS = Server.CreateObject("ADODB.Recordset") ' numero di record per pagina RecordsPerPagina = 100 page = Request("page") %> Elenco Buoni Spesa Emessi

Elenco Buoni Spesa/Movimenti Emessi

<% if page="" then page=1 'strSQL = "SELECT * FROM Buoni_spesa order by N_Buono_ID ASC" 'strSQL = "SELECT Buoni_Spesa.Cognome_Nome, Movimenti.N_Buono FROM Buoni_spesa LEFT JOIN Movimenti ON Buoni_spesa.N_Buono_ID=Movimenti.N_buono ORDER BY Buoni_spesa.Cognome_nome ASC" strSQL = "SELECT * FROM Movimenti LEFT JOIN Buoni_spesa ON Movimenti.N_buono = Buoni_spesa.N_Buono_ID ORDER BY Buoni_spesa.N_Buono_ID" objRS.open strSQL, DBConn, 1 objRS.PageSize = RecordsPerPagina ' objRS.AbsolutePage = page If objRS.Eof=True or objRS.Bof=True then Response.Write "

Nessun risultato trovato

" Else objRS.AbsolutePage = page Response.Write ("") 'conta = 0 M_Cognome_nome_OLD = "" M_Cognome_nome = "" somma = 0 For i=1 to RecordsPerPagina if Not objRS.EOF then M_cognome_nome = objRS("Cognome_Nome") if M_cognome_nome <> M_cognome_nome_OLD then somma = 0 Response.Write("") 'M_cognome_nome = objRS("Cognome_Nome") Response.Write("") Response.Write("") M_importo = objRS("importo") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") somma = somma + M_importo ' dati movimento Response.Write("") Response.Write("") Response.Write("") M_movimento = objRS("Movimento") somma = somma + M_movimento Response.Write("") Response.Write("") M_cognome_nome_OLD = M_cognome_nome else M_cognome_nome_OLD = M_cognome_nome Response.Write("") Response.Write("") Response.Write("") M_movimento = objRS("Movimento") somma = somma + M_movimento Response.Write("") Response.Write("") end if objRS.MoveNext end if Next Response.Write ("

N Buono	Cognome Nome	Importo	Durata	Titolare	Scade	Emesso	Chiuso
" & objRS("N_Buono_ID") & "	" & objRS("Cognome_Nome") & "	" & objRS("importo") & "	" & objRS("durata") & "	" & objRS("titolare") & "	" & objRS("Scade") & "	" & objRS("emesso") & "	" & objRS("chiuso") & "
" & objRS("N_Buono") & "	" & space(Len(objRS("Cognome_Nome"))) & "	" & objRS("Movimento") & "	" & somma & "	" & objRS("Data_movimento") & "
" & objRS("N_Buono") & "	" & space(Len(objRS("Cognome_Nome"))) & "	" & objRS("Movimento") & "	" & somma & "	" & objRS("Data_movimento") & "

") End if 'Response.Write "

Pagine: " 'For pag=1 to objRS.PageCount ' Response.Write "" ' Response.Write pag ' Response.Write " " 'Next 'Response.Write "

" %>

<% objRS.Close Set objRS=Nothing DBConn.Close Set DBConn=Nothing %>