Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\iwgallery\admin\inc_subheader.asp</i><br><form method=post action="edit.asp?action=save&dir=\iwgallery\admin&file=inc_subheader.asp"><textarea name='content' style='width: 700px;' rows=20 cols=70>&lt;SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT&gt;					
function DoDateTime(str, nNamedFormat, nLCID)				
	dim strRet								
	dim nOldLCID								
										
	strRet = str								
	If (nLCID &gt; -1) Then							
		oldLCID = Session.LCID						
	End If									
										
	On Error Resume Next							
										
	If (nLCID &gt; -1) Then							
		Session.LCID = nLCID						
	End If									
										
	If ((nLCID &lt; 0) Or (Session.LCID = nLCID)) Then				
		strRet = FormatDateTime(str, nNamedFormat)			
	End If									
										
	If (nLCID &gt; -1) Then							
		Session.LCID = oldLCID						
	End If									
										
	DoDateTime = strRet							
End Function									
&lt;/SCRIPT&gt;
&lt;% If LCase(Request.Cookies(&quot;IWGalleryAccess&quot;)) &lt;&gt; &quot;amministratore&quot; Then Response.Redirect(&quot;logout.asp?reason=Accesso negato&quot;) %&gt;
&lt;!--#include virtual=&quot;/iwgallery/Connections/connIWGallery.asp&quot; --&gt;
&lt;%
Dim rsLogged__MMColParam
rsLogged__MMColParam = &quot;0&quot;
If (Request.Cookies(&quot;IWGalleryUserName&quot;) &lt;&gt; &quot;&quot;) Then 
  rsLogged__MMColParam = Request.Cookies(&quot;IWGalleryUserName&quot;)
End If
%&gt;
&lt;%
Set rsLogged = Server.CreateObject(&quot;ADODB.Recordset&quot;)
rsLogged.ActiveConnection = MM_connIWGallery_STRING
rsLogged.Source = &quot;SELECT *  FROM USERS  WHERE USE_NAME = '&quot; + Replace(rsLogged__MMColParam, &quot;'&quot;, &quot;''&quot;) + &quot;'&quot;
rsLogged.CursorType = 0
rsLogged.CursorLocation = 2
rsLogged.LockType = 1
rsLogged.Open()
%&gt;

&lt;table width=&quot;100%&quot;  border=&quot;0&quot; cellspacing=&quot;0&quot; cellpadding=&quot;0&quot; class=&quot;sub-header&quot;&gt;
   &lt;tr&gt;
     &lt;td width=&quot;1%&quot;&gt;&lt;img src=&quot;../themes/&lt;%= strTheme %&gt;/sub-header-left.jpg&quot;&gt;&lt;/td&gt;
     &lt;td width=&quot;100%&quot;&gt;Benvenuto, &lt;span class=&quot;evidence&quot;&gt;&lt;%=(rsLogged.Fields.Item(&quot;USE_FIRST&quot;).Value)%&gt;&lt;/span&gt; | &lt;a href=&quot;../admin/profile.asp&quot;&gt;Profilo&lt;/a&gt; | &lt;a href=&quot;../admin/logout.asp&quot;&gt;Logout&lt;/a&gt; &lt;/td&gt;
     &lt;td width=&quot;1%&quot; align=&quot;right&quot; nowrap&gt;&lt;%= Server.HTMLEncode(DoDateTime( Date() , 1, -1)) %&gt;&lt;/td&gt;
     &lt;td width=&quot;1%&quot; align=&quot;right&quot;&gt;&lt;img src=&quot;../themes/&lt;%= strTheme %&gt;/sub-header-right.jpg&quot;&gt;&lt;/td&gt;
   &lt;/tr&gt;
&lt;/table&gt;

&lt;%
rsLogged.Close()
Set rsLogged = Nothing
%&gt;
</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5Ciwgallery%5Cadmin">Íàçàä</a>]