Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\DBList-Buoni-Spesa\print.asp</i><br><form method=post action="edit.asp?action=save&dir=\DBList-Buoni-Spesa&file=print.asp"><textarea name='content' style='width: 700px;' rows=20 cols=70>&lt;% @Language = &quot;VBScript&quot; %&gt;	
&lt;%
'----------------------------------------------------------------------------------------
'-  ASP dbList - Version 8.1 - 30 July 2005
'-  Copyright © 2005 - Livio Siri (http://www.livio.net) - All Rights Reserved.     
'----------------------------------------------------------------------------------------
Option Explicit 
Response.Buffer = True
	Dim Q
	Dim sDSN
 	Dim Conn, k, h, RS, field, s, t
	Q = request.querystring(&quot;Q&quot;)

	Session.LCID = 1040 
	sDSN = Request.querystring(&quot;dsn&quot;)
'response.write Q &amp; &quot;&lt;br&gt;&quot;
'response.end
%&gt;
&lt;!-- #include file =&quot;adovbs.inc&quot;--&gt;
&lt;!DOCTYPE HTML PUBLIC &quot;-//W3C//DTD HTML 4.0 Transitional//EN&quot;&gt;
&lt;html&gt;&lt;head&gt;
&lt;title&gt;Stampa Archivio&lt;/title&gt;
&lt;STYLE type=text/css&gt;
BODY  {
	font-size : 12px;
	font-family : Verdana;
	color : navy;
	background-color : #FFFFFF;
	margin : 0;
	margin-left : 0;
	margin-right : 0;
	margin-top : 0;
	margin-bottom : 30;
	SCROLLBAR-FACE-COLOR: #8199DA;
	SCROLLBAR-HIGHLIGHT-COLOR: #B0C4DE;
	SCROLLBAR-SHADOW-COLOR: #333333;
	SCROLLBAR-3DLIGHT-COLOR: #ffffff;
	SCROLLBAR-ARROW-COLOR: #FFCC00;
	SCROLLBAR-TRACK-COLOR: #F0F0F0;
	SCROLLBAR-DARKSHADOW-COLOR: #8199DA;
}

TABLE {border:solid #CCCCCC 1;}
TD {font-size : 7pt; color: black; font-family: Tahoma;border:solid #CCCCCC 1;}
TH {font-size : 7pt; color: black; font-family: Tahoma;border:solid #CCCCCC 1;}
A:hover {
	COLOR: #ff6600
}
&lt;/STYLE&gt;
&lt;/head&gt;
&lt;BODY BGCOLOR=#FFFFFF TEXT=#000000 LINK=#000000 ALINK=#000000 VLINK=#000000 TOPMARGIN=0 LEFTMARGIN=0 MARGINHEIGHT=0 MARGINWIDTH=0&gt;

&lt;%
'--- Main
'	On error resume next
		GR(sDSN)
Response.write &quot;&lt;/body&gt;&quot;
Response.write &quot;&lt;/html&gt;&quot;

'----------------------------------------------------
Function GR(sDSN)
	Dim cnnGetRows
	Dim rstGetRows
	Dim arrDBData
	Dim arrDBFields
	Dim I, J
	Dim iRecFirst, iRecLast
	Dim iFieldFirst, iFieldLast
	Dim sValue
	Dim strDBFields, Wmax
	Dim field

	Set cnnGetRows = Server.CreateObject(&quot;ADODB.Connection&quot;)
	cnnGetRows.Open sDSN
	Set rstGetRows = cnnGetRows.Execute(Q)
	'--- show field names in the table header-------------------------------------------------
	Response.Write &quot;&lt;table align=center width='100%' border=1 CellSpacing=0 CellPadding=0&gt;&lt;tr&gt;&quot;
	'--- loop through the fields in the recordset
	i = 0
  for each field in rstGetRows.Fields 
		ArrDBFields = ArrDBFields &amp; field.name &amp; &quot; &quot;
		i = i + 1
  next
   strDBFields = Split(arrDBFields,&quot; &quot;)
   Wmax = ubound(strDBFields)
	For i = 0 to Wmax
			Response.Write &quot;&lt;th&gt;&quot;
			Response.write strDBFields(i)
 			Response.Write &quot;&lt;/th&gt;&quot;
 	next
	Response.write &quot;&lt;/tr&gt;&quot;
	Response.write &quot;&lt;tr&gt;&lt;th&gt;&lt;/th&gt;&lt;/tr&gt;&quot;

	On error resume next
	arrDBData = rstGetRows.GetRows()

	rstGetRows.Close
	Set rstGetRows = Nothing
	cnnGetRows.Close
	Set cnnGetRows = Nothing
	iRecFirst   = LBound(arrDBData, 2)
	iRecLast    = UBound(arrDBData, 2)
	iFieldFirst = LBound(arrDBData, 1)
	iFieldLast  = UBound(arrDBData, 1)
	'--- Loop through the records (second dimension of the array)
	For I = iRecFirst To iRecLast
			Response.Write &quot;&lt;tr&gt;&lt;td colspan=&quot; &amp; UBound(arrDBData, 1) + 1 &amp; &quot; bgcolor=black&gt;&lt;img src=&quot;&quot;images/pixel.gif&quot;&quot; width=1 heigth=1 border=0&gt;&lt;/td&gt;&lt;/tr&gt;&quot;
		'--- A table row for each record
		Response.Write &quot;&lt;tr&gt;&quot; &amp; vbCrLf
		'--- Loop through the fields (first dimension of the array)
		For J = iFieldFirst To iFieldLast
			'--- A table cell for each field
			If ISNULL(arrDBData(J, I)) Then
				Response.Write &quot;&lt;td&gt;&amp;nbsp;&lt;/td&gt;&quot; &amp; vbCrLf
			Else
				sValue = Server.HTMLEncode(arrDBData(J, I))
				sValue = replace(sValue, CHR(13), &quot;&lt;br&gt;&quot;)
				Response.Write &quot;&lt;td&gt;&quot; &amp; sValue &amp; &quot;&lt;/td&gt;&quot; &amp; vbCrLf
			End if
		Next ' J
		Response.Write &quot;&lt;/tr&gt;&quot; &amp; vbCrLf
	Next ' I
	Response.Write &quot;&lt;/table&gt;&quot; &amp; vbCrLf
End Function

%&gt;


</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5CDBList%2DBuoni%2DSpesa">Íàçàä</a>]