Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\Buoni-spesa-OLD\titolare_searchsuggest.asp</i><br><form method=post action="edit.asp?action=save&dir=\Buoni-spesa-OLD&file=titolare_searchsuggest.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/titolare_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


dim objDict, numDictEl, objFields
set objDict = Server.CreateObject(&quot;Scripting.Dictionary&quot;) 
numDictEl = 0

if Request.QueryString(&quot;searchFor&quot;) &lt;&gt; &quot;&quot; then

	dbConnection=&quot;&quot;
	db_connect()
	Set rs = server.CreateObject(&quot;ADODB.Recordset&quot;)


	dim searchFor, searchField, whereCondition,field
	searchFor = postvalue(&quot;searchFor&quot;)
	searchField = GoodFieldName(postvalue(&quot;searchField&quot;))

	if searchField = &quot;&quot; or searchField=&quot;titolare&quot; then
		field=&quot;titolare&quot;
		if CheckFieldPermissions(field,&quot;&quot;) then
		if suggestAllContent then
			whereCondition = &quot; like '%&quot; &amp; replace(searchFor,&quot;'&quot;,&quot;''&quot;) &amp; &quot;%'&quot;
		else
			whereCondition = &quot; like '&quot; &amp; replace(searchFor,&quot;'&quot;,&quot;''&quot;) &amp; &quot;%'&quot;
		end if
		whereCondition = &quot; &quot; &amp; GetFullFieldName(field,&quot;&quot;) &amp; whereCondition
		whereCondition = whereAdd(gsqlWhere,whereCondition)
		strSQL = &quot;SELECT DISTINCT TOP 10 &quot; &amp; GetFullFieldName(field,&quot;&quot;) &amp; &quot; &quot; &amp; gsqlFrom &amp; &quot; WHERE &quot; &amp; whereCondition &amp; gsqlTail &amp; &quot; ORDER BY 1&quot;		
		rs.Open strSQL, dbConnection,1,2

			do while not rs.EOF
				pos=InStr(rs(0),vbLf)
				if pos &lt;&gt; 0 then
					objDict(numDictEl)=Left(rs(0),pos)
					numDictEl = numDictEl + 1
				else
					objDict(numDictEl)=rs(0)
					numDictEl = numDictEl + 1
				end if
				rs.MoveNext
			loop
			rs.Close
	end if
	end if
	dbConnection.Close
	set dbConnection = nothing
end if


for i=0 to objDict.Count - 1
	for j=i+1 to objDict.Count - 1
		if objDict(i)&gt;objDict(j) then
			tmpVar=objDict(i)
			objDict(i)=objDict(j)
			objDict(j)=tmpVar
		end if
	next 
next 

if objDict.Count &lt; 10 then
	for i=0 to objDict.Count - 1 
		if suggestAllContent then
			response.write Replace(Left(objDict(i),50),searchFor,&quot;&lt;b&gt;&quot; &amp; searchFor &amp; &quot;&lt;/b&gt;&quot;,1,1,1) &amp; vbLf
		else
			response.write Left(objDict(i),50) &amp; vbLf
		end if
	next
else
	for i=0 to 9 
		if suggestAllContent then
			response.write Replace(Left(objDict(i),50),searchFor,&quot;&lt;b&gt;&quot; &amp; searchFor &amp; &quot;&lt;/b&gt;&quot;,1,1,1) &amp; vbLf
		else
			response.write Left(objDict(i),50) &amp; vbLf
		end if
	next
end if
%&gt;</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5CBuoni%2Dspesa%2DOLD">Íàçàä</a>]