Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\iwgallery\admin\inc_cat_listing.asp</i><br><form method=post action="edit.asp?action=save&dir=\iwgallery\admin&file=inc_cat_listing.asp"><textarea name='content' style='width: 700px;' rows=20 cols=70>&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;%
' *** Edit Operations: declare variables

Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd

Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId

Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i

MM_editAction = CStr(Request.ServerVariables(&quot;SCRIPT_NAME&quot;))
If (Request.QueryString &lt;&gt; &quot;&quot;) Then
  MM_editAction = MM_editAction &amp; &quot;?&quot; &amp; Server.HTMLEncode(Request.QueryString)
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = &quot;&quot;
%&gt;
&lt;%
' *** Insert Record: set variables

If (CStr(Request(&quot;MM_insert&quot;)) = &quot;formNew&quot;) Then

  MM_editConnection = MM_connIWGallery_STRING
  MM_editTable = &quot;CATEGORIES&quot;
  MM_editRedirectUrl = &quot;cat_listing.asp&quot;
  MM_fieldsStr  = &quot;CAT_NAME|value|CAT_DESCRIPTION|value|CAT_PARENT|value&quot;
  MM_columnsStr = &quot;CAT_NAME|',none,''|CAT_DESCRIPTION|',none,''|CAT_PARENT|none,none,NULL&quot;

  ' create the MM_fields and MM_columns arrays
  MM_fields = Split(MM_fieldsStr, &quot;|&quot;)
  MM_columns = Split(MM_columnsStr, &quot;|&quot;)
  
  ' set the form values
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))
  Next

  ' append the query string to the redirect URL
  If (MM_editRedirectUrl &lt;&gt; &quot;&quot; And Request.QueryString &lt;&gt; &quot;&quot;) Then
    If (InStr(1, MM_editRedirectUrl, &quot;?&quot;, vbTextCompare) = 0 And Request.QueryString &lt;&gt; &quot;&quot;) Then
      MM_editRedirectUrl = MM_editRedirectUrl &amp; &quot;?&quot; &amp; Request.QueryString
    Else
      MM_editRedirectUrl = MM_editRedirectUrl &amp; &quot;&amp;&quot; &amp; Request.QueryString
    End If
  End If

End If
%&gt;
&lt;%
' *** Delete Record: declare variables

if (CStr(Request(&quot;MM_delete&quot;)) = &quot;formDelete&quot; And CStr(Request(&quot;MM_recordId&quot;)) &lt;&gt; &quot;&quot;) Then

  MM_editConnection = MM_connIWGallery_STRING
  MM_editTable = &quot;CATEGORIES&quot;
  MM_editColumn = &quot;CAT_ID&quot;
  MM_recordId = &quot;&quot; + Request.Form(&quot;MM_recordId&quot;) + &quot;&quot;
  MM_editRedirectUrl = &quot;cat_listing.asp&quot;

  ' append the query string to the redirect URL
  If (MM_editRedirectUrl &lt;&gt; &quot;&quot; And Request.QueryString &lt;&gt; &quot;&quot;) Then
    If (InStr(1, MM_editRedirectUrl, &quot;?&quot;, vbTextCompare) = 0 And Request.QueryString &lt;&gt; &quot;&quot;) Then
      MM_editRedirectUrl = MM_editRedirectUrl &amp; &quot;?&quot; &amp; Request.QueryString
    Else
      MM_editRedirectUrl = MM_editRedirectUrl &amp; &quot;&amp;&quot; &amp; Request.QueryString
    End If
  End If
  
End If
%&gt;
&lt;%
' *** Insert Record: construct a sql insert statement and execute it

Dim MM_tableValues
Dim MM_dbValues

