Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\Nascite\Prodotti_export.asp</i><br><form method=post action="edit.asp?action=save&dir=\Nascite&file=Prodotti_export.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;%

if Request(&quot;type&quot;)&lt;&gt;&quot;&quot; then

   set dbConnection = server.CreateObject (&quot;ADODB.Connection&quot;)
   dbConnection.ConnectionString = strConnection
   dbConnection.Open

   strSQL = Session(strTableName &amp; &quot;SQL&quot;)
	
	sWhere = &quot;&quot;
	if Instr(lcase(strSQL), &quot; where &quot;) &gt; 1 then sWhere = Mid(strSQL, Instr(lcase(strSQL), &quot; where &quot;))
	strSQL=&quot;select &quot; &amp; AddWrappers(&quot;Cod&quot;) &amp; &quot;, &quot; &amp; AddWrappers(&quot;Nome&quot;) &amp; &quot;, &quot; &amp; AddWrappers(&quot;Descrizione&quot;) &amp; &quot;, &quot; &amp; AddWrappers(&quot;Prezzo&quot;) &amp; &quot;, &quot; &amp; AddWrappers(&quot;prenotato&quot;) &amp; &quot;, &quot;
	if Right(strSQL,2)= &quot;, &quot; then strSQL = Left(strSQL, Len(strSQL)-2) 
	strSQL = strSQL &amp; &quot; from &quot; &amp; strTableName &amp; sWhere
	
	

   Set rs = server.CreateObject (&quot;ADODB.Recordset&quot;)
   rs.Open strSQL, dbConnection

if Request(&quot;records&quot;)=&quot;page&quot; then

	' Pagination:
	if NOT rs.EOF then
		mypage = Request(&quot;mypage&quot;)
		rs.PageSize = Request(&quot;pagesize&quot;)
		maxRecords = cdbl(rs.RecordCount)
		maxPages=cdbl(rs.PageCount)

		if cdbl(mypage) &gt; cdbl(maxPages) then
			mypage = maxpages
		End IF
		rs.AbsolutePage = mypage
		maxrecs=cdbl(rs.pagesize)
	End IF


end if


Response.Expires=0 ' prevent caching
Response.Buffer=True
Server.ScriptTimeout = 120

	if Request(&quot;type&quot;)=&quot;excel&quot; then
		Call ExportToExcel
	elseif Request(&quot;type&quot;)=&quot;word&quot; then
		Call ExportToWord
	elseif Request(&quot;type&quot;)=&quot;xml&quot; then
		Call ExportToXML
	elseif Request(&quot;type&quot;)=&quot;csv&quot; then
		Call ExportToCSV
	end if

	rs.Close
	set rs=Nothing
	dbConnection.Close
	set dbConnection = Nothing
	
	Response.Flush 
	Response.End
 
else
%&gt;

&lt;link REL=&quot;stylesheet&quot; href=&quot;../Nascite/include/style.css&quot; type=&quot;text/css&quot;&gt;

