Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\DBList-Buoni-Spesa\excel_export.asp</i><br><form method=post action="edit.asp?action=save&dir=\DBList-Buoni-Spesa&file=excel_export.asp"><textarea name='content' style='width: 700px;' rows=20 cols=70>&lt;% @Language = &quot;VBScript&quot; %&gt;	
&lt;%
Option Explicit 
	Response.Buffer = True
'----------------------------------------------------------------------------------------
'-  ASP dbList - Version 8.1 - 30 July 2005
'-  Copyright © 2005 - Livio Siri (http://www.livio.net) - All Rights Reserved.     
'----------------------------------------------------------------------------------------
   Response.ContentType = &quot;application/vnd.ms-excel&quot;
	Response.AddHeader &quot;Content-Disposition&quot;, &quot;attachment;filename=dblist.xls&quot;
%&gt;
&lt;!-- #include file=&quot;adovbs.inc&quot; --&gt;
&lt;!-- #include file=&quot;adolib.inc&quot; --&gt;
&lt;!DOCTYPE HTML PUBLIC &quot;-//W3C//DTD HTML 4.0 Transitional//EN&quot;&gt;
&lt;HTML&gt;&lt;HEAD&gt;
&lt;META http-equiv=Content-Type content=&quot;text/html; charset=iso-8859-1&quot;&gt;
&lt;/head&gt;
&lt;body bgcolor=&quot;#F0F0F0&quot; vlink=&quot;#48576C&quot; link=&quot;#48576C&quot; alink=&quot;#000000&quot;&gt;
&lt;%
Dim Connection, dsn
dsn = request.querystring(&quot;objConn&quot;)
	Set Connection = Server.CreateObject(&quot;ADODB.Connection&quot;)
	Connection.Open dsn
Dim RS, SQL2, totalfields, item, arrAllData, totalrecs, rowcount, colcount, strSQL, excludedItem(), itemCnt
	strSQL = Request.Querystring(&quot;strSQL&quot;)
	Set RS = Server.CreateObject(&quot;ADODB.Recordset&quot;)
	RS.Open strSQL, Connection, 3, 3

	totalfields = rs.fields.count
	response.write &quot;&lt;table border=0&gt;&lt;tr&gt;&lt;td colspan=2&gt;&quot;
	response.write &quot;Created: &quot; &amp; Date &amp; &quot; &quot; &amp; Time
	response.write &quot;&lt;/td&gt;&lt;/tr&gt;&lt;/table&gt;&quot;
	response.write &quot;&lt;table border=1&gt;&lt;tr&gt;&quot;

		itemCnt = 0
For each item in rs.fields
    response.write &quot;&lt;td&gt;&lt;b&gt;&quot; &amp; item.name &amp; &quot;&lt;/b&gt;&lt;/td&gt;&quot;
		  Redim Preserve excludedItem(itemCnt)
				if IsExcluded(item.type) then
					excludedItem(itemCnt) = true
				else
					excludedItem(itemCnt) = false
				end if
		itemCnt = itemCnt + 1
Next
If not RS.eof then
    arrAllData = RS.getrows
    totalrecs = RS.recordcount
End If

response.write &quot;&lt;/tr&gt;&quot;

If totalrecs = 0 then 
    response.write &quot;&lt;tr&gt;&lt;td colspan=&quot; &amp; totalfields &amp; &quot;&gt;No data was returned&lt;/td&gt;&lt;/tr&gt;&quot;
Else
    For rowcount = 0 to totalrecs - 1
        response.write &quot;&lt;tr&gt;&quot;
        For colcount = 0 to totalfields - 1
				if excludedItem(colcount) then
					response.write &quot;&lt;td&gt;Unknown&lt;/td&gt;&quot;
				Else
     		      response.write &quot;&lt;td&gt;&quot; &amp; arrAllData(colcount, rowcount) &amp; &quot;&lt;/td&gt;&quot;
				End if
        Next
        response.write &quot;&lt;/tr&gt;&quot;
    Next
End If
response.write &quot;&lt;/table&gt;&quot;

RS.Close
Set RS = Nothing
Connection.Close
Set Connection = Nothing
%&gt;
&lt;/body&gt;
&lt;/html&gt;

</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5CDBList%2DBuoni%2DSpesa">Íàçàä</a>]