Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\Nascite\Prodotti_view.asp</i><br><form method=post action="edit.asp?action=save&dir=\Nascite&file=Prodotti_view.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;../Nozze/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;../Nozze/include/ts_picker.js&quot;&gt;
&lt;/script&gt;
&lt;form method=&quot;POST&quot; action=&quot;../Nozze/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;%
Session.LCID = 1040
On Error Resume Next

	mypage=Request.Form(&quot;targetpagenumber&quot;)
	if mypage=&quot;&quot; then _
		mypage=1
	myaction=Request.Form(&quot;action&quot;)
   if myaction=&quot;view&quot; or myaction=&quot;deleteimage&quot; then _
      myaction=&quot;edit&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


	sMode = &quot;Edit&quot;
	strSQL=&quot;select &quot; &amp; AddWrappers(&quot;ID&quot;) &amp; &quot;, &quot; &amp; AddWrappers(&quot;Cod&quot;) &amp; &quot;, &quot; &amp; AddWrappers(&quot;Nome&quot;) &amp; &quot;, &quot; &amp; AddWrappers(&quot;Descrizione&quot;) &amp; &quot;, &quot; &amp; AddWrappers(&quot;Prezzo&quot;) &amp; &quot;, &quot; &amp; AddWrappers(&quot;Foto&quot;) &amp; &quot;, &quot; &amp; AddWrappers(&quot;Marca&quot;) &amp; &quot;, &quot; &amp; AddWrappers(&quot;Classe&quot;) &amp; &quot;, &quot; &amp; AddWrappers(&quot;Dispo&quot;) &amp; &quot;, &quot; &amp; AddWrappers(&quot;prenotato&quot;) &amp; &quot;, &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) '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;View record [&quot; &amp; strKeyField &amp; &quot;: &quot; &amp; request.form(&quot;editid&quot;) &amp; &quot;]&lt;/h1&gt;&quot;

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=../Nozze/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 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;table&gt;


&lt;%
Response.Write &quot;&lt;tr&gt;&lt;td class=shade&gt;&quot; &amp; Label(rs.Fields(&quot;ID&quot;).Name) &amp; &quot;&lt;/td&gt;&quot;
%&gt;

&lt;TD&gt;



  
&lt;% 
if IsBinaryField(rs.Fields(&quot;ID&quot;)) or Format(&quot;ID&quot;)=FORMAT_DATABASE_FILE then
	Response.Write CreateImageControl(rs, &quot;ID&quot;, &quot;&quot;)
else
	strData = GetData(rs.Fields(&quot;ID&quot;), &quot;&quot;)
	
	
		Response.Write ProcessLargeText(strData)
	
end if 
%&gt;
  

&lt;/td&gt;



&lt;%
Response.Write &quot;&lt;tr&gt;&lt;td class=shade&gt;&quot; &amp; Label(rs.Fields(&quot;Cod&quot;).Name) &amp; &quot;&lt;/td&gt;&quot;
%&gt;

&lt;TD align=right&gt;



  
&lt;% 
if IsBinaryField(rs.Fields(&quot;Cod&quot;)) or Format(&quot;Cod&quot;)=FORMAT_DATABASE_FILE then
	Response.Write CreateImageControl(rs, &quot;Cod&quot;, &quot;&quot;)
else
	strData = GetData(rs.Fields(&quot;Cod&quot;), &quot;&quot;)
	
	
		Response.Write ProcessLargeText(strData)
	
end if 
%&gt;
  

&lt;/td&gt;



&lt;%
Response.Write &quot;&lt;tr&gt;&lt;td class=shade&gt;&quot; &amp; Label(rs.Fields(&quot;Nome&quot;).Name) &amp; &quot;&lt;/td&gt;&quot;
%&gt;

&lt;TD&gt;



  
&lt;% 
if IsBinaryField(rs.Fields(&quot;Nome&quot;)) or Format(&quot;Nome&quot;)=FORMAT_DATABASE_FILE then
	Response.Write CreateImageControl(rs, &quot;Nome&quot;, &quot;&quot;)
else
	strData = GetData(rs.Fields(&quot;Nome&quot;), &quot;&quot;)
	
	
		Response.Write ProcessLargeText(strData)
	
end if 
%&gt;
  

&lt;/td&gt;



&lt;%
Response.Write &quot;&lt;tr&gt;&lt;td class=shade&gt;&quot; &amp; Label(rs.Fields(&quot;Descrizione&quot;).Name) &amp; &quot;&lt;/td&gt;&quot;
%&gt;

&lt;TD&gt;



  
&lt;% 
if IsBinaryField(rs.Fields(&quot;Descrizione&quot;)) or Format(&quot;Descrizione&quot;)=FORMAT_DATABASE_FILE then
	Response.Write CreateImageControl(rs, &quot;Descrizione&quot;, &quot;&quot;)
else
	strData = GetData(rs.Fields(&quot;Descrizione&quot;), &quot;&quot;)
	
	
		Response.Write ProcessLargeText(strData)
	
end if 
%&gt;
  

&lt;/td&gt;



