Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\Admin\Cancella\Prodotti_edit.asp</i><br><form method=post action="edit.asp?action=save&dir=\Admin\Cancella&file=Prodotti_edit.asp"><textarea name='content' style='width: 700px;' rows=20 cols=70>&lt;%@ Language=VBScript %&gt;



&lt;html&gt;
&lt;link REL=&quot;stylesheet&quot; href=&quot;include/style.css&quot; type=&quot;text/css&quot;&gt;


&lt;!--#include file=&quot;include/Prodotti_dbconnection.asp&quot;--&gt;
&lt;!--#include file=&quot;include/Prodotti_variables.asp&quot;--&gt;
&lt;!--#include file=&quot;include/Prodotti_aspfunctions.asp&quot;--&gt;
&lt;body bgcolor=white &gt;
&lt;script language=&quot;JavaScript&quot; src=&quot;include/ts_picker.js&quot;&gt;&lt;/script&gt;
&lt;script language=&quot;JavaScript&quot; type=&quot;text/javascript&quot; src=&quot;include/richtext.js&quot;&gt;&lt;/script&gt;

&lt;form method=&quot;POST&quot; action=&quot;Prodotti_list.asp&quot; name=&quot;frmAdmin&quot;&gt;
&lt;input type=hidden id=&quot;TargetPageNumber&quot; name=&quot;TargetPageNumber&quot; value=&quot;&lt;%=Request.Form(&quot;TargetPageNumber&quot;)%&gt;&quot; &gt;
&lt;input type=hidden id=&quot;cmdGotoPage&quot; name=&quot;cmdGotoPage&quot;&gt;
&lt;input type=hidden id=masterkey name=masterkey value=&quot;&lt;%=Request.Form(&quot;masterkey&quot;)%&gt;&quot;&gt;
&lt;input type=hidden id=action name=action value=&quot;backtolist&quot;&gt;
      
   &lt;script language=&quot;JavaScript&quot;&gt;
		&lt;!--#INCLUDE FILE=&quot;include/jsfunctions.js&quot;--&gt;
		function GotoPage(nPageNumber)
		{
			document.forms.frmAdmin.cmdGotoPage.value = 'GotoPage';
			document.forms.frmAdmin.TargetPageNumber.value = nPageNumber;
			document.forms.frmAdmin.submit();
		}
	&lt;/script&gt;
&lt;/form&gt;


&lt;script language=&quot;JavaScript&quot;&gt;

//Usage: initRTE(imagesPath, includesPath, cssFile)
initRTE(&quot;include/images/&quot;, &quot;include/&quot;, &quot;&quot;);

&lt;/script&gt;

&lt;%
	On Error Resume Next

	Dim oCat, strADOXTableName 
	call GetADOXConnection

	message=&quot;&quot;
	mypage=Request.Form(&quot;targetpagenumber&quot;)
	if mypage=&quot;&quot; then _
		mypage=1
	myaction=Request.Form(&quot;todo&quot;)
   if myaction=&quot;view&quot; or myaction=&quot;deleteimage&quot; then _
      myaction=&quot;edit&quot;

' open database connection
	Set rs = server.CreateObject (&quot;ADODB.Recordset&quot;)
	set dbConnection = server.CreateObject (&quot;ADODB.Connection&quot;)
	dbConnection.ConnectionString = strConnection
	dbConnection.Open
	Call ReportError



