<% if SESSION("UserID")="" then SESSION("MyURL")=request.ServerVariables("SCRIPT_NAME")&"?"&request.ServerVariables("QUERY_STRING") response.Redirect "login.asp?message=expired" response.End end if if not CheckSecurity(SESSION("_" & strTableName & "_OwnerID"),"Export") then response.Write "

" & "Non hai il permesso per accedere a questa tabella" & "" & "Torna alla pagina di login" & "

" response.End end if dbConnection="" db_connect() DoEvent "BeforeProcessExport dbConnection" options ="1" if request("a")<>"" then sWhere = "1=0" options ="" 'process selection set selected_recs = CreateObject("Scripting.Dictionary") if request("mdelete[]").Count>0 then for ind=1 to request("mdelete[]").Count set keys = CreateObject("Scripting.Dictionary") AddDict keys,"N_Buono",request("mdelete1[]").Item(request("mdelete[]").Item(ind)) AddDict selected_recs, ind, keys next elseif request("selection[]").Count>0 then for ind=1 to request("selection[]").Count set keys = CreateObject("Scripting.Dictionary") arr = split(request("selection[]").Item(ind) ,"&") if UBound(arr)-LBound(arr) = 1 - 1 then AddDict keys,"N_Buono", HTMLDecode(arr(0)) AddDict selected_recs, ind, keys end if next end if sr = selected_recs.Items for ind=1 to selected_recs.Count set keys = sr(ind-1) sWhere=sWhere & " or " sWhere=sWhere & KeyWhere(keys,"") next strSQL = gSQLWhereAdd(sWhere) strWhereClause=sWhere SESSION(strTableName & "_SelectedSQL") = strSQL SESSION(strTableName & "_SelectedWhere") = sWhere end if smarty.Add "options",options if SESSION(strTableName & "_SelectedSQL")<>"" and request.QueryString("records")="" then strSQL = SESSION(strTableName & "_SelectedSQL") strWhereClause=SESSION(strTableName & "_SelectedWhere") else strWhereClause=SESSION(strTableName & "_where") strSQL=gSQLWhereAdd(strWhereClause) end if mypage=1 if REQUEST("type")<>"" then Set rs = server.CreateObject("ADODB.Recordset") Set rss = server.CreateObject("ADODB.Recordset") strOrderBy=SESSION(strTableName & "_order") if strOrderBy="" then _ strOrderBy=gstrOrderBy strSQL= strSQL & " " & trim(strOrderBy) strSQLbak = strSQL DoEvent "BeforeQueryExport strSQL,strWhereClause,strOrderBy" ' Rebuild SQL if needed if strSQLbak <> strSQL then ' changed strSQL - old style numrows=GetRowCount(strSQL) else strSQL = gSQLWhereAdd(strWhereClause) strSQL= strSQL & " " & trim(strOrderBy) numrows=gSQLRowCount(strWhereClause) end if LogInfo(strSQL) '// pagination nPageSize=0 if REQUEST("records")="page" and numrows>0 then mypage=SESSION(strTableName & "_pagenumber") nPageSize=SESSION(strTableName & "_pagesize") if numrows<=(mypage-1)*nPageSize then mypage=int(numrows/nPageSize) end if if nPageSize="" then nPageSize=gPageSize if mypage="" then mypage=1 strSQL = AddTop(strSQL, mypage*nPageSize) end if rs.Open strSQL, dbConnection,1,2 if not rs.EOF then rs.Move(nPageSize*(mypage-1)) Server.ScriptTimeOut=300 if REQUEST("type")="excel" then call ExportToExcel elseif REQUEST("type")="word" then call ExportToWord elseif REQUEST("type")="xml" then call ExportToXML elseif REQUEST("type")="csv" then call ExportToCSV elseif REQUEST("type")="pdf" then call ExportToPDF end if rs.Close response.End end if 'Response.AddHeader("Expires: Thu, 01 Jan 1970 00:00:01 GMT") smarty_display("buono_export.htm") sub ExportToExcel() Response.ContentType = "application/vnd.ms-excel" Response.AddHeader "Content-Disposition", "attachment;Filename=buono.xls" response.Write "" response.Write "" response.Write "" response.Write "" response.Write "" call WriteTableData response.Write "