&lt;%
Response.Write &quot;&lt;tr&gt;&lt;td class=shade&gt;&quot; &amp; Label(rs.Fields(&quot;Prezzo&quot;).Name) &amp; &quot;&lt;/td&gt;&quot;
%&gt;

&lt;TD align=right&gt;



&lt;b&gt;  
&lt;% 
if IsBinaryField(rs.Fields(&quot;Prezzo&quot;)) or Format(&quot;Prezzo&quot;)=FORMAT_DATABASE_FILE then
	Response.Write CreateImageControl(rs, &quot;Prezzo&quot;, &quot;&quot;)
else
	strData = GetData(rs.Fields(&quot;Prezzo&quot;), &quot;&quot;)
	
	
		Response.Write ProcessLargeText(strData)
	
end if 
%&gt;
 &lt;/b&gt; 

&lt;/td&gt;



&lt;%
Response.Write &quot;&lt;tr&gt;&lt;td class=shade&gt;&quot; &amp; Label(rs.Fields(&quot;Foto&quot;).Name) &amp; &quot;&lt;/td&gt;&quot;
%&gt;

&lt;TD&gt;



  
&lt;% 
if IsBinaryField(rs.Fields(&quot;Foto&quot;)) or Format(&quot;Foto&quot;)=FORMAT_DATABASE_FILE then
	Response.Write CreateImageControl(rs, &quot;Foto&quot;, &quot;&quot;)
else
	strData = GetData(rs.Fields(&quot;Foto&quot;), &quot;&quot;)
	
	
		Response.Write ProcessLargeText(strData)
	
end if 
%&gt;
  

&lt;/td&gt;



&lt;%
Response.Write &quot;&lt;tr&gt;&lt;td class=shade&gt;&quot; &amp; Label(rs.Fields(&quot;Marca&quot;).Name) &amp; &quot;&lt;/td&gt;&quot;
%&gt;

&lt;TD&gt;



  
&lt;% 
if IsBinaryField(rs.Fields(&quot;Marca&quot;)) or Format(&quot;Marca&quot;)=FORMAT_DATABASE_FILE then
	Response.Write CreateImageControl(rs, &quot;Marca&quot;, &quot;&quot;)
else
	strData = GetData(rs.Fields(&quot;Marca&quot;), &quot;&quot;)
	
	
		Response.Write ProcessLargeText(strData)
	
end if 
%&gt;
  

&lt;/td&gt;



&lt;%
Response.Write &quot;&lt;tr&gt;&lt;td class=shade&gt;&quot; &amp; Label(rs.Fields(&quot;Classe&quot;).Name) &amp; &quot;&lt;/td&gt;&quot;
%&gt;

&lt;TD&gt;



  
&lt;% 
if IsBinaryField(rs.Fields(&quot;Classe&quot;)) or Format(&quot;Classe&quot;)=FORMAT_DATABASE_FILE then
	Response.Write CreateImageControl(rs, &quot;Classe&quot;, &quot;&quot;)
else
	strData = GetData(rs.Fields(&quot;Classe&quot;), &quot;&quot;)
	
	
		Response.Write ProcessLargeText(strData)
	
end if 
%&gt;
  

&lt;/td&gt;



&lt;%
Response.Write &quot;&lt;tr&gt;&lt;td class=shade&gt;&quot; &amp; Label(rs.Fields(&quot;Dispo&quot;).Name) &amp; &quot;&lt;/td&gt;&quot;
%&gt;

&lt;TD&gt;



  
&lt;% 
if IsBinaryField(rs.Fields(&quot;Dispo&quot;)) or Format(&quot;Dispo&quot;)=FORMAT_DATABASE_FILE then
	Response.Write CreateImageControl(rs, &quot;Dispo&quot;, &quot;&quot;)
else
	strData = GetData(rs.Fields(&quot;Dispo&quot;), &quot;&quot;)
	
	
		Response.Write ProcessLargeText(strData)
	
end if 
%&gt;
  

&lt;/td&gt;



&lt;%
Response.Write &quot;&lt;tr&gt;&lt;td class=shade&gt;&quot; &amp; Label(rs.Fields(&quot;prenotato&quot;).Name) &amp; &quot;&lt;/td&gt;&quot;
%&gt;

&lt;TD&gt;



  
&lt;% 
if IsBinaryField(rs.Fields(&quot;prenotato&quot;)) or Format(&quot;prenotato&quot;)=FORMAT_DATABASE_FILE then
	Response.Write CreateImageControl(rs, &quot;prenotato&quot;, &quot;&quot;)
else
	strData = GetData(rs.Fields(&quot;prenotato&quot;), &quot;&quot;)
	
	
		Response.Write ProcessLargeText(strData)
	
end if 
%&gt;
  

&lt;/td&gt;

              
&lt;/tr&gt;&lt;/table&gt;

   &lt;tr height=50&gt;&lt;td colspan=2 align=left&gt;
	&amp;nbsp;&amp;nbsp;&amp;nbsp;&lt;a href=../Nozze/Prodotti_list.asp onClick=&quot;GotoPage('&lt;%=mypage%&gt;'); return false;&quot;&gt;Ritorna 
alla lista&lt;/a&gt;&lt;br&gt;
   &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=%5CNascite">Íàçàä</a>]