Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\iwgallery\pictures\inc_default.asp</i><br><form method=post action="edit.asp?action=save&dir=\iwgallery\pictures&file=inc_default.asp"><textarea name='content' style='width: 700px;' rows=20 cols=70>&lt;% If (strPrivate = 1 AND Request.Cookies(&quot;IWGalleryUserName&quot;) = &quot;&quot;) Then Response.Redirect(&quot;../home/&quot;) %&gt;
&lt;!--#include virtual=&quot;/iwgallery/Connections/connIWGallery.asp&quot; --&gt;
&lt;%
set rsDefaultCats = Server.CreateObject(&quot;ADODB.Recordset&quot;)
rsDefaultCats.ActiveConnection = MM_connIWGallery_STRING
rsDefaultCats.Source = &quot;SELECT *  FROM CATEGORIES  WHERE CAT_PARENT = 0 AND CAT_ACTIVE = 1  ORDER BY CAT_NAME ASC&quot;
rsDefaultCats.CursorType = 0
rsDefaultCats.CursorLocation = 2
rsDefaultCats.LockType = 3
rsDefaultCats.Open()
rsDefaultCats_numRows = 0
%&gt;
&lt;%
set rsDefaultSubs = Server.CreateObject(&quot;ADODB.Recordset&quot;)
rsDefaultSubs.ActiveConnection = MM_connIWGallery_STRING
rsDefaultSubs.Source = &quot;SELECT * FROM CATEGORIES WHERE CAT_ACTIVE = 1  ORDER BY CAT_NAME ASC&quot;
rsDefaultSubs.CursorType = 0
rsDefaultSubs.CursorLocation = 2
rsDefaultSubs.LockType = 3
rsDefaultSubs.Open()
rsDefaultSubs_numRows = 0
%&gt;
&lt;%
Dim HLooper1__numRows
HLooper1__numRows = -2
Dim HLooper1__index
HLooper1__index = 0
rsDefaultCats_numRows = rsDefaultCats_numRows + HLooper1__numRows
%&gt;

&lt;table width=&quot;100%&quot;  border=&quot;0&quot; cellspacing=&quot;0&quot; cellpadding=&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; class=&quot;box-header&quot;&gt;&lt;img src=&quot;../themes/&lt;%= strTheme %&gt;/box-header-left.jpg&quot; alt=&quot;Box Left&quot;&gt;&lt;/td&gt;
          &lt;td width=&quot;100%&quot; class=&quot;box-header&quot;&gt;Immagini&lt;/td&gt;
          &lt;td width=&quot;1&quot; class=&quot;box-header&quot;&gt;&lt;img src=&quot;../themes/&lt;%= strTheme %&gt;/box-header-right.jpg&quot; alt=&quot;Box Right&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;% If Not rsDefaultCats.EOF Or Not rsDefaultCats.BOF Then %&gt;
      &lt;table width=&quot;100%&quot;  border=&quot;0&quot; cellspacing=&quot;1&quot; cellpadding=&quot;0&quot; class=&quot;content&quot;&gt;
        &lt;tr&gt;
          &lt;td&gt;Seleziona una categoria &lt;/td&gt;
        &lt;/tr&gt;
      &lt;/table&gt;
      &lt;table width=&quot;100%&quot;&gt;
        &lt;%
startrw = 0
endrw = HLooper1__index
numberColumns = 2
numrows = -1
while((numrows &lt;&gt; 0) AND (Not rsDefaultCats.EOF))
	startrw = endrw + 1
	endrw = endrw + numberColumns
 %&gt;
        &lt;tr align=&quot;center&quot; valign=&quot;top&quot;&gt;
          &lt;%
While ((startrw &lt;= endrw) AND (Not rsDefaultCats.EOF))

strCatId = rsDefaultCats.Fields.Item(&quot;CAT_ID&quot;).Value
set rsCatCount = Server.CreateObject(&quot;ADODB.Recordset&quot;)
rsCatCount.ActiveConnection = MM_connIWGallery_STRING
rsCatCount.Source = &quot;SELECT COUNT(*) AS PIC_COUNT  FROM PICTURES  WHERE PIC_LISTING LIKE '%.&quot; &amp; strCatId &amp; &quot;.%' AND PIC_APPROVED = 1 AND PIC_ACTIVE = 1&quot;
rsCatCount.CursorType = 0
rsCatCount.CursorLocation = 2
rsCatCount.LockType = 3
rsCatCount.Open()
rsCatCount_numRows = 0

%&gt;
          &lt;td width=&quot;50%&quot; align=&quot;left&quot; valign=&quot;top&quot;&gt;&lt;table  border=&quot;0&quot; cellspacing=&quot;0&quot; cellpadding=&quot;0&quot; class=&quot;content&quot;&gt;
              &lt;tr&gt;
                &lt;td valign=&quot;baseline&quot;&gt;&lt;img src=&quot;../images/icon_folder.gif&quot; alt=&quot;Categoria&quot; border=&quot;0&quot;&gt;&lt;/td&gt;
                &lt;td&gt;&lt;a href=&quot;cat.asp?iCat=&lt;%=(rsDefaultCats.Fields.Item(&quot;CAT_ID&quot;).Value)%&gt;&quot;&gt;&lt;strong&gt;&lt;%=(rsDefaultCats.Fields.Item(&quot;CAT_NAME&quot;).Value)%&gt;&lt;/strong&gt;&lt;/a&gt; (&lt;%=(rsCatCount.Fields.Item(&quot;PIC_COUNT&quot;).Value)%&gt;)&lt;br&gt;
                 &lt;%
rsCatCount.Close()
Set rsCatCount = Nothing
%&gt; 
				  
				  &lt;%
Dim rsDefaultSubs__numRows
rsDefaultSubs__numRows = 3
Dim rsDefaultSubs__index
rsDefaultSubs__index = 0
rsDefaultSubs_numRows = rsDefaultSubs_numRows + rsDefaultSubs__numRows
rsDefaultSubs.Filter = &quot;CAT_PARENT=&quot; &amp; rsDefaultCats.Fields.Item(&quot;CAT_ID&quot;).Value
%&gt;
                  &lt;% While ((rsDefaultSubs__numRows &lt;&gt; 0) AND (NOT rsDefaultSubs.EOF)) %&gt;
                  &lt;%=(rsDefaultSubs.Fields.Item(&quot;CAT_NAME&quot;).Value)%&gt;
                  &lt;% If rsDefaultSubs__index - 1 &gt; 0 Then Response.Write(&quot; ...&quot;) Else Response.Write(&quot;, &quot;) End If %&gt;
                  &lt;%
  rsDefaultSubs__index=rsDefaultSubs__index+1
  rsDefaultSubs__numRows=rsDefaultSubs__numRows-1
  rsDefaultSubs.MoveNext()
Wend
%&gt;
                &lt;/td&gt;
              &lt;/tr&gt;
            &lt;/table&gt;
            &lt;br&gt;&lt;/td&gt;
          &lt;%
	startrw = startrw + 1
	rsDefaultCats.MoveNext()
	Wend
	%&gt;
        &lt;/tr&gt;
        &lt;%
 numrows=numrows-1
 Wend
 %&gt;
      &lt;/table&gt;
      &lt;% End If ' end Not rsDefaultCats.EOF Or NOT rsDefaultCats.BOF %&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;%
rsDefaultCats.Close()
Set rsDefaultCats = Nothing
%&gt;
&lt;%
rsDefaultSubs.Close()
Set rsDefaultSubs = Nothing
%&gt;

</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5Ciwgallery%5Cpictures">Íàçàä</a>]