Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\registrazione\inc_common.asp</i><br><form method=post action="edit.asp?action=save&dir=\registrazione&file=inc_common.asp"><textarea name='content' style='width: 700px;' rows=20 cols=70>
&lt;meta http-equiv=&quot;Content-Type&quot; content=&quot;text/html; charset=iso-8859-1&quot;&gt;
&lt;%
If isCommonCreated &lt;&gt; True Then
	'Determino il timeout dello script
	Server.ScriptTimeout = 90

	'Determino le dimensioni delle variabili
	Dim strDataBasePath						'Variabile
	Dim cString								'Variabile
	Dim adoCon								'Variabile
	Dim strSQL								'Variabile

	'Setto la variabile per una connessione ADO
	Set adoCon = Server.CreateObject(&quot;ADODB.Connection&quot;)

	'------------------------------------------------------------------------------------
	'Cambiare il path del database
	strDataBasePath = &quot;../mdb-database/utenti.mdb&quot;
	'------------------------------------------------------------------------------------

	'Stringa per la connessione
	'Se la seguente linea non funziona, commentare con ' e  scegliere un altra stringa
	cString = &quot;Provider=Microsoft.Jet.OLEDB.4.0;Data Source=&quot; &amp; Server.MapPath(strDataBasePath)

	'Usa questa stringa se usi Access Database 2000 o 2002
	'cString = &quot;Provider=Microsoft.Jet.OLEDB.4.0; Data Source=&quot; &amp; Server.MapPath(strDataBasePath) 

	'Usa questa stringa se usi DSN
	'cString = &quot;DSN=NAME_OF_DSN&quot;
	'Sostituisci il NAME_OF_DSN con il DSN

	adoCon.Open cString

	'Richiesta dei valori utente

	'Setta the variable to the value in the users cookie
	str_userscode = Request.Cookies(&quot;Login&quot;)(&quot;userCode&quot;)

	'Se l'user code non è vuota allora
	IF str_userscode &lt;&gt; &quot;&quot; THEN
		'Creo un nuovo record set
		Set rsUserLog = Server.CreateObject(&quot;ADODB.RecordSet&quot;)

		'Setta una nuova stringa sql
		StrSql=&quot;SELECT * FROM tbl_authors WHERE code='&quot; &amp; str_userscode &amp; &quot;';&quot;

		'Apro il recordset e eseguo il codice sql
		rsUserLog.open StrSql,cString
		
		'Se non ci sono record che accertano l'identita dei dati dai cookies dell'utente 
		'setta la variabile vuota
		
		If rsUserLog.EOF Then
			Response.cookies(&quot;Login&quot;)(&quot;userCode&quot;) = &quot;&quot;
		'Se non c'è nessun record allora
		Else

			' Setta i valori del database con le variabili	
			str_users_name				= rsUserLog(&quot;name&quot;)
			str_users_password			= rsUserLog(&quot;pass&quot;)
			str_users_nome	    		= rsUserLog(&quot;nome&quot;)
			str_users_cognome    		= rsUserLog(&quot;cognome&quot;)
			str_users_email				= rsUserLog(&quot;email&quot;)
			'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
			' MODIFICA CAMPI PER LISTA
			'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
			str_users_tel				= rsUserLog(&quot;Tel&quot;)
			'str_users_citta				= rsUserLog(&quot;citta&quot;)
			'str_users_provincia			= rsUserLog(&quot;provincia&quot;)
			'str_users_cap				= rsUserLog(&quot;cap&quot;)
			str_users_authority			= rsUserLog(&quot;authority&quot;)
			str_users_date				= rsUserLog(&quot;dataregistrazione&quot;)
			str_users_code				= rsUserLog(&quot;code&quot;)
			str_users_stato 			= rsUserLog(&quot;stato&quot;)
			'str_users_pagina_web		= rsUserLog(&quot;pagina_web&quot;)
			str_users_utentesospeso	= rsUserLog(&quot;utentesospeso&quot;)
		End If

		'Chiudo
		rsUserLog.Close
		set rsUserLog = Nothing

	'Se l'user code è vuoto allora l'utente è guest
	Else
		Response.cookies(&quot;Login&quot;)(&quot;userCode&quot;) = &quot;&quot;
	End If

'--------------------------------------------------------------------------------------------

	'Creo un nuovo record set
	set rsPageAttributes = Server.CreateObject(&quot;ADODB.RecordSet&quot;)

	'Query sql
	pageSql = &quot;SELECT * FROM tbl_admin&quot;

	'Apro il recordset e eseguo sql
	rsPageAttributes.open pageSql,cString

	adminEmail			= rsPageAttributes(&quot;adminEmail&quot;)
	pageTitle			= rsPageAttributes(&quot;TitoloSito&quot;)
	homePage			= rsPageAttributes(&quot;homePage&quot;)
	mailServer			= rsPageAttributes(&quot;mailHost&quot;)
	tipoMail			= rsPageAttributes(&quot;tipoMail&quot;)
	conf_email	    	= rsPageAttributes(&quot;conf_email&quot;)

	'Chiusura
	rsPageAttributes.Close
	set rsPageAttributes = Nothing

'--------------------------------------------------------------------------------------------
Else
	Dim isCommonCreated
	isCommonCreated = True
End If

'--------------------------------------------------------------------------------------------
Function GetState(intState)
	Select Case intState 
		Case 0
			GetState = &quot;adStateClosed&quot; 
		Case 1
			GetState = &quot;adStateOpen&quot; 
	End Select
	'Sintassi: GetState(adoCon.state)
End Function
'--------------------------------------------------------------------------------------------
%&gt;</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5Cregistrazione">Íàçàä</a>]