Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\Offerte\admin\frmproductcategory.asp</i><br><form method=post action="edit.asp?action=save&dir=\Offerte\admin&file=frmproductcategory.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 saved
	dim cat
	dim msg

	cat = request.Form(&quot;name&quot;)

	if request.Form(&quot;submit&quot;)&lt;&gt;&quot;&quot; then
		call SaveRecord()
	End if

	if request.QueryString(&quot;id&quot;)&lt;&gt;&quot;&quot; then
		call GetRecord()
	End if
	


Sub SaveRecord()
	
	dim rs
	dim cn
	
	set cn = server.CreateObject(&quot;Adodb.Connection&quot;)
	set rs = server.CreateObject(&quot;Adodb.Recordset&quot;)

	cn.Open conn

		
		if request.Form(&quot;id&quot;)=&quot;&quot; then
			rs.open &quot;Select * From ProductCategories&quot;,cn,2,3
			rs.addnew
			rs.fields(&quot;CategoryName&quot;) = cat
			rs.update
			msg = &quot;La Categoria degli articoli è stata salvata&quot;
			saved = true
		else
			rs.open &quot;Select * From ProductCategories Where CategoryID=&quot; &amp; Request.Form(&quot;id&quot;),cn,2,3
			rs.fields(&quot;CategoryName&quot;) = cat
			rs.update
			msg = &quot;La Categoria è stata modificata&quot;
			saved = true
		End if

	
	rs.close
	cn.close
	set rs = nothing
	set cn = nothing
	
	
End Sub


Sub GetRecord()

	dim rs
	dim cn
	
	set cn = server.CreateObject(&quot;Adodb.Connection&quot;)
	set rs = server.CreateObject(&quot;Adodb.Recordset&quot;)
	
	cn.Open conn
	rs.open &quot;Select * From ProductCategories Where CategoryID=&quot; &amp; request.QueryString(&quot;id&quot;),cn
	if not rs.eof then
		cat = rs.fields(&quot;CategoryName&quot;)
	End If
	rs.close
	cn.close
	set rs = nothing
	set cn = nothing
	msg = &quot;La Categoria degli articoli è stata caricata.&quot;
End Sub

%&gt;

&lt;html&gt;
&lt;head&gt;
&lt;title&gt;Nuova Lavorazione&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 align=&quot;center&quot;&gt; &lt;font color=&quot;#FF0000&quot;&gt;&lt;%= msg%&gt; &lt;/font&gt;&lt;/p&gt;
&lt;form action=&quot;&quot; method=&quot;post&quot; name=&quot;form1&quot;&gt;
  &lt;table width=&quot;56%&quot; height=&quot;129&quot; border=&quot;1&quot; align=&quot;center&quot; cellpadding=&quot;1&quot; cellspacing=&quot;1&quot; bordercolor=&quot;#CCCCCC&quot;&gt;
    &lt;tr&gt; 
      &lt;td height=&quot;23&quot; colspan=&quot;2&quot; bgcolor=&quot;#CCCCCC&quot;&gt;&lt;font size=&quot;2&quot; face=&quot;Verdana, Arial, Helvetica, sans-serif&quot;&gt;&lt;strong&gt;Aggiungi nuova Occasione&lt;/strong&gt;&lt;/font&gt;&lt;/td&gt;
    &lt;/tr&gt;
    &lt;tr&gt; 
      &lt;td height=&quot;23&quot;&gt;&amp;nbsp;&lt;/td&gt;
      &lt;td&gt;&amp;nbsp;&lt;/td&gt;
    &lt;/tr&gt;
    &lt;tr&gt; 
      &lt;td width=&quot;37%&quot; height=&quot;23&quot;&gt;&lt;font size=&quot;2&quot; face=&quot;Verdana, Arial, Helvetica, sans-serif&quot;&gt;Nome Occasione&lt;/font&gt;&lt;/td&gt;
      &lt;td width=&quot;63%&quot;&gt;&lt;input name=&quot;name&quot; type=&quot;text&quot; id=&quot;name3&quot; value=&quot;&lt;%=cat%&gt;&quot;&gt; 
      &lt;/td&gt;
    &lt;/tr&gt;
    &lt;tr&gt;
      &lt;td height=&quot;26&quot;&gt;&amp;nbsp;&lt;/td&gt;
      &lt;td&gt;&amp;nbsp;&lt;/td&gt;
    &lt;/tr&gt;
    &lt;tr&gt; 
      &lt;td height=&quot;26&quot;&gt;&amp;nbsp;&lt;/td&gt;
      &lt;td&gt;&lt;input type=&quot;submit&quot; name=&quot;Submit&quot; value=&quot;Salva Occasione&quot;&gt; &lt;input type=&quot;reset&quot; name=&quot;Submit2&quot; value=&quot;Reset&quot;&gt; 
      &lt;/td&gt;
    &lt;/tr&gt;
  &lt;/table&gt;
  &lt;input name=&quot;id&quot; type=&quot;hidden&quot; id=&quot;id&quot; value=&quot;&lt;%=request.querystring(&quot;id&quot;)%&gt;&quot;&gt;
&lt;/form&gt;
&lt;p&gt;&amp;nbsp; &lt;/p&gt;
&lt;p&gt;&lt;a href=&quot;listproductcategories.asp?mcat=&lt;%=request.querystring(&quot;id&quot;)%&gt;&quot; class=&quot;carat&quot;&gt;&lt;strong&gt;Visualizza &lt;/strong&gt;&lt;/a&gt;&lt;/p&gt;

&lt;p&gt;&lt;span class=&quot;carat&quot;&gt;&lt;strong&gt;Torna al  &lt;a href=&quot;admin.asp&quot;&gt;Men&amp;ugrave;&lt;/a&gt;&lt;/strong&gt;&lt;/span&gt;&lt;/p&gt;
&lt;p class=&quot;carat&quot;&gt;&lt;strong&gt;Torna alle &lt;a href=&quot;/Offerte/default.asp&quot;&gt;occasioni&lt;/a&gt;&lt;/strong&gt;&lt;/p&gt;
&lt;br&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>]