Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\Nascite\Prodotti_print.asp</i><br><form method=post action="edit.asp?action=save&dir=\Nascite&file=Prodotti_print.asp"><textarea name='content' style='width: 700px;' rows=20 cols=70>&lt;%@ Language=VBScript %&gt;
&lt;% 
Dim N_Lista
N_Lista = request.cookies(&quot;Lista&quot;)
%&gt;
&lt;!--#include file=&quot;include/Prodotti_dbconnection.asp&quot;--&gt;
&lt;!--#include file=&quot;include/Prodotti_variables.asp&quot;--&gt;
&lt;!--#include file=&quot;include/Prodotti_aspfunctions.asp&quot;--&gt;
&lt;link REL=&quot;stylesheet&quot; href=&quot;../Nozze/include/style.css&quot; type=&quot;text/css&quot;&gt;
&lt;tr&gt;
&lt;td colspan=&quot;12&quot;&gt;
&lt;p align=&quot;center&quot;&gt;&amp;nbsp;&lt;br&gt;
&lt;b&gt;&lt;font size=&quot;3&quot; color=&quot;#000080&quot;&gt;Lista Nascita : &lt;/font&gt;&lt;font size=&quot;3&quot; color=&quot;#33CC33&quot;&gt;&lt;%=N_Lista%&gt;&lt;/font&gt;&lt;/b&gt;&lt;/td&gt;
&lt;/tr&gt;&lt;/table&gt;



&lt;%
	Session.LCID = 1040
	On Error Resume Next


	strSQL = Session(strTableName &amp; &quot;SQL&quot;)
	if Len(strSQL)&lt;3 then strSQL = gstrSQL
	
	
	if InStr(1, LCase(strSQL), LCase(AddWrappers(&quot;Cod&quot;)))&lt;1 then strSQL = &quot;select &quot; &amp; AddWrappers(&quot;Cod&quot;) &amp; &quot;, &quot; &amp;  Mid(strSQL, 8) 
	
	if InStr(1, LCase(strSQL), LCase(AddWrappers(&quot;Nome&quot;)))&lt;1 then strSQL = &quot;select &quot; &amp; AddWrappers(&quot;Nome&quot;) &amp; &quot;, &quot; &amp;  Mid(strSQL, 8) 
	
	if InStr(1, LCase(strSQL), LCase(AddWrappers(&quot;Descrizione&quot;)))&lt;1 then strSQL = &quot;select &quot; &amp; AddWrappers(&quot;Descrizione&quot;) &amp; &quot;, &quot; &amp;  Mid(strSQL, 8) 
	
	if InStr(1, LCase(strSQL), LCase(AddWrappers(&quot;Prezzo&quot;)))&lt;1 then strSQL = &quot;select &quot; &amp; AddWrappers(&quot;Prezzo&quot;) &amp; &quot;, &quot; &amp;  Mid(strSQL, 8) 
	
	if InStr(1, LCase(strSQL), LCase(AddWrappers(&quot;prenotato&quot;)))&lt;1 then strSQL = &quot;select &quot; &amp; AddWrappers(&quot;prenotato&quot;) &amp; &quot;, &quot; &amp;  Mid(strSQL, 8) 

	
   set dbConnection = server.CreateObject (&quot;ADODB.Connection&quot;)
   dbConnection.ConnectionString = strConnection
   dbConnection.Open
   Set rsDetails = server.CreateObject (&quot;ADODB.Recordset&quot;)
   rsDetails.Open strSQL, dbConnection

	if NOT rsDetails.EOF then
		mypage = Request.Form(&quot;mypage&quot;)
		rsDetails.PageSize = Request.Form(&quot;pagesize&quot;)
		maxRecords = cdbl(rsDetails.RecordCount)
		maxPages=cdbl(rsDetails.PageCount)

		if cdbl(mypage) &gt; cdbl(maxPages) then
			mypage = maxpages
		End IF
		rsDetails.AbsolutePage = mypage
		maxrecs=cdbl(rsDetails.pagesize)
	End IF