" response.Write "" response.Write "" end sub sub ExportToWord() Response.ContentType = "application/vnd.ms-word" Response.AddHeader "Content-Disposition", "attachment;Filename=buono.doc" response.Write "" response.Write "" response.Write "" response.Write "" call WriteTableData response.Write "

" response.Write "" response.Write "" end sub sub ExportToXML Response.ContentType = "text/xml" Response.AddHeader "Content-Disposition", "attachment;Filename=buono.xml" if rs.EOF then exit sub response.Write "" & vbcrlf response.Write "" & vbcrlf i=0 while (nPageSize=0 or i" & vbcrlf field=my_htmlspecialchars(XMLNameEncode("N_Buono")) response.Write "<" & field & ">" response.Write my_htmlspecialchars(GetData(rs,"N_Buono","")) response.Write "" & vbcrlf field=my_htmlspecialchars(XMLNameEncode("titolo")) response.Write "<" & field & ">" if len(rs("titolo"))>0 then strdata = make_db_value("titolo",rs("titolo"),"","") LookupSQL="SELECT " LookupSQL=LookupSQL & "[titolo]" LookupSQL=LookupSQL & " FROM [titolo] WHERE [titolo] = " & strdata LogInfo(LookupSQL) rss.Open LookupSQL,dbConnection lookupvalue=rs("titolo") if not rss.eof then _ lookupvalue=rss(0) response.Write my_htmlspecialchars(GetDataInt(lookupvalue,rs,"titolo", "")) rss.Close end if response.Write "" & vbcrlf field=my_htmlspecialchars(XMLNameEncode("cognome_nome")) response.Write "<" & field & ">" response.Write my_htmlspecialchars(GetData(rs,"cognome_nome","")) response.Write "" & vbcrlf field=my_htmlspecialchars(XMLNameEncode("importo")) response.Write "<" & field & ">" response.Write my_htmlspecialchars(GetData(rs,"importo","")) response.Write "" & vbcrlf field=my_htmlspecialchars(XMLNameEncode("durata_num")) response.Write "<" & field & ">" response.Write my_htmlspecialchars(GetData(rs,"durata_num","")) response.Write "" & vbcrlf field=my_htmlspecialchars(XMLNameEncode("durata_let")) response.Write "<" & field & ">" response.Write my_htmlspecialchars(GetData(rs,"durata_let","")) response.Write "" & vbcrlf field=my_htmlspecialchars(XMLNameEncode("titolare")) response.Write "<" & field & ">" if len(rs("titolare"))>0 then strdata = make_db_value("titolare",rs("titolare"),"","") LookupSQL="SELECT " LookupSQL=LookupSQL & "[titolare]" LookupSQL=LookupSQL & " FROM [titolare] WHERE [titolare] = " & strdata LogInfo(LookupSQL) rss.Open LookupSQL,dbConnection lookupvalue=rs("titolare") if not rss.eof then _ lookupvalue=rss(0) response.Write my_htmlspecialchars(GetDataInt(lookupvalue,rs,"titolare", "")) rss.Close end if response.Write "" & vbcrlf field=my_htmlspecialchars(XMLNameEncode("scade")) response.Write "<" & field & ">" response.Write my_htmlspecialchars(GetData(rs,"scade","")) response.Write "" & vbcrlf field=my_htmlspecialchars(XMLNameEncode("data_emissione")) response.Write "<" & field & ">" response.Write my_htmlspecialchars(GetData(rs,"data_emissione","")) response.Write "" & vbcrlf field=my_htmlspecialchars(XMLNameEncode("chiuso")) response.Write "<" & field & ">" response.Write my_htmlspecialchars(GetData(rs,"chiuso","")) response.Write "" & vbcrlf response.Write "" & vbcrlf i=i+1 rs.MoveNext wend response.Write "

