Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\iwgallery\pictures\inc_details.asp</i><br><form method=post action="edit.asp?action=save&dir=\iwgallery\pictures&file=inc_details.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;SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT&gt;
function Thumbnail(tmb_suff,tmb_filename)
  Dim tmb_NewFilename, tmb_Path, tmb_PosPath, tmb_PosExt
  if not isnull(tmb_filename) then
    tmb_PosPath = InStrRev(tmb_filename,&quot;/&quot;)
    tmb_Path = &quot;&quot;
    if tmb_PosPath &gt; 0 then
      tmb_Path = mid(tmb_filename,1,tmb_PosPath)
    end if
    tmb_PosExt = InStrRev(tmb_filename,&quot;.&quot;)
    if tmb_PosExt &gt; 0 then
      tmb_NewFilename = tmb_Path &amp; mid(tmb_filename,tmb_PosPath+1,tmb_PosExt-(tmb_PosPath+1)) &amp; tmb_suff &amp; &quot;.jpg&quot;
    else
      tmb_NewFilename = tmb_Path &amp; mid(tmb_filename,tmb_PosPath+1,len(tmb_filename)-tmb_PosPath) &amp; tmb_suff &amp; &quot;.jpg&quot;
    end if
  end if
  Thumbnail = tmb_NewFilename
end function
&lt;/SCRIPT&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;form1&quot;) Then

  MM_editConnection = MM_connIWGallery_STRING
  MM_editTable = &quot;RATES&quot;
  MM_editRedirectUrl = &quot;details.asp&quot;
  MM_fieldsStr  = &quot;iRating|value|iPicture|value&quot;
  MM_columnsStr = &quot;RAT_VALUE|none,none,NULL|RAT_PICTURE|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;%
' *** 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
    ' crea il cookie
	Response.Cookies(&quot;Picture&quot; &amp; Request.Form(&quot;iPicture&quot;)) = &quot;1&quot;
	Response.Cookies(&quot;Picture&quot; &amp; Request.Form(&quot;iPicture&quot;)).Expires = Date() + 300
	
	' 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;%

if(Request.QueryString(&quot;iPicture&quot;) &lt;&gt; &quot;&quot;) then cmdDetailsHits__iPicture = Request.QueryString(&quot;iPicture&quot;)

%&gt;
&lt;%
Dim rsDetails__iPicture
rsDetails__iPicture = &quot;0&quot;
If (Request.QueryString(&quot;iPicture&quot;)  &lt;&gt; &quot;&quot;) Then 
  rsDetails__iPicture = Request.QueryString(&quot;iPicture&quot;) 
