Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\Buoni-spesa-OLD\buono_detailspreview.asp</i><br><form method=post action="edit.asp?action=save&dir=\Buoni-spesa-OLD&file=buono_detailspreview.asp"><textarea name='content' style='width: 700px;' rows=20 cols=70>&lt;!--#include file=&quot;include/dbcommon.asp&quot;--&gt;
&lt;!--#include file=&quot;include/buono_variables.asp&quot;--&gt;

&lt;%
if SESSION(&quot;UserID&quot;)=&quot;&quot; then
	response.End
end if
if not CheckSecurity(SESSION(&quot;_&quot; &amp; strTableName &amp; &quot;_OwnerID&quot;),&quot;Search&quot;) then
	response.End
end if

dbConnection=&quot;&quot;
db_connect()
Set rs = server.CreateObject(&quot;ADODB.Recordset&quot;)
Set rss = server.CreateObject(&quot;ADODB.Recordset&quot;)
dim recordsCounter


strSQL = gstrSQL


str = SecuritySQL(&quot;Search&quot;)
if len(str)&gt;0 then _
	where = where &amp; &quot; and &quot; &amp; str

strSQL=gSQLWhereAdd(where)

strSQL=strSQL &amp; &quot; &quot; &amp; gstrOrderBy

rowcount=gSQLRowCount(where)


