Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\iwgallery\users\inc_profile_ok.asp</i><br><form method=post action="edit.asp?action=save&dir=\iwgallery\users&file=inc_profile_ok.asp"><textarea name='content' style='width: 700px;' rows=20 cols=70>&lt;% If Request.Cookies(&quot;IWGalleryUserName&quot;) = &quot;&quot; Then Response.Redirect(&quot;../home/&quot;) %&gt;
&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;!--#include virtual=&quot;/iwgallery/Connections/connIWGallery.asp&quot; --&gt;
&lt;%
Dim rsProfile__iUser
rsProfile__iUser = &quot;0&quot;
If (Request.Cookies(&quot;IWGalleryUserID&quot;) &lt;&gt; &quot;&quot;) Then 
  rsProfile__iUser = Request.Cookies(&quot;IWGalleryUserID&quot;)
End If
%&gt;
&lt;%
Dim rsProfile__nUser
rsProfile__nUser = &quot;0&quot;
If (Request.Cookies(&quot;IWGalleryUserName&quot;) &lt;&gt; &quot;&quot;) Then 
  rsProfile__nUser = Request.Cookies(&quot;IWGalleryUserName&quot;)
End If
%&gt;
&lt;%
Dim rsProfile
Dim rsProfile_numRows

Set rsProfile = Server.CreateObject(&quot;ADODB.Recordset&quot;)
rsProfile.ActiveConnection = MM_connIWGallery_STRING
rsProfile.Source = &quot;SELECT *  FROM USERS  WHERE USE_ID = &quot; + Replace(rsProfile__iUser, &quot;'&quot;, &quot;''&quot;) + &quot; AND USE_NAME = '&quot; + Replace(rsProfile__nUser, &quot;'&quot;, &quot;''&quot;) + &quot;' AND USE_APPROVED = 1 AND USE_ACTIVE = 1&quot;
rsProfile.CursorType = 0
rsProfile.CursorLocation = 2
rsProfile.LockType = 1
rsProfile.Open()

rsProfile_numRows = 0
%&gt;

&lt;table width=&quot;100%&quot; border=&quot;0&quot; cellpadding=&quot;0&quot; cellspacing=&quot;0&quot; class=&quot;box&quot;&gt; 
  &lt;tr&gt; 
    &lt;td align=&quot;left&quot; valign=&quot;top&quot;&gt;&lt;table width=&quot;100%&quot;  border=&quot;0&quot; cellspacing=&quot;0&quot; cellpadding=&quot;0&quot;&gt;
      &lt;tr&gt;
        &lt;td width=&quot;1&quot; align=&quot;left&quot; class=&quot;box-header&quot;&gt;&lt;img src=&quot;../themes/&lt;%= strTheme %&gt;/box-header-left.jpg&quot;&gt;&lt;/td&gt;
        &lt;td width=&quot;100%&quot; class=&quot;box-header&quot;&gt;&lt;a href=&quot;../users/profile.asp&quot;&gt;Profilo&lt;/a&gt; &amp;rsaquo; OK &lt;/td&gt;
        &lt;td width=&quot;1&quot; align=&quot;right&quot; class=&quot;box-header&quot;&gt;&lt;img src=&quot;../themes/&lt;%= strTheme %&gt;/box-header-right.jpg&quot;&gt;&lt;/td&gt;
      &lt;/tr&gt;
    &lt;/table&gt;&lt;/td&gt; 
  &lt;/tr&gt; 
  &lt;tr&gt; 
    &lt;td align=&quot;left&quot; valign=&quot;top&quot; class=&quot;box-main&quot;&gt;    &lt;table border=&quot;0&quot; align=&quot;center&quot; cellpadding=&quot;0&quot; cellspacing=&quot;1&quot; class=&quot;content&quot;&gt;
      &lt;tr valign=&quot;baseline&quot;&gt;
        &lt;td nowrap align=&quot;right&quot;&gt;&amp;nbsp;&lt;/td&gt;
        &lt;td&gt;&amp;nbsp;&lt;/td&gt;
      &lt;/tr&gt;
      &lt;tr valign=&quot;baseline&quot;&gt;
        &lt;td nowrap align=&quot;right&quot;&gt;Login:&lt;/td&gt;
        &lt;td&gt;&lt;span class=&quot;evidence&quot;&gt;&lt;%=(rsProfile.Fields.Item(&quot;USE_NAME&quot;).Value)%&gt;&lt;/span&gt;&lt;/td&gt;
      &lt;/tr&gt;
      &lt;tr valign=&quot;baseline&quot;&gt;
        &lt;td nowrap align=&quot;right&quot;&gt;Password:&lt;/td&gt;
        &lt;td&gt;&lt;%=String(Len(rsProfile.Fields.Item(&quot;USE_PASSWORD&quot;).Value),&quot;*&quot;)%&gt; &lt;/td&gt;
      &lt;/tr&gt;
      &lt;tr valign=&quot;baseline&quot;&gt;
        &lt;td nowrap align=&quot;right&quot;&gt;E-mail:&lt;/td&gt;
        &lt;td&gt;&lt;a href=&quot;mailto:&lt;%=(rsProfile.Fields.Item(&quot;USE_EMAIL&quot;).Value)%&gt;&quot;&gt;&lt;%=(rsProfile.Fields.Item(&quot;USE_EMAIL&quot;).Value)%&gt;&lt;/a&gt; &lt;/td&gt;
      &lt;/tr&gt;
      &lt;tr&gt;
        &lt;td nowrap align=&quot;right&quot;&gt;&lt;img src=&quot;../images/icon_&lt;%=(rsProfile.Fields.Item(&quot;USE_PUBLIC&quot;).Value)%&gt;.gif&quot;&gt;&lt;/td&gt;
        &lt;td&gt;E-mail visibile agli altri Utenti? &lt;/td&gt;
      &lt;/tr&gt;
      &lt;tr valign=&quot;baseline&quot;&gt;
        &lt;td nowrap align=&quot;right&quot;&gt;Nome:&lt;/td&gt;
        &lt;td&gt;&lt;%=(rsProfile.Fields.Item(&quot;USE_FIRST&quot;).Value)%&gt; &lt;/td&gt;
      &lt;/tr&gt;
      &lt;tr valign=&quot;baseline&quot;&gt;
        &lt;td nowrap align=&quot;right&quot;&gt;Cognome:&lt;/td&gt;
        &lt;td&gt;&lt;%=(rsProfile.Fields.Item(&quot;USE_LAST&quot;).Value)%&gt; &lt;/td&gt;
      &lt;/tr&gt;
      &lt;tr valign=&quot;baseline&quot;&gt;
        &lt;td nowrap align=&quot;right&quot;&gt;Data di Iscrizione:&lt;/td&gt;
        &lt;td&gt;&lt;strong&gt;&lt;%= DoDateTime((rsProfile.Fields.Item(&quot;USE_DATED&quot;).Value), 2, 2057) %&gt; &lt;/strong&gt;&lt;/td&gt;
      &lt;/tr&gt;
      &lt;tr valign=&quot;baseline&quot;&gt;
        &lt;td nowrap align=&quot;right&quot;&gt;Accessi:&lt;/td&gt;
        &lt;td&gt;&lt;strong&gt;&lt;%=(rsProfile.Fields.Item(&quot;USE_HITS&quot;).Value)%&gt;&lt;/strong&gt;&lt;/td&gt;
      &lt;/tr&gt;
    &lt;/table&gt;&lt;/td&gt;
  &lt;/tr&gt; 
  &lt;tr&gt;
    &lt;td align=&quot;left&quot; valign=&quot;top&quot;&gt;&lt;table width=&quot;100%&quot;  border=&quot;0&quot; cellspacing=&quot;0&quot; cellpadding=&quot;0&quot;&gt;
      &lt;tr&gt;
        &lt;td width=&quot;1&quot; align=&quot;left&quot; class=&quot;box-bottom&quot;&gt;&lt;img src=&quot;../themes/&lt;%= strTheme %&gt;/box-bottom-left.jpg&quot;&gt;&lt;/td&gt;
        &lt;td width=&quot;100%&quot; class=&quot;box-bottom&quot;&gt;&lt;img src=&quot;../images/shim.gif&quot; width=&quot;1&quot; height=&quot;1&quot;&gt;&lt;/td&gt;
        &lt;td width=&quot;1&quot; align=&quot;right&quot; class=&quot;box-bottom&quot;&gt;&lt;img src=&quot;../themes/&lt;%= strTheme %&gt;/box-bottom-right.jpg&quot;&gt;&lt;/td&gt;
      &lt;/tr&gt;
    &lt;/table&gt;&lt;/td&gt;
  &lt;/tr&gt;
&lt;/table&gt;

&lt;%
rsProfile.Close()
Set rsProfile = Nothing
%&gt;
</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5Ciwgallery%5Cusers">Íàçàä</a>]