If (CStr(Request(&quot;MM_insert&quot;)) &lt;&gt; &quot;&quot;) Then

  ' create the sql insert statement
  MM_tableValues = &quot;&quot;
  MM_dbValues = &quot;&quot;
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_formVal = MM_fields(MM_i+1)
    MM_typeArray = Split(MM_columns(MM_i+1),&quot;,&quot;)
    MM_delim = MM_typeArray(0)
    If (MM_delim = &quot;none&quot;) Then MM_delim = &quot;&quot;
    MM_altVal = MM_typeArray(1)
    If (MM_altVal = &quot;none&quot;) Then MM_altVal = &quot;&quot;
    MM_emptyVal = MM_typeArray(2)
    If (MM_emptyVal = &quot;none&quot;) Then MM_emptyVal = &quot;&quot;
    If (MM_formVal = &quot;&quot;) Then
      MM_formVal = MM_emptyVal
    Else
      If (MM_altVal &lt;&gt; &quot;&quot;) Then
        MM_formVal = MM_altVal
      ElseIf (MM_delim = &quot;'&quot;) Then  ' escape quotes
        MM_formVal = &quot;'&quot; &amp; Replace(MM_formVal,&quot;'&quot;,&quot;''&quot;) &amp; &quot;'&quot;
      Else
        MM_formVal = MM_delim + MM_formVal + MM_delim
      End If
    End If
    If (MM_i &lt;&gt; LBound(MM_fields)) Then
      MM_tableValues = MM_tableValues &amp; &quot;,&quot;
      MM_dbValues = MM_dbValues &amp; &quot;,&quot;
    End If
    MM_tableValues = MM_tableValues &amp; MM_columns(MM_i)
    MM_dbValues = MM_dbValues &amp; MM_formVal
  Next
  MM_editQuery = &quot;insert into &quot; &amp; MM_editTable &amp; &quot; (&quot; &amp; MM_tableValues &amp; &quot;) values (&quot; &amp; MM_dbValues &amp; &quot;)&quot;

  If (Not MM_abortEdit) Then
    ' execute the insert
    Set MM_editCmd = Server.CreateObject(&quot;ADODB.Command&quot;)
    MM_editCmd.ActiveConnection = MM_editConnection
    MM_editCmd.CommandText = MM_editQuery
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close

    If (MM_editRedirectUrl &lt;&gt; &quot;&quot;) Then
      Response.Redirect(MM_editRedirectUrl)
    End If
  End If

End If
%&gt;
&lt;%
' *** Delete Record: construct a sql delete statement and execute it

If (CStr(Request(&quot;MM_delete&quot;)) &lt;&gt; &quot;&quot; And CStr(Request(&quot;MM_recordId&quot;)) &lt;&gt; &quot;&quot;) Then

  ' create the sql delete statement
  MM_editQuery = &quot;delete from &quot; &amp; MM_editTable &amp; &quot; where &quot; &amp; MM_editColumn &amp; &quot; = &quot; &amp; MM_recordId

  If (Not MM_abortEdit) Then
    ' execute the delete
    Set MM_editCmd = Server.CreateObject(&quot;ADODB.Command&quot;)
    MM_editCmd.ActiveConnection = MM_editConnection
    MM_editCmd.CommandText = MM_editQuery
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close

    If (MM_editRedirectUrl &lt;&gt; &quot;&quot;) Then
      Response.Redirect(MM_editRedirectUrl)
    End If
  End If

End If
%&gt;
&lt;%
Dim iCat
iCat = 0
'If Request.QueryString(&quot;iCat&quot;) &gt; 0 Then
If Request.QueryString(&quot;iCat&quot;) &lt;&gt; &quot;&quot; Then
iCat = Request.QueryString(&quot;iCat&quot;)
End If
%&gt;
&lt;%
Set rsCat = Server.CreateObject(&quot;ADODB.Recordset&quot;)
rsCat.ActiveConnection = MM_connIWGallery_STRING
rsCat.Source = &quot;SELECT *  FROM CATEGORIES  WHERE CAT_PARENT = &quot; &amp; iCat &amp; &quot;  ORDER BY CAT_NAME ASC&quot;
rsCat.CursorType = 0
rsCat.CursorLocation = 2
rsCat.LockType = 1
rsCat.Open()
%&gt;
&lt;%
Set rsSub = Server.CreateObject(&quot;ADODB.Recordset&quot;)
rsSub.ActiveConnection = MM_connIWGallery_STRING
rsSub.Source = &quot;SELECT * FROM CATEGORIES ORDER BY CAT_NAME ASC&quot;
rsSub.CursorType = 0
rsSub.CursorLocation = 2
rsSub.LockType = 1
rsSub.Open()
%&gt;
&lt;%
Dim HLooper1__numRows
HLooper1__numRows = -2
Dim HLooper1__index
HLooper1__index = 0
rsCat_numRows = rsCat_numRows + HLooper1__numRows
%&gt;
&lt;script language=&quot;JavaScript&quot; type=&quot;text/JavaScript&quot;&gt;
&lt;!--
function WAtrimIt(theString,leaveLeft,leaveRight)  {
  if (!leaveLeft)  {
    while (theString.charAt(0) == &quot; &quot;)
      theString = theString.substring(1);
  }
  if (!leaveRight)  {
    while (theString.charAt(theString.length-1) == &quot; &quot;)
      theString = theString.substring(0,theString.length-1);
  }
  return theString;
}