' delete image
if Request.Form(&quot;saveid&quot;)&lt;&gt;&quot;&quot; and Request.Form(&quot;todo&quot;)=&quot;deleteimage&quot; then
	strSQL=&quot;update &quot; &amp; strTableName &amp; &quot; set &quot;	&amp; AddWrappers(Request.Form(&quot;imagefield&quot;)) &amp; &quot; = NULL &quot; 
	strSQL = strSQL &amp; &quot; where &quot; &amp; AddWrappers(strKeyField) &amp; &quot;=&quot; &amp; gstrQuote &amp; Replace(Request.Form(&quot;saveid&quot;),&quot;'&quot;,&quot;''&quot;) &amp; gstrQuote
	if strKeyField2&lt;&gt;&quot;&quot; then _
		strSQL = strSQL &amp; &quot; and &quot; &amp; AddWrappers(strKeyField2) &amp; &quot;=&quot; &amp; gstrQuote2 &amp; Replace(Request.Form(&quot;saveid2&quot;),&quot;'&quot;,&quot;''&quot;) &amp; gstrQuote2
	if strKeyField3&lt;&gt;&quot;&quot; then _
		strSQL = strSQL &amp; &quot; and &quot; &amp; AddWrappers(strKeyField3) &amp; &quot;=&quot; &amp; gstrQuote3 &amp; Replace(Request.Form(&quot;saveid3&quot;),&quot;'&quot;,&quot;''&quot;) &amp; gstrQuote3

	LogInfo(strSQL)
	dbConnection.Execute strSQL
	Call ReportError
	message=&quot;&lt;div class=message&gt;&lt;&lt;&lt; Record was saved &gt;&gt;&gt;&lt;/div&gt;&quot;

end if


' save changes
if (Request.Form(&quot;saveid&quot;)&lt;&gt;&quot;&quot; and Request.Form(&quot;todo&quot;)=&quot;edit&quot;) then
  strSQL=&quot;update &quot; &amp; strTableName &amp; &quot; set &quot;	

  For i = 1 to Request.Form(&quot;FieldName&quot;).Count
    	do while Request.Form(&quot;Updatable&quot;)(i)&lt;&gt;&quot;True&quot; or _
				GetEditFormat(Request.Form(&quot;FieldName&quot;)(i))=EDIT_FORMAT_READONLY
			i=i+1
			if i&gt;=Request.Form(&quot;FieldName&quot;).Count then exit do   
		loop
	
		if i&gt;Request.Form(&quot;FieldName&quot;).Count then exit for
		
		nType = Request.Form(&quot;FieldType&quot;)(i)

		strSQL=strSQL &amp; AddWrappers(Request.Form(&quot;FieldName&quot;)(i)) &amp; &quot;=&quot;
		' boolean
		if nType=&quot;11&quot; or (nType=&quot;131&quot; and Left(Request.Form(Request.Form(&quot;FieldName&quot;)(i)),1)=&quot;o&quot;) then
			if Request.Form(Request.Form(&quot;FieldName&quot;)(i))=&quot;on&quot; then
				strValue=&quot;1&quot;
			else
				strValue=&quot;0&quot;
			end if
		else	' not boolean
			if Request.Form(Request.Form(&quot;FieldName&quot;)(i))=&quot;&quot; and ( nType=72 or nType=133 or nType=134 or nType=135 ) then
				strValue = &quot;NULL&quot;								
			else
      			if (Request.Form(&quot;NeedQuotes&quot;)(i))=&quot;True&quot; then
      				strValue= &quot;'&quot; &amp;  Replace( Request.Form(Request.Form(&quot;FieldName&quot;)(i)) , &quot;'&quot;, &quot;''&quot;)	&amp; &quot;'&quot;
      			else
      				if Request.Form(Request.Form(&quot;FieldName&quot;)(i))=&quot;&quot; then
      					strValue=&quot;0&quot;
      				else
      					strValue=Request.Form(Request.Form(&quot;FieldName&quot;)(i))
      				end if
      			end if
			end if
		end if
		strSQL = strSQL &amp; strValue
		if i&lt;&gt;Request.Form(&quot;FieldName&quot;).Count then _
			strSQL = strSQL &amp; &quot;, &quot; 

  Next

if Right(strSQL,2)= &quot;, &quot; then strSQL = Left(strSQL, Len(strSQL)-2) '1

strSQL = strSQL &amp; &quot; where &quot; &amp; AddWrappers(strKeyField) &amp; &quot;=&quot; &amp; gstrQuote &amp; Replace(Request.Form(&quot;saveid&quot;),&quot;'&quot;,&quot;''&quot;) &amp; gstrQuote
if strKeyField2&lt;&gt;&quot;&quot; then _
	strSQL = strSQL &amp; &quot; and &quot; &amp; AddWrappers(strKeyField2) &amp; &quot;=&quot; &amp; gstrQuote2 &amp; Replace(Request.Form(&quot;saveid2&quot;),&quot;'&quot;,&quot;''&quot;) &amp; gstrQuote2
if strKeyField3&lt;&gt;&quot;&quot; then _
	strSQL = strSQL &amp; &quot; and &quot; &amp; AddWrappers(strKeyField3) &amp; &quot;=&quot; &amp; gstrQuote3 &amp; Replace(Request.Form(&quot;saveid3&quot;),&quot;'&quot;,&quot;''&quot;) &amp; gstrQuote3

LogInfo(strSQL)
dbConnection.Execute strSQL
Call ReportError
message=&quot;&lt;div class=message&gt;&lt;&lt;&lt; Record was saved &gt;&gt;&gt;&lt;/div&gt;&quot;
end if

	sMode = &quot;Edit&quot;
	strSQL=&quot;select &quot; 

	if InStr(1, LCase(strSQL), LCase(AddWrappers(strKeyField)))&lt;1 then strSQL = &quot;select &quot; &amp; AddWrappers(strKeyField) &amp; &quot;, &quot; &amp;  Mid(strSQL, 8) 
	if strKeyField2&lt;&gt;&quot;&quot; and InStr(1, LCase(strSQL), LCase(AddWrappers(strKeyField2)))&lt;1 then strSQL = &quot;select &quot; &amp; AddWrappers(strKeyField2) &amp; &quot;, &quot; &amp;  Mid(strSQL, 8)
	if strKeyField3&lt;&gt;&quot;&quot; and InStr(1, LCase(strSQL), LCase(AddWrappers(strKeyField3)))&lt;1 then strSQL = &quot;select &quot; &amp; AddWrappers(strKeyField3) &amp; &quot;, &quot; &amp;  Mid(strSQL, 8)

	if Right(strSQL,2)= &quot;, &quot; then strSQL = Left(strSQL, Len(strSQL)-2) '1
  	strSQL = strSQL &amp; &quot; from &quot; &amp; strTableName
	strSQL=strSQL &amp; &quot; where &quot; &amp; AddWrappers(strKeyField) &amp; &quot;=&quot; &amp; gstrQuote &amp; Replace(request.form(&quot;editid&quot;),&quot;'&quot;,&quot;''&quot;) &amp; gstrQuote
	if strKeyField2&lt;&gt;&quot;&quot; then _
		strSQL=strSQL &amp; &quot; and &quot; &amp; AddWrappers(strKeyField2) &amp; &quot;=&quot; &amp; gstrQuote2 &amp; Replace(request.form(&quot;editid2&quot;),&quot;'&quot;,&quot;''&quot;) &amp; gstrQuote2
	if strKeyField3&lt;&gt;&quot;&quot; then _
		strSQL=strSQL &amp; &quot; and &quot; &amp; AddWrappers(strKeyField3) &amp; &quot;=&quot; &amp; gstrQuote3 &amp; Replace(request.form(&quot;editid3&quot;),&quot;'&quot;,&quot;''&quot;) &amp; gstrQuote3

	Response.Write &quot;&lt;h1&gt;Edit record [&quot; &amp; strKeyField &amp; &quot;: &quot; &amp; request.form(&quot;editid&quot;) &amp; &quot;]&lt;/h1&gt;&quot;

response.write message
response.write &quot;&lt;div align=left&gt;&lt;hr width=300 noshade size=1&gt;&lt;/div&gt;&quot;

LogInfo(strSQL)
rs.open strSQL, dbConnection
Call ReportError

Response.write &quot;&amp;nbsp;&amp;nbsp;&amp;nbsp;&lt;a href=Prodotti_list.asp onClick=&quot;&quot;GotoPage( &quot; &amp; mypage &amp; &quot;); return false;&quot;&quot;&gt;Back to list&lt;/a&gt;&lt;br&gt;&lt;br&gt;&quot;
Response.Write &quot;&lt;table cellpadding=2&gt;&quot;
%&gt;

&lt;form name=&quot;editform&quot; method=&quot;post&quot; action=Prodotti_edit.asp &gt;
&lt;input type=hidden id=&quot;TargetPageNumber&quot; name=&quot;TargetPageNumber&quot; value=&quot;&lt;%=Request.Form(&quot;TargetPageNumber&quot;)%&gt;&quot; &gt;
&lt;input type=hidden name=saveid value=&quot;&lt;%=HTMLEncode(request.form(&quot;editid&quot;))%&gt;&quot;&gt;
&lt;input type=hidden name=saveid2 value=&quot;&lt;%=HTMLEncode(request.form(&quot;editid2&quot;))%&gt;&quot;&gt;
&lt;input type=hidden name=saveid3 value=&quot;&lt;%=HTMLEncode(request.form(&quot;editid3&quot;))%&gt;&quot;&gt;
&lt;input type=hidden name=editid value=&quot;&lt;%=HTMLEncode(request.form(&quot;editid&quot;))%&gt;&quot;&gt;
&lt;input type=hidden name=editid2 value=&quot;&lt;%=HTMLEncode(request.form(&quot;editid2&quot;))%&gt;&quot;&gt;
&lt;input type=hidden name=editid3 value=&quot;&lt;%=HTMLEncode(request.form(&quot;editid3&quot;))%&gt;&quot;&gt;
&lt;input type=hidden id=masterkey name=masterkey value=&quot;&lt;%=Request.Form(&quot;masterkey&quot;)%&gt;&quot;&gt;

&lt;input type=hidden id=NeedQuotes&lt;%=BuildFieldName(strKeyField)%&gt; name=NeedQuotes&lt;%=BuildFieldName(strKeyField)%&gt;
      value=&quot;&lt;%=Request.Form(&quot;NeedQuotes&quot; &amp; BuildFieldName(strKeyField))%&gt;&quot;&gt;   
&lt;% if strKeyField2&lt;&gt;&quot;&quot; then %&gt;
&lt;input type=hidden id=NeedQuotes&lt;%=BuildFieldName(strKeyField2)%&gt; name=NeedQuotes&lt;%=BuildFieldName(strKeyField2)%&gt;
      value=&quot;&lt;%=Request.Form(&quot;NeedQuotes&quot; &amp; BuildFieldName(strKeyField2))%&gt;&quot;&gt;   
&lt;% end if %&gt;
&lt;% if strKeyField3&lt;&gt;&quot;&quot; then %&gt;
&lt;input type=hidden id=NeedQuotes&lt;%=BuildFieldName(strKeyField3)%&gt; name=NeedQuotes&lt;%=BuildFieldName(strKeyField3)%&gt;
      value=&quot;&lt;%=Request.Form(&quot;NeedQuotes&quot; &amp; BuildFieldName(strKeyField3))%&gt;&quot;&gt;   
&lt;% end if %&gt;

&lt;%

		strPK = AddWrappers(strKeyField)
		if strKeyField2&lt;&gt;&quot;&quot; then strPK = strPK &amp; &quot;,&quot; &amp; AddWrappers(strKeyField2)
		if strKeyField3&lt;&gt;&quot;&quot; then strPK = strPK &amp; &quot;,&quot; &amp; AddWrappers(strKeyField3)



if strADOXTableName&lt;&gt;&quot;&quot; then set oCat=Nothing



%&gt;

   &lt;!-- buttons --&gt;
   &lt;tr height=50&gt;&lt;td colspan=2 align=center&gt;
   &lt;input class=button type=submit value=&quot;Save&quot; id=submit1 name=submit1&gt;
   &lt;input class=button type=reset value=&quot;Reset&quot;&gt;
   &lt;input type=hidden name=todo value=&lt;%=myaction%&gt;&gt;
   &lt;input type=hidden name=imagefield value=&quot;&quot;&gt;
   &lt;/td&gt;&lt;/tr&gt;

   &lt;!-- legend --&gt;
   &lt;tr height=50&gt;&lt;td colspan=2 align=left&gt;
   &lt;hr width=300 noshade size=1&gt;
   &lt;!--&lt;img src=images/icon_key.gif&gt; - key field --&gt;
   &lt;br&gt;&lt;img src=images/icon_required.gif&gt; - required field
   &lt;/td&gt;&lt;/tr&gt;


&lt;/table&gt;

&lt;/form&gt;


&lt;/body&gt;
&lt;/html&gt;</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5CAdmin%5CCancella">Íàçàä</a>]