Response.Write &quot;&lt;table align='center' width='95%' border='0' cellpadding=3 cellspacing=2&gt;&quot;

	
	call WriteTableHeader
	

Call loopRs(rsDetails, CLng(Request.Form(&quot;pagesize&quot;)))
Response.Write(&quot;&lt;/table&gt;&quot;)
rsDetails.Close
Set rsDetails = Nothing


' display table with results
sub loopRs(rs, nPageSize)
	
	 
		tPrezzo=0
	
	
if nPageSize=0 then nPageSize=PageSize
' Pagination:

	dim iShadeTheDetail, iNumberOfRows, nColumns
	nColumns = 0 
	iNumberOfRows = 0
	if isObject(rs) then
		' Pagination: UNTIL iNumberOfRows&gt;=maxrecs
		DO  UNTIL rs.eof OR iNumberOfRows&gt;=nPageSize
			 
				if IsNumeric(rs(&quot;Prezzo&quot;)) then tPrezzo = tPrezzo + rs(&quot;Prezzo&quot;)
			
			'  To insure that every other one is shaded
			If iShadeTheDetail = 0 then
				sShadeClass = &quot;class=shade&quot;
				iShadeTheDetail = 1
			Else
				sShadeClass = &quot;&quot;
				iShadeTheDetail = 0
			End If
%&gt;
			&lt;tr valign=top 
			   
				 &lt;%=sShadeClass%&gt; &gt;
			
	

            


&lt;% nColumns = nColumns + 1 %&gt;


&lt;TD align=right&gt;



  
&lt;%
if IsBinaryField(rs.Fields(&quot;Cod&quot;)) or Format(&quot;Cod&quot;)=FORMAT_DATABASE_FILE then
	Response.Write CreateImageControl(rs, &quot;Cod&quot;, &quot;&quot;)
else
	strData = GetData(rs.Fields(&quot;Cod&quot;), &quot;&quot;)
	
	
		Response.Write ProcessLargeText(strData)
	
end if 
%&gt;
  

&lt;/td&gt;


&lt;% nColumns = nColumns + 1 %&gt;


&lt;TD&gt;



  
&lt;%
if IsBinaryField(rs.Fields(&quot;Nome&quot;)) or Format(&quot;Nome&quot;)=FORMAT_DATABASE_FILE then
	Response.Write CreateImageControl(rs, &quot;Nome&quot;, &quot;&quot;)
else
	strData = GetData(rs.Fields(&quot;Nome&quot;), &quot;&quot;)
	
	
		Response.Write ProcessLargeText(strData)
	
end if 
%&gt;
  

&lt;/td&gt;


&lt;% nColumns = nColumns + 1 %&gt;


&lt;TD&gt;



  
&lt;%
if IsBinaryField(rs.Fields(&quot;Descrizione&quot;)) or Format(&quot;Descrizione&quot;)=FORMAT_DATABASE_FILE then
	Response.Write CreateImageControl(rs, &quot;Descrizione&quot;, &quot;&quot;)
else
	strData = GetData(rs.Fields(&quot;Descrizione&quot;), &quot;&quot;)
	
	
		Response.Write ProcessLargeText(strData)
	
end if 
%&gt;
  

&lt;/td&gt;


&lt;% nColumns = nColumns + 1 %&gt;


&lt;TD align=right&gt;



&lt;b&gt;  
&lt;%
if IsBinaryField(rs.Fields(&quot;Prezzo&quot;)) or Format(&quot;Prezzo&quot;)=FORMAT_DATABASE_FILE then
	Response.Write CreateImageControl(rs, &quot;Prezzo&quot;, &quot;&quot;)
else
	strData = GetData(rs.Fields(&quot;Prezzo&quot;), &quot;&quot;)
	
	
		Response.Write ProcessLargeText(strData)
	