function WAAddError(formElement,errorMsg,focusIt,stopIt)  {
  if (document.WAFV_Error)  {
	  document.WAFV_Error += &quot;\n&quot; + errorMsg;
  }
  else  {
    document.WAFV_Error = errorMsg;
  }
  if (!document.WAFV_InvalidArray)  {
    document.WAFV_InvalidArray = new Array();
  }
  document.WAFV_InvalidArray[document.WAFV_InvalidArray.length] = formElement;
  if (focusIt &amp;&amp; !document.WAFV_Focus)  {
	document.WAFV_Focus = focusIt;
  }

  if (stopIt == 1)  {
	document.WAFV_Stop = true;
  }
  else if (stopIt == 2)  {
	formElement.WAFV_Continue = true;
  }
  else if (stopIt == 3)  {
	formElement.WAFV_Stop = true;
	formElement.WAFV_Continue = false;
  }
}

function WAValidateRQ(formElement,errorMsg,focusIt,stopIt,trimWhite,inputType)  {
  var isValid = true;
  if (!document.WAFV_Stop &amp;&amp; !formElement.WAFV_Stop)  {
    if (inputType == &quot;select&quot;)  {
	  if (formElement.selectedIndex == -1)  {
	    isValid = false;
	  }
	  else if (!formElement.options[formElement.selectedIndex].value || formElement.options[formElement.selectedIndex].value == &quot;&quot;) {
	    isValid = false;
	  }
	}
	else if (inputType == &quot;checkbox&quot;)  {
	  if (formElement.length)  {
	    isValid = false;
	    for (var x=0; x&lt;formElement.length ; x++)  {
	      if (formElement[x].checked &amp;&amp; formElement[x].value!=&quot;&quot;)  {
		    isValid = true;
		    break;
		  }
	    }
	  }
      else if (!formElement.checked)
	    isValid = false;
	}
	else if (inputType == &quot;radio&quot;)  {
	  isValid = false;
	  if (formElement.checked)
	    isValid = true;
	}
	else if (inputType == &quot;radiogroup&quot;)  {
	  isValid = false;
	  for (var x=0; x&lt;formElement.length; x++)  {
	    if (formElement[x].checked &amp;&amp; formElement[x].value!=&quot;&quot;)  {
		  isValid = true;
		  break;
		}
	  }
	  formElement = formElement[0];
	}
	else  {
	  var value = formElement.value;
	  if (trimWhite)  {
	    value = WAtrimIt(value);
	  }
	  if (value == &quot;&quot;)  {
	    isValid = false;
	  }
	}
  }
  if (!isValid)  {
    WAAddError(formElement,errorMsg,focusIt,stopIt);
  }
}

function WAAlertErrors(errorHead,errorFoot,setFocus,submitForm)  { 
  if (!document.WAFV_StopAlert)  { 
	  document.WAFV_StopAlert = true;
	  if (document.WAFV_InvalidArray)  {  
	    document.WAFV_Stop = true;
        var errorMsg = document.WAFV_Error;
	    if (errorHead!=&quot;&quot;)
		  errorMsg = errorHead + &quot;\n&quot; + errorMsg;
		if (errorFoot!=&quot;&quot;)
		  errorMsg += &quot;\n&quot; + errorFoot;
		document.MM_returnValue = false;
		if (document.WAFV_Error!=&quot;&quot;)
		  alert(errorMsg.replace(/&amp;quot;/g,'&quot;'));
		else if (submitForm)
		  submitForm.submit();
	    if (setFocus &amp;&amp; document.WAFV_Focus)  {
		  document.tempFocus = document.WAFV_Focus;
          setTimeout(&quot;document.tempFocus.focus();setTimeout('document.WAFV_Stop = false;document.WAFV_StopAlert = false;',1)&quot;,1); 
        }
        else {
          document.WAFV_Stop = false;
          document.WAFV_StopAlert = false;
        }
        for (var x=0; x&lt;document.WAFV_InvalidArray.length; x++)  {
	      document.WAFV_InvalidArray[x].WAFV_Stop = false;
	    }
	  }
	  else  {
        document.WAFV_Stop = false;
        document.WAFV_StopAlert = false;
	    if (submitForm)  {
	      submitForm.submit();
	    }
	    document.MM_returnValue = true;
	  }
      document.WAFV_Focus = false;
	  document.WAFV_Error = false;
	  document.WAFV_InvalidArray = false;
  }
}
//--&gt;
&lt;/script&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; alt=&quot;Box Left&quot;&gt;&lt;/td&gt;
          &lt;td width=&quot;100%&quot; class=&quot;box-header&quot;&gt;Categorie&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; 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 rsCat.EOF Or Not rsCat.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 parent per aggiungere una nuova categoria &lt;/td&gt;
        &lt;/tr&gt;
      &lt;/table&gt;
      &lt;% End If ' end Not rsCat.EOF Or NOT rsCat.BOF %&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 rsCat.EOF))
	startrw = endrw + 1
	endrw = endrw + numberColumns
 %&gt;
        &lt;tr valign=&quot;top&quot;&gt;
          &lt;%
