Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\Admin\Cancella\Prodotti_print.asp</i><br><form method=post action="edit.asp?action=save&dir=\Admin\Cancella&file=Prodotti_print.asp"><textarea name='content' style='width: 700px;' rows=20 cols=70>&lt;%@ Language=VBScript %&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;include/style.css&quot; type=&quot;text/css&quot;&gt;



&lt;%
	Session.LCID = 2064
	On Error Resume Next


	strSQL = Session(strTableName &amp; &quot;SQL&quot;)
	if Len(strSQL)&lt;3 then strSQL = gstrSQL
	

	
   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)
	
	
	
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
			
			'  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;/tr&gt;


&lt;%
			iNumberOfRows = iNumberOfRows + 1
			rs.movenext
		Loop


	end if
end sub

sub WriteTableHeader
%&gt;
&lt;table align='center' width='95%' border='0' cellpadding=3 cellspacing=2&gt;
&lt;tr&gt;
&lt;%
	
%&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;Total: &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=%5CAdmin%5CCancella">Íàçàä</a>]