<%@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") RecordsPerPagina = 100 page = Request("page") %> Elenco Buoni Spesa Emessi

Elenco Buoni Spesa Emessi

<% if page="" then page=1 strSQL = "SELECT * FROM Buoni_spesa order by N_Buono_ID ASC" 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 Response.Write ("
") For i=1 to RecordsPerPagina if Not objRS.EOF then Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") objRS.MoveNext end if Next Response.Write ("
N BuonoCognome NomeImportoDurataTitolareScadeEmessoChiuso
" & objRS("N_Buono_ID") & "" & objRS("Cognome_Nome") & "" & objRS("importo") & "" & objRS("durata") & "" & objRS("titolare") & "" & objRS("Scade") & "" & objRS("emesso") & "" & objRS("chiuso") & "
") 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 %>