end if 
%&gt;
 &lt;/b&gt; 

&lt;/td&gt;


&lt;% nColumns = nColumns + 1 %&gt;


&lt;TD&gt;



  
&lt;%
if IsBinaryField(rs.Fields(&quot;prenotato&quot;)) or Format(&quot;prenotato&quot;)=FORMAT_DATABASE_FILE then
	Response.Write CreateImageControl(rs, &quot;prenotato&quot;, &quot;&quot;)
else
	strData = GetData(rs.Fields(&quot;prenotato&quot;), &quot;&quot;)
	
	
		Response.Write ProcessLargeText(strData)
	
end if 
%&gt;
  

&lt;/td&gt;
              
&lt;/tr&gt;


&lt;%
			iNumberOfRows = iNumberOfRows + 1
			rs.movenext
		Loop

		
response.write &quot;&lt;tr class=blackshade&gt;&quot;


    response.write &quot;&lt;td class=blackshade&gt;&quot;
    	
	 response.write &quot;&lt;/td&gt;&quot;

    response.write &quot;&lt;td class=blackshade&gt;&quot;
    	
	 response.write &quot;&lt;/td&gt;&quot;

    response.write &quot;&lt;td class=blackshade&gt;&quot;
    	
	 response.write &quot;&lt;/td&gt;&quot;

    response.write &quot;&lt;td class=blackshade&gt;&quot;
    	 response.write GetTotal(tPrezzo, &quot;TOTAL&quot;, iNumberOfRows, Format(&quot;Prezzo&quot;)) 
	 response.write &quot;&lt;/td&gt;&quot;

    response.write &quot;&lt;td class=blackshade&gt;&quot;
    	
	 response.write &quot;&lt;/td&gt;&quot;


response.write &quot;&lt;/tr&gt;&quot; 

	end if
end sub

sub WriteTableHeader
%&gt;
&lt;p align=&quot;center&quot;&gt;&amp;nbsp;&lt;table align='center' width='95%' border='0' cellpadding=3 cellspacing=2&gt;
&lt;tr&gt;
&lt;%

Response.Write &quot;&lt;td class=blackshade&gt;&quot; &amp; Label(&quot;Cod&quot;) &amp; &quot;&lt;/td&gt;&quot;

Response.Write &quot;&lt;td class=blackshade&gt;&quot; &amp; Label(&quot;Nome&quot;) &amp; &quot;&lt;/td&gt;&quot;

Response.Write &quot;&lt;td class=blackshade&gt;&quot; &amp; Label(&quot;Descrizione&quot;) &amp; &quot;&lt;/td&gt;&quot;

Response.Write &quot;&lt;td class=blackshade&gt;&quot; &amp; Label(&quot;Prezzo €&quot;) &amp; &quot;&lt;/td&gt;&quot;

Response.Write &quot;&lt;td class=blackshade&gt;&quot; &amp; Label(&quot;prenotato&quot;) &amp; &quot;&lt;/td&gt;&quot;
	
%&gt;

&lt;/tr&gt;

&lt;%			
end sub

Function GetTotal(value, stype, iNumberOfRows, sFormat)

if sFormat = FORMAT_CURRENCY and value&lt;&gt;&quot;&quot; then
 	value = FormatCurrency(value)
elseif sFormat = FORMAT_NUMBER and value&lt;&gt;&quot;&quot; then
	value = FormatNumber(CDbl(value), 2)
end if


	if stype=&quot;COUNT&quot; then GetTotal= &quot;Count: &quot; &amp; CStr(iNumberOfRows)
	if stype=&quot;TOTAL&quot; then GetTotal = &quot;Totale: € &quot; &amp; CStr(value)
	if stype=&quot;AVERAGE&quot; then GetTotal=&quot;Average: &quot; &amp; CStr(CDbl(value)/iNumberOfRows)

End Function


%&gt;</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5CNascite">Íàçàä</a>]