End If
%&gt;
&lt;%
set rsDetails = Server.CreateObject(&quot;ADODB.Recordset&quot;)
rsDetails.ActiveConnection = MM_connIWGallery_STRING
rsDetails.Source = &quot;SELECT *  FROM PICTURES, CATEGORIES, USERS  WHERE PIC_CATEGORY = CAT_ID AND PIC_USER = USE_NAME AND PIC_ID = &quot; + Replace(rsDetails__iPicture, &quot;'&quot;, &quot;''&quot;) + &quot; AND CAT_ACTIVE = 1 AND PIC_APPROVED = 1 AND PIC_ACTIVE = 1&quot;
rsDetails.CursorType = 0
rsDetails.CursorLocation = 2
rsDetails.LockType = 3
rsDetails.Open()
rsDetails_numRows = 0
%&gt;
&lt;%
Dim rsRating__iPicture
rsRating__iPicture = &quot;0&quot;
If (Request.QueryString(&quot;iPicture&quot;) &lt;&gt; &quot;&quot;) Then 
  rsRating__iPicture = Request.QueryString(&quot;iPicture&quot;)
End If
%&gt;
&lt;%
Set rsRating = Server.CreateObject(&quot;ADODB.Recordset&quot;)
rsRating.ActiveConnection = MM_connIWGallery_STRING
rsRating.Source = &quot;SELECT COUNT(*) AS RATES, AVG(RAT_VALUE) AS RATED  FROM RATES  WHERE RAT_PICTURE = &quot; + Replace(rsRating__iPicture, &quot;'&quot;, &quot;''&quot;) + &quot;&quot;
rsRating.CursorType = 0
rsRating.CursorLocation = 2
rsRating.LockType = 1
rsRating.Open()

If rsRating.Fields.Item(&quot;RATES&quot;) = 0 Then
  iRates = 0
  iRated = 0
Else
  iRates = rsRating.Fields.Item(&quot;RATES&quot;)
  iRated = rsRating.Fields.Item(&quot;RATED&quot;)
End If
%&gt;
&lt;%
' tom-muck.com Set up the detail page navigation suite
Dim tfm_rsDetails,tfm_rsDetails_query,tfm_rsDetails_PIC_ID
Dim prev_tfm_rsDetails,next_tfm_rsDetails
Dim tfm_prev_link_rsDetails,tfm_next_link_rsDetails,tfm_first_link_rsDetails,tfm_last_link_rsDetails
tfm_rsDetails_PIC_ID = Replace(CStr(Request(&quot;iPicture&quot;)),&quot;'&quot;,&quot;''&quot;)
If tfm_rsDetails_PIC_ID = &quot;&quot; Then tfm_rsDetails_PIC_ID = 0
If Asc(tfm_rsDetails_PIC_ID) &lt; 48 Or Asc(tfm_rsDetails_PIC_ID) &gt; 57 Then tfm_rsDetails_PIC_ID = 0
Set tfm_rsDetails_conn = Server.CreateObject(&quot;ADODB.Connection&quot;)
tfm_rsDetails_conn.Open MM_connIWGallery_STRING
%&gt;
&lt;%
' tom-muck.com find the first and previous record numbers
tfm_rsDetails_query = &quot;SELECT MIN(PIC_ID) as FirstRecord, MAX(PIC_ID) as PrevRecord FROM PICTURES WHERE PIC_APPROVED = 1 AND PIC_ACTIVE = 1 AND PIC_CATEGORY = &quot; &amp; Request.QueryString(&quot;iCat&quot;) &amp; &quot; AND PIC_ID &lt; &quot; &amp; tfm_rsDetails_PIC_ID
Set tfm_rsDetails = Server.CreateObject(&quot;ADODB.Recordset&quot;)
tfm_rsDetails.Open tfm_rsDetails_query, tfm_rsDetails_conn, 1, 1
If Not tfm_rsDetails.EOF Then 
	first_tfm_rsDetails = tfm_rsDetails.getRows()
	tfm_first_link_rsDetails = first_tfm_rsDetails(0,0)
	tfm_prev_link_rsDetails = first_tfm_rsDetails(1,0)
End If 
%&gt;
&lt;%
' tom-muck.com find the next and last record numbers
tfm_rsDetails_query = &quot;SELECT MIN(PIC_ID) as NextRecord, MAX(PIC_ID) as LastRecord FROM PICTURES WHERE PIC_APPROVED = 1 AND PIC_ACTIVE = 1 AND PIC_CATEGORY = &quot; &amp; Request.QueryString(&quot;iCat&quot;) &amp; &quot; AND PIC_ID &gt; &quot; &amp; tfm_rsDetails_PIC_ID
Set tfm_rsDetails = Server.CreateObject(&quot;ADODB.Recordset&quot;)
tfm_rsDetails.Open tfm_rsDetails_query, tfm_rsDetails_conn, 1, 1
If Not tfm_rsDetails.EOF Then 
	next_tfm_rsDetails = tfm_rsDetails.getRows()
	tfm_next_link_rsDetails = next_tfm_rsDetails(0,0)
	tfm_last_link_rsDetails = next_tfm_rsDetails(1,0)
End If
%&gt;
&lt;%
' tom-muck.com close and destroy the recordset 
tfm_rsDetails.close()
Set tfm_rsDetails = Nothing
%&gt;
&lt;%

set cmdDetailsHits = Server.CreateObject(&quot;ADODB.Command&quot;)
cmdDetailsHits.ActiveConnection = MM_connIWGallery_STRING
cmdDetailsHits.CommandText = &quot;UPDATE PICTURES  SET PIC_HITS = PIC_HITS + 1  WHERE PIC_ID = &quot; + Replace(cmdDetailsHits__iPicture, &quot;'&quot;, &quot;''&quot;) + &quot;&quot;
cmdDetailsHits.CommandType = 1
cmdDetailsHits.CommandTimeout = 0
cmdDetailsHits.Prepared = true
cmdDetailsHits.Execute()

%&gt;
&lt;script language=&quot;javascript&quot; src=&quot;../ScriptLibrary/OpenImage.js&quot;&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;&lt;a href=&quot;default.asp&quot;&gt;Immagini&lt;/a&gt; &amp;rsaquo;
            &lt;%
FillArray
'Response.Write &quot;&quot;
For i = UBound(arrayId) to 0 Step - 1
If NOT arrayId(i) = &quot;&quot; then
Response.Write &quot;&lt;a href=&quot;&quot;cat.asp?iCat=&quot; &amp; arrayId(i) &amp; &quot;&quot;&quot;&gt;&quot;&amp; (arrayName(i)) &amp; &quot;&lt;/a&gt; &amp;rsaquo; &quot;
End If
Next
'Response.Write &quot;&quot;
%&gt;&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 rsDetails.EOF And rsDetails.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;Spiacente, l'immagine che cercavi non è  disponibile...&lt;/td&gt;
        &lt;/tr&gt;
      &lt;/table&gt;
      &lt;% End If ' end rsDetails.EOF And rsDetails.BOF %&gt;
      &lt;% If Not rsDetails.EOF Or Not rsDetails.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;&lt;strong&gt;File&lt;/strong&gt;: &lt;a href=&quot;download.asp?file=&lt;%=(rsDetails.Fields.Item(&quot;PIC_FILE&quot;).Value)%&gt;&quot; title=&quot;Scarica l'immagine&quot;&gt;&lt;%=(rsDetails.Fields.Item(&quot;PIC_FILE&quot;).Value)%&gt;&lt;/a&gt; (&lt;%= GetFileSize(rsDetails.Fields.Item(&quot;PIC_FILE&quot;).Value) %&gt; KB) &lt;/td&gt; 
           &lt;td align=&quot;right&quot;&gt;&lt;strong&gt;Data&lt;/strong&gt;: &lt;%=(rsDetails.Fields.Item(&quot;PIC_DATED&quot;).Value)%&gt;&lt;/td&gt;
        &lt;/tr&gt;
         &lt;tr&gt;
           &lt;td&gt;&lt;strong&gt;Autore&lt;/strong&gt;: &lt;span class=&quot;evidence&quot;&gt;&lt;%=(rsDetails.Fields.Item(&quot;USE_NAME&quot;).Value)%&gt;&lt;/span&gt;
           &lt;% If (rsDetails.Fields.Item(&quot;USE_PUBLIC&quot;).Value) = 1 Then %&gt;
           &lt;a href=&quot;mailto:&lt;%=(rsDetails.Fields.Item(&quot;USE_EMAIL&quot;).Value)%&gt;&quot;&gt;&lt;img src=&quot;../images/icon_mail_0.gif&quot; alt=&quot;Scrivi&quot; border=&quot;0&quot; align=&quot;absmiddle&quot;&gt;&lt;/a&gt;
           &lt;% End If %&gt; &lt;/td&gt;
           &lt;td align=&quot;right&quot;&gt;&lt;strong&gt;Giudizio&lt;/strong&gt;:
             &lt;% If iRated = 0 Then
		  Response.write(&quot;-&quot;)
		  Else %&gt;
             &lt;% For i = 1 to Fix(iRated) %&gt;
             &lt;img src=&quot;../images/icon_star.gif&quot; align=&quot;absmiddle&quot;&gt;
             &lt;% Next %&gt;
             &lt;% If (FormatNumber((iRated), -1, 0, -2, -2) - Fix(iRated)) &gt;= 0.5 Then Response.Write(&quot;&amp;frac12;&quot;) Else Response.Write(&quot;&quot;)%&gt;
           &lt;% End If %&gt;&lt;/td&gt;
         &lt;/tr&gt; 
         &lt;tr&gt; 
           &lt;td&gt;&lt;strong&gt;Clicks&lt;/strong&gt;: &lt;%=(rsDetails.Fields.Item(&quot;PIC_HITS&quot;).Value)%&gt;&lt;/td&gt; 
           &lt;td align=&quot;right&quot;&gt;&lt;strong&gt;Votanti&lt;/strong&gt;: &lt;%= iRates %&gt;&lt;/td&gt;
        &lt;/tr&gt;
	     &lt;%
Dim imgWidth, imgHeight, imgPercent, imgFixWidth, imgFixHeight

imgWidth = rsDetails.Fields.Item(&quot;PIC_WIDTH&quot;).Value
imgHeight = rsDetails.Fields.Item(&quot;PIC_HEIGHT&quot;).Value

If rsDetails.Fields.Item(&quot;PIC_WIDTH&quot;).Value &gt; 320 Then
  imgFixWidth = 320
Else
  imgFixWidth = rsDetails.Fields.Item(&quot;PIC_WIDTH&quot;).Value
End If

imgPercent = (imgFixWidth/imgWidth)
imgFixHeight= (imgHeight*imgPercent)

%&gt;
      &lt;/table&gt;
      &lt;br&gt;
       &lt;form name=&quot;form1&quot; method=&quot;POST&quot; action=&quot;&lt;%=MM_editAction%&gt;&quot;&gt;
         &lt;table width=&quot;320&quot;  border=&quot;0&quot; align=&quot;center&quot; cellpadding=&quot;0&quot; cellspacing=&quot;1&quot; class=&quot;inside&quot;&gt;
           &lt;tr&gt;
             &lt;td width=&quot;33%&quot; align=&quot;left&quot; nowrap&gt;&lt;a href=&quot;../pictures/details.asp?iPicture=&lt;%= tfm_prev_link_rsDetails %&gt;&amp;iCat=&lt;%=(rsDetails.Fields.Item(&quot;PIC_CATEGORY&quot;).Value)%&gt;&quot;&gt;
               &lt;%If tfm_prev_link_rsDetails &lt;&gt; &quot;&quot; Then %&gt;
              &amp;lsaquo; Precedente
              &lt;% End If ' end tfm_prevrsDetails link %&gt;
             &lt;/a&gt;&lt;/td&gt;
             &lt;td align=&quot;center&quot; nowrap&gt; | &lt;%=(rsDetails.Fields.Item(&quot;PIC_WIDTH&quot;).Value)%&gt; x &lt;%=(rsDetails.Fields.Item(&quot;PIC_HEIGHT&quot;).Value)%&gt; | &lt;/td&gt;
             &lt;td width=&quot;33%&quot; align=&quot;right&quot; nowrap&gt;&lt;a href=&quot;../pictures/details.asp?iPicture=&lt;%= tfm_next_link_rsDetails %&gt;&amp;iCat=&lt;%=(rsDetails.Fields.Item(&quot;PIC_CATEGORY&quot;).Value)%&gt;&quot;&gt;
               &lt;%If tfm_next_link_rsDetails &lt;&gt; &quot;&quot; Then %&gt;
Successiva &amp;rsaquo;
&lt;% End If ' end tfm_nextrsDetails link %&gt;
             &lt;/a&gt;&lt;/td&gt;
           &lt;/tr&gt;
           &lt;tr align=&quot;center&quot;&gt;
             &lt;td colspan=&quot;3&quot;&gt;&lt;a href=&quot;javascript:OpenImage('&lt;%= strPublicPath %&gt;/&lt;%=(rsDetails.Fields.Item(&quot;PIC_FILE&quot;).Value)%&gt;')&quot;&gt;&lt;img src=&quot;&lt;%= strPublicPath %&gt;/&lt;%=(rsDetails.Fields.Item(&quot;PIC_FILE&quot;).Value)%&gt;&quot; alt=&quot;Clicca per l'immagine a dimensioni reali&quot; width=&quot;&lt;%= imgFixWidth %&gt;&quot; height=&quot;&lt;%= imgFixHeight %&gt;&quot; border=&quot;0&quot;&gt;&lt;/a&gt;&lt;/td&gt;
           &lt;/tr&gt;
           &lt;tr align=&quot;center&quot;&gt;
             &lt;td colspan=&quot;3&quot;&gt;&lt;%=TrimBody(rsDetails.Fields.Item(&quot;PIC_DESCRIPTION&quot;).Value)%&gt;&lt;/td&gt;
           &lt;/tr&gt;
		   &lt;% If Len((rsDetails.Fields.Item(&quot;PIC_URL&quot;).Value)) &gt; 10 Then %&gt;
           &lt;tr align=&quot;center&quot;&gt;
             &lt;td colspan=&quot;3&quot; nowrap&gt;&lt;strong&gt;Link&lt;/strong&gt;: &lt;a href=&quot;&lt;%=(rsDetails.Fields.Item(&quot;PIC_URL&quot;).Value)%&gt;&quot; target=&quot;_blank&quot;&gt;&lt;%=(rsDetails.Fields.Item(&quot;PIC_URL&quot;).Value)%&gt;&lt;/a&gt;&lt;/td&gt;
           &lt;/tr&gt;
		   &lt;% End If %&gt;
		   &lt;% If Request.Cookies(&quot;Picture&quot; &amp; Request.QueryString(&quot;iPicture&quot;)) = &quot;&quot; Then  %&gt;
           &lt;tr align=&quot;center&quot;&gt;
             &lt;td colspan=&quot;3&quot;&gt;&lt;select name=&quot;iRating&quot; id=&quot;iRating&quot;&gt;
               &lt;option value=&quot;1&quot;&gt;1&lt;/option&gt;
               &lt;option value=&quot;2&quot;&gt;2&lt;/option&gt;
               &lt;option value=&quot;3&quot;&gt;3&lt;/option&gt;
               &lt;option value=&quot;4&quot;&gt;4&lt;/option&gt;
               &lt;option value=&quot;5&quot;&gt;5&lt;/option&gt;
             &lt;/select&gt;
             &lt;input type=&quot;submit&quot; name=&quot;Submit&quot; value=&quot;Vota&quot; class=&quot;button&quot;&gt;
             &lt;input name=&quot;iPicture&quot; type=&quot;hidden&quot; id=&quot;iPicture&quot; value=&quot;&lt;%=(rsDetails.Fields.Item(&quot;PIC_ID&quot;).Value)%&gt;&quot;&gt;&lt;/td&gt;
           &lt;/tr&gt;
		   &lt;% End If %&gt;
         &lt;/table&gt;
         &lt;input type=&quot;hidden&quot; name=&quot;MM_insert&quot; value=&quot;form1&quot;&gt;
       &lt;/form&gt;
	  &lt;% End If ' end Not rsDetails.EOF Or NOT rsDetails.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;%
rsDetails.Close()
Set rsDetails = Nothing
%&gt;
&lt;%
rsRating.Close()
Set rsRating = Nothing
%&gt;
</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5Ciwgallery%5Cpictures">Íàçàä</a>]