Modificare il file: \Admin\Admins_print.asp

<%@ Language=VBScript %> <!--#include file="include/Admins_dbconnection.asp"--> <!--#include file="include/Admins_variables.asp"--> <!--#include file="include/Admins_aspfunctions.asp"--> <link REL="stylesheet" href="include/style.css" type="text/css"> <% Session.LCID = 1040 On Error Resume Next strSQL = Session(strTableName & "SQL") if Len(strSQL)<3 then strSQL = gstrSQL if InStr(1, LCase(strSQL), LCase(AddWrappers("ID")))<1 then strSQL = "select " & AddWrappers("ID") & ", " & Mid(strSQL, 8) if InStr(1, LCase(strSQL), LCase(AddWrappers("Username")))<1 then strSQL = "select " & AddWrappers("Username") & ", " & Mid(strSQL, 8) if InStr(1, LCase(strSQL), LCase(AddWrappers("Password")))<1 then strSQL = "select " & AddWrappers("Password") & ", " & Mid(strSQL, 8) if InStr(1, LCase(strSQL), LCase(AddWrappers("accesso")))<1 then strSQL = "select " & AddWrappers("accesso") & ", " & Mid(strSQL, 8) if InStr(1, LCase(strSQL), LCase(AddWrappers("lista")))<1 then strSQL = "select " & AddWrappers("lista") & ", " & Mid(strSQL, 8) if InStr(1, LCase(strSQL), LCase(AddWrappers("pin")))<1 then strSQL = "select " & AddWrappers("pin") & ", " & Mid(strSQL, 8) set dbConnection = server.CreateObject ("ADODB.Connection") dbConnection.ConnectionString = strConnection dbConnection.Open Set rsDetails = server.CreateObject ("ADODB.Recordset") rsDetails.Open strSQL, dbConnection if NOT rsDetails.EOF then mypage = Request.Form("mypage") rsDetails.PageSize = Request.Form("pagesize") maxRecords = cdbl(rsDetails.RecordCount) maxPages=cdbl(rsDetails.PageCount) if cdbl(mypage) > cdbl(maxPages) then mypage = maxpages End IF rsDetails.AbsolutePage = mypage maxrecs=cdbl(rsDetails.pagesize) End IF Response.Write "<table align='center' width='95%' border='0' cellpadding=3 cellspacing=2>" call WriteTableHeader Call loopRs(rsDetails, CLng(Request.Form("pagesize"))) Response.Write("</table>") rsDetails.Close Set rsDetails = Nothing ' display table with results sub loopRs(rs, nPageSize) if nPageSize=0 then nPageSize=PageSize ' Pagination: dim iShadeTheDetail, iNumberOfRows, nColumns nColumns = 0 iNumberOfRows = 0 if isObject(rs) then ' Pagination: UNTIL iNumberOfRows>=maxrecs DO UNTIL rs.eof OR iNumberOfRows>=nPageSize ' To insure that every other one is shaded If iShadeTheDetail = 0 then sShadeClass = "class=shade" iShadeTheDetail = 1 Else sShadeClass = "" iShadeTheDetail = 0 End If %> <tr valign=top <%=sShadeClass%> > <% nColumns = nColumns + 1 %> <TD> <% if IsBinaryField(rs.Fields("ID")) or Format("ID")=FORMAT_DATABASE_FILE then Response.Write CreateImageControl(rs, "ID", "") else strData = GetData(rs.Fields("ID"), "") Response.Write ProcessLargeText(strData) end if %> </td> <% nColumns = nColumns + 1 %> <TD> <% if IsBinaryField(rs.Fields("Username")) or Format("Username")=FORMAT_DATABASE_FILE then Response.Write CreateImageControl(rs, "Username", "") else strData = GetData(rs.Fields("Username"), "") Response.Write ProcessLargeText(strData) end if %> </td> <% nColumns = nColumns + 1 %> <TD> <% if IsBinaryField(rs.Fields("Password")) or Format("Password")=FORMAT_DATABASE_FILE then Response.Write CreateImageControl(rs, "Password", "") else strData = GetData(rs.Fields("Password"), "") Response.Write ProcessLargeText(strData) end if %> </td> <% nColumns = nColumns + 1 %> <TD> <% if IsBinaryField(rs.Fields("accesso")) or Format("accesso")=FORMAT_DATABASE_FILE then Response.Write CreateImageControl(rs, "accesso", "") else strData = GetData(rs.Fields("accesso"), "") Response.Write ProcessLargeText(strData) end if %> </td> <% nColumns = nColumns + 1 %> <TD> <% if IsBinaryField(rs.Fields("lista")) or Format("lista")=FORMAT_DATABASE_FILE then Response.Write CreateImageControl(rs, "lista", "") else strData = GetData(rs.Fields("lista"), "") Response.Write ProcessLargeText(strData) end if %> </td> <% nColumns = nColumns + 1 %> <TD> <% if IsBinaryField(rs.Fields("pin")) or Format("pin")=FORMAT_DATABASE_FILE then Response.Write CreateImageControl(rs, "pin", "") else strData = GetData(rs.Fields("pin"), "") Response.Write ProcessLargeText(strData) end if %> </td> </tr> <% iNumberOfRows = iNumberOfRows + 1 rs.movenext Loop end if end sub sub WriteTableHeader %> <table align='center' width='95%' border='0' cellpadding=3 cellspacing=2> <tr> <% Response.Write "<td class=blackshade>" & Label("ID") & "</td>" Response.Write "<td class=blackshade>" & Label("Username") & "</td>" Response.Write "<td class=blackshade>" & Label("Password") & "</td>" Response.Write "<td class=blackshade>" & Label("accesso") & "</td>" Response.Write "<td class=blackshade>" & Label("lista") & "</td>" Response.Write "<td class=blackshade>" & Label("pin") & "</td>" %> </tr> <% end sub Function GetTotal(value, stype, iNumberOfRows, sFormat) if sFormat = FORMAT_CURRENCY and value<>"" then value = FormatCurrency(value) elseif sFormat = FORMAT_NUMBER and value<>"" then value = FormatNumber(CDbl(value), 2) end if if stype="COUNT" then GetTotal= "Count: " & CStr(iNumberOfRows) if stype="TOTAL" then GetTotal = "Total: " & CStr(value) if stype="AVERAGE" then GetTotal="Average: " & CStr(CDbl(value)/iNumberOfRows) End Function %>

[Íàçàä]