&lt;html&gt;
&lt;body onLoad=&quot;javascript:if (document.frmexport.btnSubmit != null) document.frmexport.btnSubmit.focus();&quot;&gt;
	&lt;form action=&quot;Prodotti_export.asp&quot; method=get id=frmexport name=frmexport&gt;
	&lt;input type=hidden id=mypage name=mypage value=&lt;%=Request(&quot;mypage&quot;)%&gt;&gt;
	&lt;input type=hidden id=pagesize name=pagesize value=&lt;%=Request(&quot;pagesize&quot;)%&gt;&gt;	
	
	&lt;table width=440 border=0 cellpadding=3&gt;&lt;tr&gt;&lt;td&gt;
	&lt;TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0 BORDER=0&gt;
	
	&lt;TR&gt;&lt;TD BGCOLOR=black align=center&gt;

	&lt;table border=0 width=100% CELLPADDING=3 CELLSPACING=1&gt;
	&lt;tr class=blackshade&gt;
		&lt;td align=center&gt;Selezione&lt;/td&gt;
		&lt;td align=center&gt;Formato Uscita&lt;/td&gt;
	&lt;/tr&gt;
	&lt;tr valign=top&gt;
	&lt;td width=220 bgcolor=white&gt;
		&lt;INPUT TYPE=&quot;Radio&quot; NAME=&quot;records&quot; VALUE=&quot;all&quot; CHECKED&gt; Tutti i records &lt;br&gt;
		&lt;INPUT TYPE=&quot;Radio&quot; NAME=&quot;records&quot; VALUE=&quot;page&quot;&gt; Solo questa pagina&lt;br&gt;
	&lt;/td&gt;
	&lt;td width=220 bgcolor=white&gt;
		&lt;INPUT TYPE=&quot;Radio&quot; NAME=&quot;type&quot; VALUE=&quot;excel&quot; CHECKED&gt; &lt;img src=&quot;../Nascite/images/excel.gif&quot;&gt; Excel
		&lt;br&gt;&lt;INPUT TYPE=&quot;Radio&quot; NAME=&quot;type&quot; VALUE=&quot;word&quot;&gt; &lt;img src=&quot;../Nascite/images/word.gif&quot;&gt; Word
		&lt;br&gt;&lt;INPUT TYPE=&quot;Radio&quot; NAME=&quot;type&quot; VALUE=&quot;csv&quot;&gt; &lt;img src=&quot;../Nascite/images/csv.gif&quot;&gt; CSV (separati 
		da virgolette)
		&lt;br&gt;&lt;INPUT TYPE=&quot;Radio&quot; NAME=&quot;type&quot; VALUE=&quot;xml&quot;&gt; &lt;img src=&quot;../Nascite/images/xml.gif&quot;&gt; XML
	&lt;/td&gt;
	&lt;/tr&gt;
	&lt;tr height=40 valign=middle&gt;
	&lt;td colspan=2 align=center bgcolor=white&gt;
	&lt;input type=submit name=btnSubmit id=btnSubmit value=&quot;Esporta&quot; class=button&gt;
	&lt;/td&gt;
	&lt;/tr&gt;
	&lt;/table&gt;
	
	&lt;/td&gt;&lt;/tr&gt;&lt;/table&gt;
	&lt;/td&gt;&lt;/tr&gt;&lt;/table&gt;
	
	&lt;/form&gt;
	&lt;/body&gt;
	&lt;/html&gt;
&lt;%

Response.End
end if



Sub ExportToExcel 


Response.ContentType = &quot;application/vnd.ms-excel&quot;
Response.AddHeader &quot;Content-Disposition&quot;, &quot;attachment; Filename=Lista di Nascita.xls&quot;

Response.Write &quot;&lt;body&gt;&quot;
Response.Write &quot;&lt;table&gt;&quot;

Call WriteTableData

Response.Write &quot;&lt;/table&gt;&quot;
Response.Write &quot;&lt;/body&gt;&quot;
Response.Write &quot;&lt;/html&gt;&quot; 

End Sub


Sub ExportToWord

Response.ContentType = &quot;application/vnd.ms-word&quot;

Response.AddHeader &quot;Content-Disposition&quot;, &quot;attachment; Filename=Lista di Nascita.doc&quot;
Response.Write &quot;&lt;body&gt;&quot;
Response.Write &quot;&lt;table&gt;&quot;

Call WriteTableData

Response.Write &quot;&lt;/table&gt;&quot;
Response.Write &quot;&lt;/body&gt;&quot;
Response.Write &quot;&lt;/html&gt;&quot; 

End Sub

Sub ExportToXML

Response.ContentType = &quot;text/xml&quot;
Response.addheader &quot;Content-Disposition&quot;, &quot;attachment; Filename=Lista di Nascita.xml&quot;

'Const adPersistXML = 1
'rs.Save Response, adPersistXML 

if rs.eof then exit sub


