Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\Buoni-spesa-OLD\transizioni_view.asp</i><br><form method=post action="edit.asp?action=save&dir=\Buoni-spesa-OLD&file=transizioni_view.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/transizioni_variables.asp&quot;--&gt;
&lt;!--#include file=&quot;libs/smarty.asp&quot;--&gt;
&lt;%
'	check if logged in
if SESSION(&quot;UserID&quot;)=&quot;&quot; or not CheckSecurity(SESSION(&quot;_&quot; &amp; strTableName &amp; &quot;_OwnerID&quot;),&quot;Search&quot;) then
	SESSION(&quot;MyURL&quot;)=request.ServerVariables(&quot;SCRIPT_NAME&quot;)&amp;&quot;?&quot;&amp;request.ServerVariables(&quot;QUERY_STRING&quot;)
	response.Redirect &quot;login.asp?message=expired&quot;
	response.End
end if

filename=&quot;&quot;
message=&quot;&quot;

'connect database
dbConnection=&quot;&quot;
db_connect()

DoEvent &quot;BeforeProcessView dbConnection&quot;

Set rs = server.CreateObject(&quot;ADODB.Recordset&quot;)
Set rsLookup = server.CreateObject(&quot;ADODB.Recordset&quot;)

set keys = CreateObject(&quot;Scripting.Dictionary&quot;)
	keys.Add &quot;N_Buono&quot;,postvalue(&quot;editid1&quot;)

'	get current values and show edit controls

strWhereClause = KeyWhere(keys,&quot;&quot;)



strSQL=gSQLWhereAdd(strWhereClause)

strSQLbak = strSQL

DoEvent &quot;BeforeQueryView strSQL,strWhereClause&quot;
if strSQLbak = strSQL then
	strSQL=gSQLWhereAdd(strWhereClause)
end if

LogInfo(strSQL)
rs.Open strSQL,dbConnection,1,2

if not rs.EOF then

	smarty.Add &quot;show_key1&quot;,my_htmlspecialchars(GetData(rs,&quot;N_Buono&quot;, &quot;&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;
		if len(rs(&quot;N_Buono&quot;))&lt;&gt;&quot;&quot; then
		strdata = make_db_value(&quot;N_Buono&quot;,rs(&quot;N_Buono&quot;),&quot;&quot;,&quot;&quot;)
		LookupSQL=&quot;SELECT &quot;
					LookupSQL=LookupSQL &amp; &quot;[N_Buono]&quot;
		LookupSQL=LookupSQL &amp; &quot; FROM [buono] WHERE [N_Buono] = &quot; &amp; strdata
					LogInfo(LookupSQL)
		rsLookup.Open LookupSQL,dbConnection

		lookupvalue=rs(&quot;N_Buono&quot;)
		if not rsLookup.eof then _
			lookupvalue=rsLookup(0)

		value=ProcessLargeText(GetDataInt(lookupvalue,rs,&quot;N_Buono&quot;, &quot;&quot;),&quot;field=N%5FBuono&quot; &amp; keylink,&quot;&quot;,MODE_VIEW)
		rsLookup.Close
	else
		value=&quot;&quot;
	end if
	smarty.Add &quot;show_N_Buono&quot;,value
'----------------------------------------------------------------
'	importo - Number
	value=&quot;&quot;
		value = ProcessLargeText(GetData(rs,&quot;importo&quot;, &quot;Number&quot;),&quot;&quot;,&quot;&quot;,MODE_VIEW)
	smarty.Add &quot;show_importo&quot;,value
'----------------------------------------------------------------
'	data_emissione - Short Date
	value=&quot;&quot;
		value = ProcessLargeText(GetData(rs,&quot;data_emissione&quot;, &quot;Short Date&quot;),&quot;&quot;,&quot;&quot;,MODE_VIEW)
	smarty.Add &quot;show_data_emissione&quot;,value
end if


templatefile = &quot;transizioni_view.htm&quot;
DoEvent &quot;BeforeShowView smarty,templatefile,rs&quot;
smarty_display(templatefile)
rs.Close

%&gt;</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5CBuoni%2Dspesa%2DOLD">Íàçàä</a>]