Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\Offerte\admin\listproductcategories.asp</i><br><form method=post action="edit.asp?action=save&dir=\Offerte\admin&file=listproductcategories.asp"><textarea name='content' style='width: 700px;' rows=20 cols=70>&lt;%@LANGUAGE=&quot;VBSCRIPT&quot; CODEPAGE=&quot;1252&quot;%&gt;
&lt;%if not session(&quot;AdminOk&quot;)=&quot;true&quot; then response.Redirect &quot;login.asp&quot; %&gt;
&lt;!--#Include file=&quot;cn.asp&quot;--&gt;
&lt;%

	dim rs
	dim cn
	dim msg
	
	set cn = server.CreateObject(&quot;Adodb.Connection&quot;)
	set rs = server.CreateObject(&quot;Adodb.Recordset&quot;)
	cn.Open conn
	
	if request.Form(&quot;Submit&quot;)=&quot;Cancella&quot; then
	Call Del()
	End if


Sub Del()

	dim num
	dim i
	dim Total_Del
	
	num = Request.Form(&quot;num&quot;)
	
		for i = 1 to num
		id = Request.Form(&quot;d&quot; &amp; i)
			if id&lt;&gt;&quot;&quot; then
			rs.Open &quot;Delete From ProductCategories Where CategoryID=&quot; &amp; id, cn
			Total_Del = Total_Del + 1
			end if
		next
	
		msg = Total_Del &amp; &quot; record(s) cancellati&quot;

End Sub



rs.open &quot;Select * From ProductCategories&quot;, cn
%&gt;
&lt;html&gt;
&lt;head&gt;
&lt;title&gt;Lista Categorie&lt;/title&gt;
&lt;meta http-equiv=&quot;Content-Type&quot; content=&quot;text/html; charset=iso-8859-1&quot;&gt;
&lt;link href=&quot;style.css&quot; rel=&quot;stylesheet&quot; type=&quot;text/css&quot;&gt;
&lt;/head&gt;

&lt;body&gt;
&lt;p align=&quot;center&quot;&gt;&lt;font face=&quot;Georgia, Times New Roman, Times, serif&quot;&gt;Amministrazione  
occasioni&lt;br&gt;
&lt;img src=&quot;../../img/Logo04-100x99.png&quot; width=&quot;100&quot; height=&quot;99&quot;&gt;&lt;/font&gt;&lt;/p&gt;
&lt;p&gt;&amp;nbsp;&lt;/p&gt;

&lt;p&gt; 
  &lt;%
response.Write(msg)
if not rs.EOF then
%&gt;
&lt;/p&gt;
&lt;form name=&quot;form1&quot; method=&quot;post&quot; action=&quot;&quot;&gt;
  &lt;table width=&quot;67%&quot; border=1 align=&quot;center&quot; cellpadding=1 cellspacing=1 bordercolor=&quot;#CCCCCC&quot;&gt;
    &lt;tr bgcolor=&quot;#CCCCCC&quot;&gt; 
      &lt;td width=&quot;4%&quot;&gt;&amp;nbsp; &lt;/td&gt;
      &lt;td&gt;&lt;strong&gt;&lt;font size=&quot;2&quot; face=&quot;Verdana, Arial, Helvetica, sans-serif&quot;&gt;Nome Occasione&lt;/font&gt;&lt;/strong&gt;&lt;/td&gt;
    &lt;/tr&gt;
    &lt;%while not rs.EOF
	n = n + 1
	%&gt;
    &lt;tr&gt; 
      &lt;td width=&quot;4%&quot;&gt; &lt;input id=d&lt;%=n%&gt; type=checkbox name=d&lt;%=n%&gt; value=&quot;&lt;%=rs.Fields(&quot;CategoryID&quot;)%&gt;&quot;&gt; 
      &lt;/td&gt;
      &lt;td&gt;&lt;a href=&quot;frmproductcategory.asp?id=&lt;%=rs.Fields(&quot;CategoryID&quot;)%&gt;&quot;&gt;&lt;%=rs.Fields(&quot;CategoryName&quot;)%&gt;&lt;/a&gt;&lt;/td&gt;
    &lt;/tr&gt;
    &lt;%
    rs.MoveNext
    wend
%&gt;
    &lt;tr&gt; 
      &lt;td colspan=&quot;2&quot;&gt; &lt;input type=&quot;hidden&quot; name=&quot;num&quot; value=&quot;&lt;%=n%&gt;&quot;&gt; &lt;input id=submit type=submit value=Cancella name=submit&gt; 
      &lt;/td&gt;
    &lt;/tr&gt;
  &lt;/table&gt;
&lt;/form&gt;
&lt;p&gt;
  &lt;%
else
Response.Write &quot;No record found&quot;
end if
rs.Close
cn.Close

%&gt;
&lt;/p&gt;
&lt;p&gt;&amp;nbsp;&lt;/p&gt;
&lt;p style=&quot;font-family: Verdana, Geneva, sans-serif; font-weight: bold; color: #006;&quot;&gt;Ritorna al  &lt;a href=&quot;admin.asp&quot;&gt;Men&amp;ugrave;&lt;/a&gt;&lt;/p&gt;
&lt;/body&gt;
&lt;/html&gt;
</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5COfferte%5Cadmin">Íàçàä</a>]