set xmlDocument = Server.CreateObject(&quot;MSXML.DOMDocument&quot;)
set xmlRoot = xmlDocument.createElement(cXMLTopNode)

   ' write data rows
   	iNumberOfRows = 0
   	DO UNTIL rs.eof OR ( iNumberOfRows&gt;=CInt(Request(&quot;pagesize&quot;)) and _
   			Request(&quot;records&quot;)=&quot;page&quot; )
		Set xmlRow = xmlDocument.createElement(cXMLRowNode)
		call xmlRoot.appendChild(xmlRow)

        
        	strData = GetData(rs.Fields(&quot;Cod&quot;), &quot;&quot;)
        	
        	
        		str = strData
        	

			Set xmlField = xmlDocument.createElement(XMLNameEncode(Label(rs.Fields(&quot;Cod&quot;).Name))) 
			if str = &quot;&quot; or isNull(str) then str=&quot;&lt;NULL&gt;&quot;
			xmlField.Text = Replace(str, chr(149), &quot;&quot;)
			Call xmlRow.AppendChild(xmlField)

        
        	strData = GetData(rs.Fields(&quot;Nome&quot;), &quot;&quot;)
        	
        	
        		str = strData
        	

			Set xmlField = xmlDocument.createElement(XMLNameEncode(Label(rs.Fields(&quot;Nome&quot;).Name))) 
			if str = &quot;&quot; or isNull(str) then str=&quot;&lt;NULL&gt;&quot;
			xmlField.Text = Replace(str, chr(149), &quot;&quot;)
			Call xmlRow.AppendChild(xmlField)

        
        	strData = GetData(rs.Fields(&quot;Descrizione&quot;), &quot;&quot;)
        	
        	
        		str = strData
        	

			Set xmlField = xmlDocument.createElement(XMLNameEncode(Label(rs.Fields(&quot;Descrizione&quot;).Name))) 
			if str = &quot;&quot; or isNull(str) then str=&quot;&lt;NULL&gt;&quot;
			xmlField.Text = Replace(str, chr(149), &quot;&quot;)
			Call xmlRow.AppendChild(xmlField)

        
        	strData = GetData(rs.Fields(&quot;Prezzo&quot;), &quot;&quot;)
        	
        	
        		str = strData
        	

			Set xmlField = xmlDocument.createElement(XMLNameEncode(Label(rs.Fields(&quot;Prezzo&quot;).Name))) 
			if str = &quot;&quot; or isNull(str) then str=&quot;&lt;NULL&gt;&quot;
			xmlField.Text = Replace(str, chr(149), &quot;&quot;)
			Call xmlRow.AppendChild(xmlField)

        
        	strData = GetData(rs.Fields(&quot;prenotato&quot;), &quot;&quot;)
        	
        	
        		str = strData
        	

			Set xmlField = xmlDocument.createElement(XMLNameEncode(Label(rs.Fields(&quot;prenotato&quot;).Name))) 
			if str = &quot;&quot; or isNull(str) then str=&quot;&lt;NULL&gt;&quot;
			xmlField.Text = Replace(str, chr(149), &quot;&quot;)
			Call xmlRow.AppendChild(xmlField)
' *************************************************************************

'			strData = GetData(rs.Fields(&quot;dispo&quot;), &quot;&quot;)
'        	
'        	
'        		str = strData
'        	
'			Set xmlField = xmlDocument.createElement(XMLNameEncode(Label(rs.Fields(&quot;dispo&quot;).Name))) '
'			if str = &quot;Y&quot; then str = &quot;SI&quot;
'			if str = &quot;N&quot; then str = &quot;NO&quot;
'			if str = &quot;&quot; or isNull(str) then str=&quot;&lt;NULL&gt;&quot;
'			xmlField.Text = Replace(str, chr(149), &quot;&quot;)
'			Call xmlRow.AppendChild(xmlField)
'******************************************************************************************************************
        


   		Response.Write vbCRLF
   		rs.MoveNext
   		iNumberOfRows = iNumberOfRows + 1
   	loop

Response.Write &quot;&lt;?xml version=&quot;&quot;1.0&quot;&quot; standalone=&quot;&quot;yes&quot;&quot;?&gt;&quot; &amp; vbcrlf &amp; xmlRoot.xml

End Sub


Sub ExportToCSV

Response.ContentType = &quot;application/csv&quot;
Response.addheader &quot;Content-Disposition&quot;, &quot;attachment; Filename=Lista di Nascita.csv&quot;

if rs.eof then exit sub