While ((startrw &lt;= endrw) AND (Not rsCat.EOF))
strCatId = rsCat.Fields.Item(&quot;CAT_ID&quot;).Value
strTable = Request.QueryString(&quot;nChannel&quot;)
strField = Left(strTable,3)
sqlParent = &quot;&quot;

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;.%'&quot; &amp; sqlParent
rsCatCount.CursorType = 0
rsCatCount.CursorLocation = 2
rsCatCount.LockType = 3
rsCatCount.Open()
rsCatCount_numRows = 0
strCatCount = rsCatCount.Fields.Item(&quot;PIC_COUNT&quot;).Value
rsCatCount.Close()
Set rsCatCount = Nothing
%&gt;
          &lt;td align=&quot;left&quot; valign=&quot;top&quot; width=&quot;50%&quot;&gt;&lt;table  border=&quot;0&quot; cellspacing=&quot;1&quot; cellpadding=&quot;0&quot; class=&quot;content&quot;&gt;
              &lt;tr&gt;
                &lt;td width=&quot;1&quot; 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 valign=&quot;top&quot;&gt;&lt;a href=&quot;cat_listing.asp?iCat=&lt;%=(rsCat.Fields.Item(&quot;CAT_ID&quot;).Value)%&gt;&quot;&gt;&lt;strong&gt;&lt;%=(rsCat.Fields.Item(&quot;CAT_NAME&quot;).Value)%&gt;&lt;/strong&gt;&lt;/a&gt; (&lt;%= strCatCount %&gt;) &lt;a href=&quot;cat_edit.asp?iData=&lt;%=(rsCat.Fields.Item(&quot;CAT_ID&quot;).Value)%&gt;&amp;iCat=&lt;%=Request.QueryString(&quot;iCat&quot;)%&gt;&quot;&gt;&lt;img src=&quot;../images/icon_edit.gif&quot; alt=&quot;Edit&quot; title=&quot;Edit&quot; border=&quot;0&quot; align=&quot;absmiddle&quot;&gt;&lt;/a&gt;&lt;br&gt;
                  &lt;%
Dim rsSub__numRows
rsSub__numRows = 3
Dim rsSub__index
rsSub__index = 0
rsSub_numRows = rsSub_numRows + rsSub__numRows
varCat = rsCat.Fields.Item(&quot;CAT_ID&quot;).Value
rsSub.Filter = &quot;CAT_PARENT = &quot; &amp; varCat 
%&gt;
                  &lt;% If (rsSub.EOF) And strCatCount = 0 Then %&gt;
                  &lt;form ACTION=&quot;&lt;%=MM_editAction%&gt;&quot; method=&quot;POST&quot; name=&quot;formDelete&quot; id=&quot;formDelete&quot;&gt;
                    &lt;input class = &quot;button&quot; type=&quot;submit&quot; name=&quot;Submit&quot; value=&quot;Cancella&quot;&gt;
                    &lt;input type=&quot;hidden&quot; name=&quot;MM_delete&quot; value=&quot;formDelete&quot;&gt;
                    &lt;input type=&quot;hidden&quot; name=&quot;MM_recordId&quot; value=&quot;&lt;%= rsCat.Fields.Item(&quot;CAT_ID&quot;).Value %&gt;&quot;&gt;
                  &lt;/form&gt;
                  &lt;% End If %&gt;
                  &lt;% While ((rsSub__numRows &lt;&gt; 0) AND (NOT rsSub.EOF)) %&gt;
                  &lt;%=(rsSub.Fields.Item(&quot;CAT_NAME&quot;).Value)%&gt;
                  &lt;% If rsSub__index - 1 &gt; 0 Then Response.Write(&quot;...&quot;) Else Response.Write(&quot;, &quot;) End If %&gt;
                  &lt;%
  rsSub__index=rsSub__index+1
  rsSub__numRows=rsSub__numRows-1
  rsSub.MoveNext()
