Lista Nascita : <%=N_Lista%> <% 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("Cod")))<1 then strSQL = "select " & AddWrappers("Cod") & ", " & Mid(strSQL, 8) if InStr(1, LCase(strSQL), LCase(AddWrappers("Nome")))<1 then strSQL = "select " & AddWrappers("Nome") & ", " & Mid(strSQL, 8) if InStr(1, LCase(strSQL), LCase(AddWrappers("Descrizione")))<1 then strSQL = "select " & AddWrappers("Descrizione") & ", " & Mid(strSQL, 8) if InStr(1, LCase(strSQL), LCase(AddWrappers("Prezzo")))<1 then strSQL = "select " & AddWrappers("Prezzo") & ", " & Mid(strSQL, 8) if InStr(1, LCase(strSQL), LCase(AddWrappers("prenotato")))<1 then strSQL = "select " & AddWrappers("prenotato") & ", " & 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 "" call WriteTableHeader Call loopRs(rsDetails, CLng(Request.Form("pagesize"))) Response.Write("") rsDetails.Close Set rsDetails = Nothing ' display table with results sub loopRs(rs, nPageSize) tPrezzo=0 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 if IsNumeric(rs("Prezzo")) then tPrezzo = tPrezzo + rs("Prezzo") ' To insure that every other one is shaded If iShadeTheDetail = 0 then sShadeClass = "class=shade" iShadeTheDetail = 1 Else sShadeClass = "" iShadeTheDetail = 0 End If %> > <% nColumns = nColumns + 1 %> <% if IsBinaryField(rs.Fields("Cod")) or Format("Cod")=FORMAT_DATABASE_FILE then Response.Write CreateImageControl(rs, "Cod", "") else strData = GetData(rs.Fields("Cod"), "") Response.Write ProcessLargeText(strData) end if %> <% nColumns = nColumns + 1 %> <% if IsBinaryField(rs.Fields("Nome")) or Format("Nome")=FORMAT_DATABASE_FILE then Response.Write CreateImageControl(rs, "Nome", "") else strData = GetData(rs.Fields("Nome"), "") Response.Write ProcessLargeText(strData) end if %> <% nColumns = nColumns + 1 %> <% if IsBinaryField(rs.Fields("Descrizione")) or Format("Descrizione")=FORMAT_DATABASE_FILE then Response.Write CreateImageControl(rs, "Descrizione", "") else strData = GetData(rs.Fields("Descrizione"), "") Response.Write ProcessLargeText(strData) end if %> <% nColumns = nColumns + 1 %> <% if IsBinaryField(rs.Fields("Prezzo")) or Format("Prezzo")=FORMAT_DATABASE_FILE then Response.Write CreateImageControl(rs, "Prezzo", "") else strData = GetData(rs.Fields("Prezzo"), "") Response.Write ProcessLargeText(strData) end if %> <% nColumns = nColumns + 1 %> <% if IsBinaryField(rs.Fields("prenotato")) or Format("prenotato")=FORMAT_DATABASE_FILE then Response.Write CreateImageControl(rs, "prenotato", "") else strData = GetData(rs.Fields("prenotato"), "") Response.Write ProcessLargeText(strData) end if %> <% iNumberOfRows = iNumberOfRows + 1 rs.movenext Loop response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write GetTotal(tPrezzo, "TOTAL", iNumberOfRows, Format("Prezzo")) response.write "" response.write "" response.write "" response.write "" end if end sub sub WriteTableHeader %>

  <% Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" %> <% 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 = "Totale: € " & CStr(value) if stype="AVERAGE" then GetTotal="Average: " & CStr(CDbl(value)/iNumberOfRows) End Function %>

" & Label("Cod") & "

" & Label("Nome") & "

" & Label("Descrizione") & "

" & Label("Prezzo €") & "

" & Label("prenotato") & "