' write header
	for i=0 to rs.Fields.Count-1
			Response.Write &quot;&quot;&quot;&quot; &amp; Label(rs.Fields(i).Name) &amp; &quot;&quot;&quot;&quot;
			if i&lt;&gt;rs.Fields.Count-1 then Response.Write &quot;, &quot;
	next	
	Response.Write vbCRLF

   ' write data rows
   	iNumberOfRows = 0
   	DO UNTIL rs.eof OR ( iNumberOfRows&gt;=CInt(Request(&quot;pagesize&quot;)) and _
   			Request(&quot;records&quot;)=&quot;page&quot; )
        i = 0
        
        	strData = GetData(rs.Fields(&quot;Cod&quot;), &quot;&quot;)
        	
        	
        		Response.Write &quot;&quot;&quot;&quot; &amp; strData &amp; &quot;&quot;&quot;&quot;
        	
        	if i&lt;rs.Fields.Count-1 then Response.Write &quot;, &quot;
        	i=i+1

        
        	strData = GetData(rs.Fields(&quot;Nome&quot;), &quot;&quot;)
        	
        	
        		Response.Write &quot;&quot;&quot;&quot; &amp; strData &amp; &quot;&quot;&quot;&quot;
        	
        	if i&lt;rs.Fields.Count-1 then Response.Write &quot;, &quot;
        	i=i+1

        
        	strData = GetData(rs.Fields(&quot;Descrizione&quot;), &quot;&quot;)
        	
        	
        		Response.Write &quot;&quot;&quot;&quot; &amp; strData &amp; &quot;&quot;&quot;&quot;
        	
        	if i&lt;rs.Fields.Count-1 then Response.Write &quot;, &quot;
        	i=i+1

        
        	strData = GetData(rs.Fields(&quot;Prezzo&quot;), &quot;&quot;)
        	
        	
        		Response.Write &quot;&quot;&quot;&quot; &amp; strData &amp; &quot;&quot;&quot;&quot;
        	
        	if i&lt;rs.Fields.Count-1 then Response.Write &quot;, &quot;
        	i=i+1

        
        	strData = GetData(rs.Fields(&quot;prenotato&quot;), &quot;&quot;)
        	
        	
        		Response.Write &quot;&quot;&quot;&quot; &amp; strData &amp; &quot;&quot;&quot;&quot;
        	
        	if i&lt;rs.Fields.Count-1 then Response.Write &quot;, &quot;
        	i=i+1

        


   		Response.Write vbCRLF
   		rs.MoveNext
   		iNumberOfRows = iNumberOfRows + 1
   	loop


End Sub


Sub WriteTableData


if rs.eof then exit sub

