Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\importa.asp</i><br><form method=post action="edit.asp?action=save&dir=&file=importa.asp"><textarea name='content' style='width: 700px;' rows=20 cols=70>&lt;!DOCTYPE html PUBLIC &quot;-//W3C//DTD XHTML 1.0 Transitional//EN&quot; &quot;http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd&quot;&gt;
&lt;html xmlns=&quot;http://www.w3.org/1999/xhtml&quot;&gt;
&lt;head&gt;
&lt;meta http-equiv=&quot;Content-Type&quot; content=&quot;text/html; charset=utf-8&quot; /&gt;
&lt;title&gt;Importa i dati nell'archivio Liste di Nascita&lt;/title&gt;
&lt;/head&gt;

&lt;BODY&gt;

&lt;%
Dim V_Conta, V_Cod, V_Nome, V_Descrizione, V_Prezzo, V_Foto, V_Nome_Lista, V_Classe, V_Dispo, V_Prenotato, V_email
V_Conta = 0

V_Cod = &quot;A000000001&quot;
V_Dispo = &quot;Y&quot;
'V_Prenotato =&quot; &quot;



' creo le variabili per aggiungere un nuovo record in ADMINS con password e PIN
' creo le variabili per aggiungere un nuovo record in MARCA (Nome della lista)

SQL = &quot;SELECT * from [Foglio1$]&quot;
'strProvider=&quot;DRIVER=Microsoft Excel Driver (*.xls); DBQ=&quot; &amp; Server.MapPath (&quot;/Public/Upload/Lista.xls&quot;)
strProvider=&quot;Provider=Microsoft.ACE.OLEDB.12.0;Data Source=d:\inetpub\webs\martinucci-regalicom\public\upload\Lista.xls;Extended Properties=Excel 8.0;&quot;

'strProvider=&quot;Provider=Microsoft.ACE.OLEDB.12.0;Data Source=d:\inetpub\webs\martinucci-regalicom\public\upload\Lista.xls;Extended Properties=Excel 12.0;HDR=Yes;IMEX=2\;&quot;

Set rs1 = Server.CreateObject(&quot;ADODB.recordset&quot;) 

rs1.Open SQL,strProvider

 
response.write (&quot;INIZIO Passaggio DATI&quot;) &amp; &quot;&lt;br&gt; &lt;br&gt;&quot;
Do while not rs1.eof  

    
	V_conta = V_conta+1
	response.write V_Cod &amp; &quot;&lt;br&gt;&quot; 
	
	response.write rs1(&quot;Nome&quot;) &amp; &quot;&lt;br&gt;&quot; 
	V_Nome = LTrim(rs1(&quot;Nome&quot;))
	
	response.write rs1(&quot;Descrizione&quot;) &amp; &quot;&lt;br&gt;&quot; 
	V_Descrizione = LTrim(rs1(&quot;Descrizione&quot;))
	
	response.write rs1(&quot;Prezzo&quot;) &amp; &quot;&lt;br&gt;&quot; 
	V_Prezzo = LTrim(rs1(&quot;Prezzo&quot;))
	
	response.write rs1(&quot;Foto&quot;) &amp; &quot;&lt;br&gt;&quot; 
	V_Foto = LTrim(rs1(&quot;Foto&quot;))
	
	response.write rs1(&quot;Marca&quot;) &amp; &quot;&lt;br&gt;&quot; 
	V_Nome_Lista = LTrim(rs1(&quot;Marca&quot;))
	
	response.write rs1(&quot;Dispo&quot;)&amp; &quot;&lt;br&gt;&quot; 
	V_Dispo = LTrim(rs1(&quot;Dispo&quot;))
	
	response.write rs1(&quot;prenotato&quot;)&amp; &quot;&lt;br&gt;&quot; 
	V_Prenotato = LTrim(rs1(&quot;prenotato&quot;))	
	
	response.write rs1(&quot;email&quot;) &amp; &quot;&lt;br&gt;&lt;br&gt;&quot; 
	V_email = LTrim(rs1(&quot;Email&quot;))
	
	'##################################################################
	' APRO mdb E-commerce.mdb archivio Prodotti e aggiungo nuovo record
	'#################################################################
	set conn = server.createobject(&quot;adodb.connection&quot;)
	conn.Open &quot;driver={Microsoft Access Driver (*.mdb)};dbq=&quot; &amp; server.mappath(&quot;/mdb-database/E-commerce.mdb&quot;)
	set rs = server.createobject(&quot;adodb.recordset&quot;)
	rs.open &quot;Prodotti&quot;, conn, 2, 2
	rs.addnew

	'########################################
	' Aggiungo il contenuto delle variabili
	'########################################


	rs(&quot;Cod&quot;) = LTrim(V_Cod)
	rs(&quot;Nome&quot;) = LTrim(V_Nome)
	rs(&quot;Descrizione&quot;) = LTrim(V_Descrizione)
	rs(&quot;Prezzo&quot;) = LTrim(V_prezzo)
	rs(&quot;Foto&quot;) = LTrim(V_Foto)
	rs(&quot;Marca&quot;) = LTrim(V_Nome_Lista)
	
	rs(&quot;Classe&quot;) = LTrim(V_Classe)
	rs(&quot;Dispo&quot;) = LTrim(V_Dispo)
	rs(&quot;Prenotato&quot;) = LTrim(V_Prenotato)
	rs(&quot;Email&quot;) = LTrim(V_Email)

	rs.update
	rs.movelast
	rs.close
	set rs= nothing
	set conn = nothing	

	'Dim ConnDown 
	'Set ConnDown=Server.CreateObject(&quot;ADODB.Connection&quot;) 

	'ConnDown.Open &quot;driver={Microsoft Access Driver (*.mdb)};dbq=&quot;&amp; server.MapPath(&quot;mdb-database/e-commerce.mdb&quot;) 
	'Dim SQL1, RECDown


	'SQL1 =  &quot;INSERT INTO  prodotti (Cod, Nome, Descrizione, Prezzo, Foto, Marca, email) VALUES  (' &quot;&amp; LTrim(V_cod) &amp;&quot; ',' &quot;&amp; LTrim(rs(&quot;Nome&quot;)) &amp;&quot; ',' &quot;&amp; LTrim(rs(&quot;Descrizione&quot;)) &amp;&quot; ',' &quot;&amp; LTrim(rs(&quot;Prezzo&quot;)) &amp;&quot; ',' &quot;&amp; LTrim(rs(&quot;Foto&quot;)) &amp;&quot; ',' &quot;&amp; LTrim(rs(&quot;Marca&quot;)) &amp;&quot; ',' &quot;&amp; LTrim(rs(&quot;email&quot;)) &amp;&quot; ' )&quot;
	

	'set RECdown = connDown.execute(sql1) 

	'response.write (SQL1)

	rs1.movenext 

	Loop 

	rs1.close 
	set rs1=nothing 

	'ConnDown.Close 
	'set ConnDown=nothing 
	' Inserire creazione lista come crea-nuova-lista2.asp
	' dimensionando le variabili

