Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\Offerte\admin\frmproduct.asp</i><br><form method=post action="edit.asp?action=save&dir=\Offerte\admin&file=frmproduct.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;!--#include File=&quot;upload.asp&quot;--&gt;

&lt;%	
	dim productname
	'dim price
	dim category
	dim details
	dim filename
	
	dim msg
	Set Uploader = New FileUploader
	Uploader.Upload()


	if Uploader.Form(&quot;submit&quot;)&lt;&gt;&quot;&quot; then
		productname = Uploader.Form(&quot;name&quot;)
		'price = Uploader.Form(&quot;Price&quot;)
		category = Uploader.Form(&quot;Category&quot;)
		details = Uploader.Form(&quot;details&quot;)
		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
'##########################################################
' Cambio Percorso salvataggio Immagini
'##########################################################
	if Uploader.Files.count &lt;&gt; 0 then
		File = Uploader.Files.Items()
		File(0).SavetoDisk Server.MapPath(&quot;\public\immagini\Articoli&quot;)
		filename = File(0).Filename
	else
		filename = &quot;&quot;
	End if

		
		if Uploader.Form(&quot;id&quot;)=&quot;&quot; then
			rs.open &quot;Select * From Products&quot;,cn,2,3
			rs.addnew
			rs.fields(&quot;productname&quot;) = productname
			'rs.fields(&quot;price&quot;) = price
			if filename &lt;&gt;&quot;&quot; then rs.fields(&quot;image&quot;) = filename
			rs.fields(&quot;details&quot;) = details
			rs.fields(&quot;categoryid&quot;) = category
			rs.update
			msg = &quot;L'articolo è stato salvato&quot;
			saved = true
		else
			rs.open &quot;Select * From Products Where ProductID=&quot; &amp; Uploader.Form(&quot;id&quot;),cn,2,3
			rs.fields(&quot;productname&quot;) = productname
			'rs.fields(&quot;price&quot;) = price
			rs.fields(&quot;details&quot;) = details
			rs.fields(&quot;categoryid&quot;) = category
			if filename &lt;&gt;&quot;&quot; then rs.fields(&quot;image&quot;) = filename
			rs.update
			msg = &quot;L'articolo è stato aggiornato&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 Products Where ProductID=&quot; &amp; request.QueryString(&quot;id&quot;),cn
	if not rs.eof then
		productname = rs.fields(&quot;productname&quot;)
		'price = rs.fields(&quot;price&quot;)
		details = rs.fields(&quot;details&quot;)
		category = rs.fields(&quot;categoryid&quot;)
		filename = rs.fields(&quot;image&quot;)
	End If
	rs.close
	cn.close
	set rs = nothing
	set cn = nothing
	msg = &quot;L'articolo è stato caricato.&quot;
End Sub

%&gt;

&lt;html&gt;
&lt;head&gt;
&lt;title&gt;Amministrazione&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;style type=&quot;text/css&quot;&gt;
.titolo1 {
	font-family: Verdana, Geneva, sans-serif;
}
body,td,th {
	font-family: Verdana, Geneva, sans-serif;
	color: #009;
	font-weight: bold;
	font-size: small;
}
&lt;/style&gt;
&lt;/head&gt;

&lt;body&gt;
&lt;h2 align=&quot;center&quot; class=&quot;titolo1&quot;&gt;&lt;strong&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;/strong&gt;&lt;/h2&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; enctype=&quot;multipart/form-data&quot; name=&quot;form1&quot;&gt;
  &lt;table width=&quot;56%&quot; height=&quot;237&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;SPAN closure_uid_i7pyw5=&quot;420&quot;&gt;Aggiungi una nuova Occasione&lt;/SPAN&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;&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;%=productname%&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;&lt;font size=&quot;2&quot; face=&quot;Verdana, Arial, Helvetica, sans-serif&quot;&gt;Occasione&lt;/font&gt;&lt;/td&gt;
      &lt;td&gt;&lt;select name=&quot;category&quot; id=&quot;category&quot;&gt;
          &lt;%
dim rs1
dim cn1
set cn1 = server.CreateObject(&quot;Adodb.Connection&quot;)
set rs1 = server.CreateObject(&quot;Adodb.Recordset&quot;)
cn1.Open conn
rs1.open &quot;Select * From ProductCategories&quot;,cn1
%&gt;
          &lt;option value=&quot;0&quot; selected &gt;Seleziona&lt;/option&gt;
          &lt;option value=&quot;0&quot; &gt;-&lt;/option&gt;
          &lt;%if not rs1.eof then
		  while not rs1.eof%&gt;
          &lt;option value=&quot;&lt;%=rs1.fields(&quot;CategoryID&quot;)%&gt;&quot; &lt;%if CLng(Category)=rs1.fields(&quot;CategoryID&quot;) then response.Write(&quot;Selected&quot;)%&gt;&gt;&lt;%=rs1.fields(&quot;CategoryName&quot;)%&gt;&lt;/option&gt;
          &lt;%
rs1.movenext
wend
end if
%&gt;
      &lt;/select&gt; &lt;/td&gt;
    &lt;/tr&gt;
    &lt;tr&gt;
      &lt;td height=&quot;26&quot; valign=&quot;top&quot;&gt;&lt;font size=&quot;2&quot; face=&quot;Verdana, Arial, Helvetica, sans-serif&quot;&gt;Immagine&lt;/font&gt;&lt;/td&gt;
      &lt;td&gt;&lt;input type=&quot;file&quot; name=&quot;file&quot;&gt;
        &lt;font color=&quot;#FF0000&quot;&gt;&lt;%= filename%&gt;&lt;/font&gt;&lt;/td&gt;
    &lt;/tr&gt;
    &lt;tr&gt; 
      &lt;td height=&quot;26&quot; valign=&quot;top&quot;&gt;&lt;font size=&quot;2&quot; face=&quot;Verdana, Arial, Helvetica, sans-serif&quot;&gt;Descrizione&lt;/font&gt;&lt;/td&gt;
      &lt;td&gt;&lt;textarea name=&quot;details&quot; cols=&quot;40&quot; rows=&quot;5&quot; id=&quot;name2&quot;&gt;&lt;%=details%&gt;&lt;/textarea&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&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;listproducts.asp&quot;&gt;Visualizza&lt;/a&gt;&lt;/p&gt;
&lt;p&gt;Torna al  &lt;a href=&quot;admin.asp&quot;&gt;Men&amp;ugrave;&lt;/a&gt;&lt;/p&gt;
&lt;p&gt;Torna alle &lt;a href=&quot;/offerte/default.asp&quot;&gt;occasioni&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>]