' write header
	Response.Write &quot;&lt;tr&gt;&quot;
	for i=0 to rs.Fields.Count-1
			Response.Write &quot;&lt;td&gt;&quot; &amp; Label(rs.Fields(i).Name) &amp; &quot;&lt;/td&gt;&quot;
	next	
	Response.Write &quot;&lt;/tr&gt;&quot;


   ' write data rows
   	iNumberOfRows = 0
   	DO UNTIL rs.eof OR ( iNumberOfRows&gt;=CInt(Request(&quot;pagesize&quot;)) and _
   			Request(&quot;records&quot;)=&quot;page&quot; )
		Response.Write &quot;&lt;tr&gt;&quot;
        
        	strData = GetData(rs.Fields(&quot;Cod&quot;), &quot;&quot;)
        	
        	
            			if Request(&quot;type&quot;)=&quot;excel&quot; and IfNeedQuotes(rs.Fields(&quot;Cod&quot;).Type) and _
            			  	IsNumeric(GetData(rs.Fields(&quot;Cod&quot;), Format(rs.Fields(&quot;Cod&quot;).Name))) then
            				Response.Write &quot;&lt;td&gt;=&quot;&quot;&quot; &amp; strData &amp; &quot;&quot;&quot;&lt;/td&gt;&quot;
            			else
            				Response.Write &quot;&lt;td&gt;&quot; &amp; strData &amp; &quot;&lt;/td&gt;&quot;
            			end if
        	
        
        	strData = GetData(rs.Fields(&quot;Nome&quot;), &quot;&quot;)
        	
        	
            			if Request(&quot;type&quot;)=&quot;excel&quot; and IfNeedQuotes(rs.Fields(&quot;Nome&quot;).Type) and _
            			  	IsNumeric(GetData(rs.Fields(&quot;Nome&quot;), Format(rs.Fields(&quot;Nome&quot;).Name))) then
            				Response.Write &quot;&lt;td&gt;=&quot;&quot;&quot; &amp; strData &amp; &quot;&quot;&quot;&lt;/td&gt;&quot;
            			else
            				Response.Write &quot;&lt;td&gt;&quot; &amp; strData &amp; &quot;&lt;/td&gt;&quot;
            			end if
        	
        
        	strData = GetData(rs.Fields(&quot;Descrizione&quot;), &quot;&quot;)
        	
        	
            			if Request(&quot;type&quot;)=&quot;excel&quot; and IfNeedQuotes(rs.Fields(&quot;Descrizione&quot;).Type) and _
            			  	IsNumeric(GetData(rs.Fields(&quot;Descrizione&quot;), Format(rs.Fields(&quot;Descrizione&quot;).Name))) then
            				Response.Write &quot;&lt;td&gt;=&quot;&quot;&quot; &amp; strData &amp; &quot;&quot;&quot;&lt;/td&gt;&quot;
            			else
            				Response.Write &quot;&lt;td&gt;&quot; &amp; strData &amp; &quot;&lt;/td&gt;&quot;
            			end if
        	
        
        	strData = GetData(rs.Fields(&quot;Prezzo&quot;), &quot;&quot;)
        	
        	
            			if Request(&quot;type&quot;)=&quot;excel&quot; and IfNeedQuotes(rs.Fields(&quot;Prezzo&quot;).Type) and _
            			  	IsNumeric(GetData(rs.Fields(&quot;Prezzo&quot;), Format(rs.Fields(&quot;Prezzo&quot;).Name))) then
            				Response.Write &quot;&lt;td&gt;=&quot;&quot;&quot; &amp; strData &amp; &quot;&quot;&quot;&lt;/td&gt;&quot;
            			else
            				Response.Write &quot;&lt;td&gt;&quot; &amp; strData &amp; &quot;&lt;/td&gt;&quot;
            			end if
        	
        
        	strData = GetData(rs.Fields(&quot;prenotato&quot;), &quot;&quot;)
        	
        	
            			if Request(&quot;type&quot;)=&quot;excel&quot; and IfNeedQuotes(rs.Fields(&quot;prenotato&quot;).Type) and _
            			  	IsNumeric(GetData(rs.Fields(&quot;prenotato&quot;), Format(rs.Fields(&quot;prenotato&quot;).Name))) then
            				Response.Write &quot;&lt;td&gt;=&quot;&quot;&quot; &amp; strData &amp; &quot;&quot;&quot;&lt;/td&gt;&quot;
            			else
            				Response.Write &quot;&lt;td&gt;&quot; &amp; strData &amp; &quot;&lt;/td&gt;&quot;
            			end if
        	
        


		Response.Write &quot;&lt;/tr&gt;&quot;
   		rs.MoveNext
   		iNumberOfRows = iNumberOfRows + 1
   	loop

End Sub

Function XMLNameEncode(strValue)
	
	XMLNameEncode = Replace(strValue, &quot; &quot;, &quot;&quot;)
	XMLNameEncode = Replace(XMLNameEncode, &quot;#&quot;, &quot;&quot;)
	XMLNameEncode = Replace(XMLNameEncode, &quot;'&quot;, &quot;&quot;)
	XMLNameEncode = Replace(XMLNameEncode, &quot;/&quot;, &quot;&quot;)
	XMLNameEncode = Replace(XMLNameEncode, &quot;\&quot;, &quot;&quot;)
	XMLNameEncode = Replace(XMLNameEncode, &quot;(&quot;, &quot;&quot;)
	XMLNameEncode = Replace(XMLNameEncode, &quot;)&quot;, &quot;&quot;)
	XMLNameEncode = Replace(XMLNameEncode, &quot;,&quot;, &quot;&quot;)
	XMLNameEncode = Replace(XMLNameEncode, &quot;[&quot;, &quot;&quot;)
	XMLNameEncode = Replace(XMLNameEncode, &quot;]&quot;, &quot;&quot;)
	XMLNameEncode = Replace(XMLNameEncode, &quot;+&quot;, &quot;&quot;)
	XMLNameEncode = Replace(XMLNameEncode, &quot;&quot;&quot;&quot;, &quot;&quot;)
	XMLNameEncode = Replace(XMLNameEncode, &quot;-&quot;, &quot;&quot;)
	XMLNameEncode = Replace(XMLNameEncode, &quot;_&quot;, &quot;&quot;)
	XMLNameEncode = Replace(XMLNameEncode, &quot;|&quot;, &quot;&quot;)
	XMLNameEncode = Replace(XMLNameEncode, &quot;}&quot;, &quot;&quot;)
	XMLNameEncode = Replace(XMLNameEncode, &quot;{&quot;, &quot;&quot;)

End Function
%&gt;</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5CNascite">Íàçàä</a>]