Lista di Nozze : <%=N_Lista_noz%> <% 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 "" 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") & "