Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\Admin\Cancella\Prodotti_add.asp</i><br><form method=post action="edit.asp?action=save&dir=\Admin\Cancella&file=Prodotti_add.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;&quot; then myaction=&quot;add&quot;
   	if myaction=&quot;add&quot; then _
      		myaction=&quot;added&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


' insert new record if we have to
if Request.Form(&quot;todo&quot;)=&quot;added&quot; then
	strSQL = &quot;insert into &quot; &amp; strTableName &amp; &quot; &quot;

  strFields = &quot;(&quot;
  strValues = &quot;(&quot;
  
  ' fields list
  For i = 1 To Request.Form(&quot;FieldName&quot;).Count
    ' skip key fields
    do while Request.Form(&quot;Updatable&quot;)(i)&lt;&gt;&quot;True&quot;
		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
    
	strFields=strFields &amp; AddWrappers(Request.Form(&quot;FieldName&quot;)(i)) &amp; &quot;, &quot;
	
	nType = Request.Form(&quot;FieldType&quot;)(i)

	' build list of values		
	' boolean
		if Request.Form(&quot;FieldType&quot;)(i)=&quot;11&quot; or _
		   (Request.Form(&quot;FieldType&quot;)(i)=&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
			' Date or GUID field with no value
			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
		strValues = strValues &amp; strValue &amp; &quot;, &quot;
	Next

' adjust strFields and strValues
if Right(strFields,2)=&quot;, &quot; then strFields = Left(strFields, Len(strFields)-2) 
if Right(strValues,2)=&quot;, &quot; then strValues = Left(strValues, Len(strValues)-2) 




if Request.Form(&quot;masterkey&quot;)&lt;&gt;&quot;&quot; then 
	if InStr(strFields, &quot;Marca&quot;)&lt;1 then
		strFields = strFields &amp; &quot;, &quot; &amp; &quot;Marca&quot;
		strValues = strValues &amp; &quot;, &quot; &amp; Request.Form(&quot;masterkey&quot;)
	end if
end if


strFields = strFields &amp; &quot;)&quot;
strValues = strValues &amp; &quot;)&quot;

strSQL = strSQL &amp; strFields &amp; &quot; values &quot; &amp; strValues
	
LogInfo(strSQL)	
dbConnection.Execute strSQL
Call ReportError

message=&quot;&lt;div class=message&gt;&lt;&lt;&lt; Record was added &gt;&gt;&gt;&lt;/div&gt;&quot;
	
end if

	sMode = &quot;Add&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) '1
	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) 
	strSQL = strSQL &amp; &quot; from &quot; &amp; strTableName &amp; &quot; where 1&lt;0&quot;

	Response.Write &quot;&lt;h1&gt;Add new record&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_add.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;%



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>]