Modifica di un file

Modificare il file: \Buoni_Spesa_2015\Buoni-Spesa-2015-01\Visualizza.asp

<% Dim DBConn,strconn 
set dbconn=server.createobject("ADODB.connection")
  strconn="Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" & Server.MapPath ("/mdb-database/database/database.mdb")
   dbconn.open strconn

Dim objRS 
Set objRS = Server.CreateObject("ADODB.Recordset") 
RecordsPerPagina = 5 
page = Request("page")

if page="" then page=1

strSQL = "SELECT * FROM Tabella order by codice ASC" 
	
	objRS.open strSQL, DBConn, 1

objRS.PageSize = RecordsPerPagina

objRS.AbsolutePage = page

If objRS.Eof=True or objRS.Bof=True then

Response.Write "<P>Nessun risultato trovato</P>"

Else

Response.Write ("<center><table border=1><tr><th bgcolor=lightyellow>Codice</th><th bgcolor=lightyellow>Descrizione</th></tr>")

For i=1 to RecordsPerPagina

if Not objRS.EOF then

Response.Write("<tr><td>" & objRS("codice") & "</td>")

Response.Write("<td>" & objRS("descrizione") & "</td>")

'Response.Write("<td>" & objRS("nickname") & "</td></tr>")

objRS.MoveNext

end if

Response.Write ("</table></center>")

End if

Response.Write "<P><B>Pagine:</B> "

For pag=1 to objRS.PageCount

Response.Write "<A href='default.asp?page=" & pag & "'>"

Response.Write pag

Response.Write "</A> "

Response.Write "</P>"

objRS.Close

Set objRS=Nothing

DBConn.Close

Set DBConn=Nothing

[Íàçàä]