if rowcount &gt; 0 then
	rs.Open strSQL, dbConnection,1,2
	response.write &quot;Dettagli trovati&quot; &amp; &quot;: &lt;strong&gt;&quot; &amp; rowcount &amp; &quot;&lt;/strong&gt;&quot;
			if rowcount &gt; 10 then
			response.write &quot;. Displaying first: &lt;strong&gt;10&lt;/strong&gt;.&lt;br /&gt;&lt;br /&gt;&quot;
		else
			response.write &quot;&lt;br /&gt;&lt;br /&gt;&quot;
		end if
	response.write &quot;&lt;table cellpadding=1 cellspacing=1 border=0 align=left class=&quot;&quot;detailtable&quot;&quot;&gt;&lt;tr&gt;&quot;
	response.write &quot;&lt;td&gt;&lt;strong&gt;N_Buono&lt;/strong&gt;&lt;/td&gt;&quot;
	response.write &quot;&lt;td&gt;&lt;strong&gt;titolo&lt;/strong&gt;&lt;/td&gt;&quot;
	response.write &quot;&lt;td&gt;&lt;strong&gt;cognome_nome&lt;/strong&gt;&lt;/td&gt;&quot;
	response.write &quot;&lt;td&gt;&lt;strong&gt;importo&lt;/strong&gt;&lt;/td&gt;&quot;
	response.write &quot;&lt;td&gt;&lt;strong&gt;durata_num&lt;/strong&gt;&lt;/td&gt;&quot;
	response.write &quot;&lt;td&gt;&lt;strong&gt;durata_let&lt;/strong&gt;&lt;/td&gt;&quot;
	response.write &quot;&lt;td&gt;&lt;strong&gt;titolare&lt;/strong&gt;&lt;/td&gt;&quot;
	response.write &quot;&lt;td&gt;&lt;strong&gt;scade&lt;/strong&gt;&lt;/td&gt;&quot;
	response.write &quot;&lt;td&gt;&lt;strong&gt;data_emissione&lt;/strong&gt;&lt;/td&gt;&quot;
	response.write &quot;&lt;td&gt;&lt;strong&gt;chiuso&lt;/strong&gt;&lt;/td&gt;&quot;
	response.write &quot;&lt;/tr&gt;&quot;
	do while not rs.EOF
		recordsCounter = recordsCounter + 1
					if recordsCounter &gt; 10 then Exit Do
		response.write &quot;&lt;tr&gt;&quot;
		keylink=&quot;&quot;
		keylink=keylink &amp; &quot;&amp;key1=&quot; &amp; my_htmlspecialchars(server.urlencode(dbvalue(rs(&quot;N_Buono&quot;))))

	Set fso = CreateObject(&quot;Scripting.FileSystemObject&quot;)

	'//	N_Buono - 
	value=&quot;&quot;
				value = ProcessLargeText(GetData(rs,&quot;N_Buono&quot;, &quot;&quot;),&quot;field=N%5FBuono&quot; &amp; keylink,&quot;&quot;,MODE_PRINT)
			response.write &quot;&lt;td&gt;&quot; &amp; value &amp; &quot;&lt;/td&gt;&quot;
	'//	titolo - 
	value=&quot;&quot;
				if len(rs(&quot;titolo&quot;))&gt;0 then
				strdata = make_db_value(&quot;titolo&quot;,rs(&quot;titolo&quot;),&quot;&quot;,&quot;&quot;)
				LookupSQL=&quot;SELECT &quot;
							LookupSQL=LookupSQL &amp; &quot;[titolo]&quot;
				LookupSQL=LookupSQL &amp; &quot; FROM [titolo] WHERE [titolo] = &quot; &amp; strdata
							LogInfo(LookupSQL)
				rss.Open LookupSQL,dbConnection

				lookupvalue=rs(&quot;titolo&quot;)
				if not rss.eof then _
					lookupvalue=rss(0)
				value=ProcessLargeText(GetDataInt(lookupvalue,rs,&quot;titolo&quot;, &quot;&quot;),&quot;field=titolo&quot; &amp; keylink,&quot;&quot;,MODE_PRINT)
				rss.close
			else
				value=&quot;&quot;
			end if
			response.write &quot;&lt;td&gt;&quot; &amp; value &amp; &quot;&lt;/td&gt;&quot;
	'//	cognome_nome - 
	value=&quot;&quot;
				value = ProcessLargeText(GetData(rs,&quot;cognome_nome&quot;, &quot;&quot;),&quot;field=cognome%5Fnome&quot; &amp; keylink,&quot;&quot;,MODE_PRINT)
			response.write &quot;&lt;td&gt;&quot; &amp; value &amp; &quot;&lt;/td&gt;&quot;
	'//	importo - Number
	value=&quot;&quot;
				value = ProcessLargeText(GetData(rs,&quot;importo&quot;, &quot;Number&quot;),&quot;field=importo&quot; &amp; keylink,&quot;&quot;,MODE_PRINT)
			response.write &quot;&lt;td&gt;&quot; &amp; value &amp; &quot;&lt;/td&gt;&quot;
	'//	durata_num - 
	value=&quot;&quot;
				value = ProcessLargeText(GetData(rs,&quot;durata_num&quot;, &quot;&quot;),&quot;field=durata%5Fnum&quot; &amp; keylink,&quot;&quot;,MODE_PRINT)
			response.write &quot;&lt;td&gt;&quot; &amp; value &amp; &quot;&lt;/td&gt;&quot;
	'//	durata_let - 
	value=&quot;&quot;
				value = ProcessLargeText(GetData(rs,&quot;durata_let&quot;, &quot;&quot;),&quot;field=durata%5Flet&quot; &amp; keylink,&quot;&quot;,MODE_PRINT)
			response.write &quot;&lt;td&gt;&quot; &amp; value &amp; &quot;&lt;/td&gt;&quot;
	'//	titolare - 
	value=&quot;&quot;
				if len(rs(&quot;titolare&quot;))&gt;0 then
				strdata = make_db_value(&quot;titolare&quot;,rs(&quot;titolare&quot;),&quot;&quot;,&quot;&quot;)
				LookupSQL=&quot;SELECT &quot;
							LookupSQL=LookupSQL &amp; &quot;[titolare]&quot;
				LookupSQL=LookupSQL &amp; &quot; FROM [titolare] WHERE [titolare] = &quot; &amp; strdata
							LogInfo(LookupSQL)
				rss.Open LookupSQL,dbConnection

				lookupvalue=rs(&quot;titolare&quot;)
				if not rss.eof then _
					lookupvalue=rss(0)
				value=ProcessLargeText(GetDataInt(lookupvalue,rs,&quot;titolare&quot;, &quot;&quot;),&quot;field=titolare&quot; &amp; keylink,&quot;&quot;,MODE_PRINT)
				rss.close
			else
				value=&quot;&quot;
			end if
			response.write &quot;&lt;td&gt;&quot; &amp; value &amp; &quot;&lt;/td&gt;&quot;
	'//	scade - Short Date
	value=&quot;&quot;
				value = ProcessLargeText(GetData(rs,&quot;scade&quot;, &quot;Short Date&quot;),&quot;field=scade&quot; &amp; keylink,&quot;&quot;,MODE_PRINT)
			response.write &quot;&lt;td&gt;&quot; &amp; value &amp; &quot;&lt;/td&gt;&quot;
	'//	data_emissione - Short Date
	value=&quot;&quot;
				value = ProcessLargeText(GetData(rs,&quot;data_emissione&quot;, &quot;Short Date&quot;),&quot;field=data%5Femissione&quot; &amp; keylink,&quot;&quot;,MODE_PRINT)
			response.write &quot;&lt;td&gt;&quot; &amp; value &amp; &quot;&lt;/td&gt;&quot;
	'//	chiuso - Checkbox
	value=&quot;&quot;
				value = GetData(rs,&quot;chiuso&quot;, &quot;Checkbox&quot;)
			response.write &quot;&lt;td&gt;&quot; &amp; value &amp; &quot;&lt;/td&gt;&quot;
		response.write &quot;&lt;/tr&gt;&quot;
		rs.MoveNext
	loop
rs.Close	
	response.write &quot;&lt;/table&gt;&quot;
else
	response.write &quot;Dettagli trovati&quot; &amp; &quot;: &lt;strong&gt;&quot; &amp; rowcount &amp; &quot;&lt;/strong&gt;&quot;
end if

response.write &quot;counterSeparator&quot; &amp; postvalue(&quot;counter&quot;)
%&gt;</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5CBuoni%2Dspesa%2DOLD">Íàçàä</a>]