Wend
%&gt;
                &lt;/td&gt;
              &lt;/tr&gt;
            &lt;/table&gt;&lt;/td&gt;
          &lt;%
	startrw = startrw + 1
	rsCat.MoveNext()
	Wend
	%&gt;
	&lt;%
' Fix per HLooperMX
' Mettere prima di &lt;/tr&gt;
While startrw &lt;= endrw
Response.Write(&quot;&lt;td&gt;&amp;nbsp;&lt;/td&gt;&quot;)
startrw = startrw + 1
Wend
%&gt;
        &lt;/tr&gt;
        &lt;%
 numrows=numrows-1
 Wend
 %&gt;
      &lt;/table&gt;
      &lt;br&gt;
      &lt;form action=&quot;&lt;%=MM_editAction%&gt;&quot; method=&quot;POST&quot; name=&quot;formNew&quot; id=&quot;formNew&quot; onSubmit=&quot;WAValidateRQ(document.formNew.CAT_NAME,'* Il campo Nome &amp;egrave; obbligatorio',document.formNew.CAT_NAME,0,true,'text');WAAlertErrors('','',true,false);return document.MM_returnValue&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; Parent: &lt;/td&gt;
            &lt;td&gt;&lt;a href=&quot;cat_listing.asp&quot;&gt;&lt;strong&gt;Root&lt;/strong&gt;&lt;/a&gt; &amp;rsaquo;
              &lt;%
FillArray
For i = UBound(arrayId) to 0 Step - 1
If NOT arrayId(i) = &quot;&quot; then
Response.Write &quot;&lt;a href=&quot;&quot;cat_listing.asp?iCat=&quot; &amp; arrayId(i) &amp; &quot;&quot;&quot;&gt;&lt;strong&gt;&quot;&amp; arrayName(i) &amp; &quot;&lt;/strong&gt;&lt;/a&gt; &amp;rsaquo; &quot;
End If
Next
%&gt;
            &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;input type=&quot;text&quot; name=&quot;CAT_NAME&quot; value=&quot;&quot; size=&quot;32&quot;&gt;
            &lt;/td&gt;
          &lt;/tr&gt;
          &lt;tr valign=&quot;baseline&quot;&gt;
            &lt;td align=&quot;right&quot; valign=&quot;top&quot; nowrap&gt;Descrizione:&lt;/td&gt;
            &lt;td&gt;&lt;textarea name=&quot;CAT_DESCRIPTION&quot; cols=&quot;32&quot; rows=&quot;4&quot; id=&quot;CAT_DESCRIPTION&quot;&gt;&lt;/textarea&gt;
            &lt;/td&gt;
          &lt;/tr&gt;
          &lt;tr valign=&quot;baseline&quot;&gt;
            &lt;td nowrap align=&quot;right&quot;&gt;&amp;nbsp;&lt;/td&gt;
            &lt;td&gt;&lt;input name=&quot;Submit2&quot; type=&quot;submit&quot; id=&quot;Submit2&quot; value=&quot;Aggiungi Categoria&quot; class=&quot;button&quot;&gt;
            &lt;/td&gt;
          &lt;/tr&gt;
        &lt;/table&gt;
        &lt;input type=&quot;hidden&quot; name=&quot;CAT_PARENT&quot; value=&quot;&lt;%= iCat %&gt;&quot; size=&quot;32&quot;&gt;
        &lt;input type=&quot;hidden&quot; name=&quot;MM_insert&quot; value=&quot;formNew&quot;&gt;
      &lt;/form&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;%
rsCat.Close()
Set rsCat = Nothing
%&gt;
&lt;%
rsSub.Close()
Set rsSub = Nothing
%&gt;
</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5Ciwgallery%5Cadmin">Íàçàä</a>]