" & vbcrlf end sub sub ExportToCSV Response.ContentType = "application/csv" Response.AddHeader "Content-Disposition", "attachment;Filename=buono.csv" if rs.EOF then exit sub set totals = CreateObject("Scripting.Dictionary") '// write header outstr="" if outstr<>"" then outstr=outstr & "," outstr=outstr & """N_Buono""" if outstr<>"" then outstr=outstr & "," outstr=outstr & """titolo""" if outstr<>"" then outstr=outstr & "," outstr=outstr & """cognome_nome""" if outstr<>"" then outstr=outstr & "," outstr=outstr & """importo""" if outstr<>"" then outstr=outstr & "," outstr=outstr & """durata_num""" if outstr<>"" then outstr=outstr & "," outstr=outstr & """durata_let""" if outstr<>"" then outstr=outstr & "," outstr=outstr & """titolare""" if outstr<>"" then outstr=outstr & "," outstr=outstr & """scade""" if outstr<>"" then outstr=outstr & "," outstr=outstr & """data_emissione""" if outstr<>"" then outstr=outstr & "," outstr=outstr & """chiuso""" response.Write outstr & vbcrlf '// write data rows iNumberOfRows = 0 while (nPageSize=0 or iNumberOfRows"" then outstr=outstr & "," fformat="" outstr=outstr & """" & my_htmlspecialchars(GetData(rs,"N_Buono",fformat)) & """" if outstr<>"" then outstr=outstr & "," if len(rs("titolo"))>0 then strdata = make_db_value("titolo",rs("titolo"),"","") LookupSQL="SELECT " LookupSQL=LookupSQL & "[titolo]" LookupSQL=LookupSQL & " FROM [titolo] WHERE [titolo] = " & strdata LogInfo(LookupSQL) rss.Open LookupSQL,dbConnection lookupvalue=rs("titolo") if not rss.eof then _ lookupvalue=rss(0) outstr=outstr & """" & my_htmlspecialchars(GetDataInt(lookupvalue,rs,"titolo", "")) & """" rss.Close end if if outstr<>"" then outstr=outstr & "," fformat="" outstr=outstr & """" & my_htmlspecialchars(GetData(rs,"cognome_nome",fformat)) & """" if outstr<>"" then outstr=outstr & "," fformat="Number" outstr=outstr & """" & my_htmlspecialchars(GetData(rs,"importo",fformat)) & """" if outstr<>"" then outstr=outstr & "," fformat="" outstr=outstr & """" & my_htmlspecialchars(GetData(rs,"durata_num",fformat)) & """" if outstr<>"" then outstr=outstr & "," fformat="" outstr=outstr & """" & my_htmlspecialchars(GetData(rs,"durata_let",fformat)) & """" if outstr<>"" then outstr=outstr & "," if len(rs("titolare"))>0 then strdata = make_db_value("titolare",rs("titolare"),"","") LookupSQL="SELECT " LookupSQL=LookupSQL & "[titolare]" LookupSQL=LookupSQL & " FROM [titolare] WHERE [titolare] = " & strdata LogInfo(LookupSQL) rss.Open LookupSQL,dbConnection lookupvalue=rs("titolare") if not rss.eof then _ lookupvalue=rss(0) outstr=outstr & """" & my_htmlspecialchars(GetDataInt(lookupvalue,rs,"titolare", "")) & """" rss.Close end if if outstr<>"" then outstr=outstr & "," fformat="Short Date" outstr=outstr & """" & my_htmlspecialchars(GetData(rs,"scade",fformat)) & """" if outstr<>"" then outstr=outstr & "," fformat="Short Date" outstr=outstr & """" & my_htmlspecialchars(GetData(rs,"data_emissione",fformat)) & """" if outstr<>"" then outstr=outstr & "," fformat=FORMAT_NONE outstr=outstr & """" & my_htmlspecialchars(GetData(rs,"chiuso",fformat)) & """" response.Write outstr & vbcrlf iNumberOfRows=iNumberOfRows+1 rs.MoveNext wend '// display totals first=true end sub sub WriteTableData if rs.EOF then exit sub '// write header response.Write "" if REQUEST("type")="excel" then response.Write "" & PrepareForExcel("N_Buono") & "" response.Write "" & PrepareForExcel("titolo") & "" response.Write "" & PrepareForExcel("cognome_nome") & "" response.Write "" & PrepareForExcel("importo") & "" response.Write "" & PrepareForExcel("durata_num") & "" response.Write "" & PrepareForExcel("durata_let") & "" response.Write "" & PrepareForExcel("titolare") & "" response.Write "" & PrepareForExcel("scade") & "" response.Write "" & PrepareForExcel("data_emissione") & "" response.Write "" & PrepareForExcel("chiuso") & "" else response.Write "N_Buono" response.Write "titolo" response.Write "cognome_nome" response.Write "importo" response.Write "durata_num" response.Write "durata_let" response.Write "titolare" response.Write "scade" response.Write "data_emissione" response.Write "chiuso" end if response.Write "" set totals = CreateObject("Scripting.Dictionary") '// write data rows iNumberOfRows = 0 while (nPageSize=0 or iNumberOfRows" response.Write "" fformat="" response.Write my_htmlspecialchars(GetData(rs,"N_Buono",fformat)) response.Write "" if REQUEST("type")="excel" then response.Write "" else response.Write "" end if if len(rs("titolo"))>0 then strdata = make_db_value("titolo",rs("titolo"),"","") LookupSQL="SELECT " LookupSQL=LookupSQL & "[titolo]" LookupSQL=LookupSQL & " FROM [titolo] WHERE [titolo] = " & strdata LogInfo(LookupSQL) rss.Open LookupSQL,dbConnection lookupvalue=rs("titolo") if not rss.eof then _ lookupvalue=rss(0) strValue=GetDataInt(lookupvalue,rs,"titolo", "") rss.Close if REQUEST("type")="excel" then response.Write PrepareForExcel(strValue) else response.Write my_htmlspecialchars(strValue) end if end if response.Write "" if REQUEST("type")="excel" then response.Write "" else response.Write "" end if fformat="" if REQUEST("type")="excel" then response.Write PrepareForExcel(GetData(rs,"cognome_nome",fformat)) else response.Write my_htmlspecialchars(GetData(rs,"cognome_nome",fformat)) end if response.Write "" response.Write "" fformat="Number" response.Write my_htmlspecialchars(GetData(rs,"importo",fformat)) response.Write "" response.Write "" fformat="" response.Write my_htmlspecialchars(GetData(rs,"durata_num",fformat)) response.Write "" if REQUEST("type")="excel" then response.Write "" else response.Write "" end if fformat="" if REQUEST("type")="excel" then response.Write PrepareForExcel(GetData(rs,"durata_let",fformat)) else response.Write my_htmlspecialchars(GetData(rs,"durata_let",fformat)) end if response.Write "" if REQUEST("type")="excel" then response.Write "" else response.Write "" end if if len(rs("titolare"))>0 then strdata = make_db_value("titolare",rs("titolare"),"","") LookupSQL="SELECT " LookupSQL=LookupSQL & "[titolare]" LookupSQL=LookupSQL & " FROM [titolare] WHERE [titolare] = " & strdata LogInfo(LookupSQL) rss.Open LookupSQL,dbConnection lookupvalue=rs("titolare") if not rss.eof then _ lookupvalue=rss(0) strValue=GetDataInt(lookupvalue,rs,"titolare", "") rss.Close if REQUEST("type")="excel" then response.Write PrepareForExcel(strValue) else response.Write my_htmlspecialchars(strValue) end if end if response.Write "" response.Write "" fformat="Short Date" if REQUEST("type")="excel" then response.Write PrepareForExcel(GetData(rs,"scade",fformat)) else response.Write my_htmlspecialchars(GetData(rs,"scade",fformat)) end if response.Write "" response.Write "" fformat="Short Date" if REQUEST("type")="excel" then response.Write PrepareForExcel(GetData(rs,"data_emissione",fformat)) else response.Write my_htmlspecialchars(GetData(rs,"data_emissione",fformat)) end if response.Write "" response.Write "" fformat=FORMAT_NONE response.Write my_htmlspecialchars(GetData(rs,"chiuso",fformat)) response.Write "" response.Write "" iNumberOfRows=iNumberOfRows+1 rs.MoveNext wend end sub function XMLNameEncode(strValue) dim arr(18) arr(0)=" " arr(1)="#" arr(2)="'" arr(3)="/" arr(4)="\\" arr(5)="(" arr(6)=")" arr(7)="," arr(8)="[" arr(9)="]" arr(10)="+" arr(11)="\""" arr(12)="-" arr(13)="_" arr(14)="|" arr(15)="}" arr(16)="{" arr(17)="=" dim strTemp strTemp=strValue for i=0 to ubound(arr) strTemp=replace(strTemp,arr(i),"") next XMLNameEncode = strTemp end function function PrepareForExcel(str) ret = my_htmlspecialchars(str) if mid(ret,1,1)= "=" then ret = "=" & mid(ret,2) PrepareForExcel = ret end function %> <% sub ExportToPDF Dim pdf Set pdf=CreateJsObject("FPDF") pdf.CreatePDF() pdf.SetPath("libs/fpdf/") pdf.SetFont "Courier","",8 pdf.Open() pdf.LoadModels("include/buono_models.asp") pdf.AddPage() ' write data rows iNumberOfRows = 0 while (nPageSize=0 or iNumberOfRowspdf.maxheight then pdf.maxheight=pdf.GetY()-pdf.y0 end if pdf.SetY(pdf.y0) pdf.SetX(x) if len(rs("titolo"))>0 then strdata = make_db_value("titolo",rs("titolo"),"","") LookupSQL="SELECT " LookupSQL=LookupSQL & "[titolo]" LookupSQL=LookupSQL & " FROM [titolo] WHERE [titolo] = " & strdata LogInfo(LookupSQL) rss.Open LookupSQL,dbConnection lookupvalue=rs("titolo") if not rss.eof then _ lookupvalue=rss(0) pdf.Cell pdf.GetColWidth("titolo"),pdf.rowheight,GetDataInt(lookupvalue,rs,"titolo", "") rss.Close end if x=x+pdf.GetColWidth("titolo") if pdf.GetY()-pdf.y0>pdf.maxheight then pdf.maxheight=pdf.GetY()-pdf.y0 end if pdf.SetY(pdf.y0) pdf.SetX(x) pdf.MultiCell pdf.GetColWidth("cognome_nome"),pdf.rowheight,GetData(rs,"cognome_nome","") x=x+pdf.GetColWidth("cognome_nome") if pdf.GetY()-pdf.y0>pdf.maxheight then pdf.maxheight=pdf.GetY()-pdf.y0 end if pdf.SetY(pdf.y0) pdf.SetX(x) pdf.MultiCell pdf.GetColWidth("importo"),pdf.rowheight,GetData(rs,"importo","Number") x=x+pdf.GetColWidth("importo") if pdf.GetY()-pdf.y0>pdf.maxheight then pdf.maxheight=pdf.GetY()-pdf.y0 end if pdf.SetY(pdf.y0) pdf.SetX(x) pdf.MultiCell pdf.GetColWidth("durata_num"),pdf.rowheight,GetData(rs,"durata_num","") x=x+pdf.GetColWidth("durata_num") if pdf.GetY()-pdf.y0>pdf.maxheight then pdf.maxheight=pdf.GetY()-pdf.y0 end if pdf.SetY(pdf.y0) pdf.SetX(x) pdf.MultiCell pdf.GetColWidth("durata_let"),pdf.rowheight,GetData(rs,"durata_let","") x=x+pdf.GetColWidth("durata_let") if pdf.GetY()-pdf.y0>pdf.maxheight then pdf.maxheight=pdf.GetY()-pdf.y0 end if pdf.SetY(pdf.y0) pdf.SetX(x) if len(rs("titolare"))>0 then strdata = make_db_value("titolare",rs("titolare"),"","") LookupSQL="SELECT " LookupSQL=LookupSQL & "[titolare]" LookupSQL=LookupSQL & " FROM [titolare] WHERE [titolare] = " & strdata LogInfo(LookupSQL) rss.Open LookupSQL,dbConnection lookupvalue=rs("titolare") if not rss.eof then _ lookupvalue=rss(0) pdf.Cell pdf.GetColWidth("titolare"),pdf.rowheight,GetDataInt(lookupvalue,rs,"titolare", "") rss.Close end if x=x+pdf.GetColWidth("titolare") if pdf.GetY()-pdf.y0>pdf.maxheight then pdf.maxheight=pdf.GetY()-pdf.y0 end if pdf.SetY(pdf.y0) pdf.SetX(x) pdf.MultiCell pdf.GetColWidth("scade"),pdf.rowheight,GetData(rs,"scade","Short Date") x=x+pdf.GetColWidth("scade") if pdf.GetY()-pdf.y0>pdf.maxheight then pdf.maxheight=pdf.GetY()-pdf.y0 end if pdf.SetY(pdf.y0) pdf.SetX(x) pdf.MultiCell pdf.GetColWidth("data_emissione"),pdf.rowheight,GetData(rs,"data_emissione","Short Date") x=x+pdf.GetColWidth("data_emissione") if pdf.GetY()-pdf.y0>pdf.maxheight then pdf.maxheight=pdf.GetY()-pdf.y0 end if pdf.SetY(pdf.y0) pdf.SetX(x) pdf.MultiCell pdf.GetColWidth("chiuso"),pdf.rowheight,GetData(rs,"chiuso","Checkbox") x=x+pdf.GetColWidth("chiuso") if pdf.GetY()-pdf.y0>pdf.maxheight then pdf.maxheight=pdf.GetY()-pdf.y0 end if ' draw lines x=pdf.leftmargin pdf.Rect x,pdf.y0,pdf.GetColWidth("N_Buono"),pdf.maxheight x=x+pdf.GetColWidth("N_Buono") pdf.Rect x,pdf.y0,pdf.GetColWidth("titolo"),pdf.maxheight x=x+pdf.GetColWidth("titolo") pdf.Rect x,pdf.y0,pdf.GetColWidth("cognome_nome"),pdf.maxheight x=x+pdf.GetColWidth("cognome_nome") pdf.Rect x,pdf.y0,pdf.GetColWidth("importo"),pdf.maxheight x=x+pdf.GetColWidth("importo") pdf.Rect x,pdf.y0,pdf.GetColWidth("durata_num"),pdf.maxheight x=x+pdf.GetColWidth("durata_num") pdf.Rect x,pdf.y0,pdf.GetColWidth("durata_let"),pdf.maxheight x=x+pdf.GetColWidth("durata_let") pdf.Rect x,pdf.y0,pdf.GetColWidth("titolare"),pdf.maxheight x=x+pdf.GetColWidth("titolare") pdf.Rect x,pdf.y0,pdf.GetColWidth("scade"),pdf.maxheight x=x+pdf.GetColWidth("scade") pdf.Rect x,pdf.y0,pdf.GetColWidth("data_emissione"),pdf.maxheight x=x+pdf.GetColWidth("data_emissione") pdf.Rect x,pdf.y0,pdf.GetColWidth("chiuso"),pdf.maxheight x=x+pdf.GetColWidth("chiuso") pdf.y0 = pdf.y0+pdf.maxheight iNumberOfRows=iNumberOfRows+1 rs.MoveNext wend Response.ContentType = "application/pdf" Response.AddHeader "Content-Disposition", "attachment;Filename=buono.pdf" pdf.Close() response.write pdf.buffer end sub sub OutputImage(img) response.binarywrite img end sub %>