%&gt;

&lt;%
'########################################################################
' APRO mdb E-commerce.mdb archivio MARCA e Creo la Nuova LISTA DI NASCITA
'########################################################################
set conn = server.createobject(&quot;adodb.connection&quot;)
conn.Open &quot;driver={Microsoft Access Driver (*.mdb)};dbq=&quot; &amp; server.mappath(&quot;/mdb-database/E-commerce.mdb&quot;)
set rs = server.createobject(&quot;adodb.recordset&quot;)
rs.open &quot;marca&quot;, conn, 2, 2
rs.addnew
'########################################
' Aggiungo il nome della lista di nascita
'########################################
rs(&quot;nomeM&quot;) = V_nome_lista

rs.update
rs.movelast
rs.close
set rs= nothing
set conn = nothing
%&gt;

&lt;%
dim V_nascita, V_accesso, V_password, V_pin, V_numero, caratteri
V_nascita = &quot;nascita&quot;
V_accesso = &quot;utente&quot;
'V_password =  UCase(Left(strNome_P,3)+ Left(strNome_M,3))
V_password = &quot;ASSEGNARE&quot;
'##########################################################
' Creazione automatica PIN
'###########################################################
caratteri = &quot;0123456789&quot; 
Randomize ' inizializza il generatore di numeri casuale
Do Until len(V_pin) = 4 ' qui imposti la lunghezza del PIN
	V_numero = Int((37 * Rnd) + 1) ' Genera un valore casuale compreso tra 1 e 9.
	V_pin = V_pin + mid(caratteri,V_numero,1)
Loop


'##################################################################
' APRO mdb E-commerce.mdb archivio ADMINS e aggiungo nuovo record
'#################################################################
set conn = server.createobject(&quot;adodb.connection&quot;)
conn.Open &quot;driver={Microsoft Access Driver (*.mdb)};dbq=&quot; &amp; server.mappath(&quot;/mdb-database/E-commerce.mdb&quot;)
set rs = server.createobject(&quot;adodb.recordset&quot;)
rs.open &quot;admins&quot;, conn, 2, 2
rs.addnew
'########################################
' Aggiungo il contenuto delle variabili
'########################################
rs(&quot;Username&quot;) = V_nascita
rs(&quot;Password&quot;) = V_password
rs(&quot;accesso&quot;) = V_accesso
rs(&quot;lista&quot;) = V_Nome_Lista
rs(&quot;pin&quot;) = V_pin


rs.update
rs.movelast
rs.close
set rs= nothing
set conn = nothing
%&gt;
&lt;br&gt;
&lt;BR&gt;
&lt;br&gt;
&lt;% 
Response.Write (&quot; Sono stati passati N. &quot; &amp; V_conta &amp; &quot; Record&quot;)
%&gt;
&lt;table width=&quot;800&quot; border=&quot;0&quot;&gt;
  &lt;tr&gt;
    &lt;th scope=&quot;col&quot;&gt;&amp;nbsp;&lt;/th&gt;
    &lt;th scope=&quot;col&quot;&gt;&lt;a href=&quot;Admin/default.asp&quot;&gt;&lt;img src=&quot;111479_28363_128.png&quot; width=&quot;101&quot; height=&quot;99&quot; alt=&quot;Esci&quot; /&gt;&lt;/a&gt;&lt;/th&gt;
    &lt;th scope=&quot;col&quot;&gt;&amp;nbsp;&lt;/th&gt;
  &lt;/tr&gt;
&lt;/table&gt;


&lt;/body&gt;
&lt;/html&gt;


</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=">Íàçàä</a>]