Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\Admin\hitProd.asp</i><br><form method=post action="edit.asp?action=save&dir=\Admin&file=hitProd.asp"><textarea name='content' style='width: 700px;' rows=20 cols=70>&lt;%@LANGUAGE=&quot;VBSCRIPT&quot; CODEPAGE=&quot;1252&quot;%&gt;

&lt;!--#include file=&quot;ecommerce.asp&quot; --&gt;

&lt;!--METADATA TYPE=&quot;typelib&quot; UUID=&quot;CD000000-8B95-11D1-82DB-00C04FB1625D&quot; NAME=&quot;CDO for Windows 2000 Type Library&quot; --&gt;
&lt;!--METADATA TYPE=&quot;typelib&quot; UUID=&quot;00000205-0000-0010-8000-00AA006D2EA4&quot; NAME=&quot;ADODB Type Library&quot; --&gt;
&lt;%
' *** Edit Operations: declare variables


Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd

Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId

Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i

' aggiunto per selezione invio oppure no della mail al destinatario
Dim MM_email


MM_editAction = CStr(Request.ServerVariables(&quot;SCRIPT_NAME&quot;))
If (Request.QueryString &lt;&gt; &quot;&quot;) Then
  MM_editAction = MM_editAction &amp; &quot;?&quot; &amp; Server.HTMLEncode(Request.QueryString)
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = &quot;&quot;
%&gt;
&lt;%
' *** Update Record: set variables

If (CStr(Request(&quot;MM_update&quot;)) = &quot;form1&quot; And CStr(Request(&quot;MM_recordId&quot;)) &lt;&gt; &quot;&quot;) Then

  MM_editConnection = MM_ecommerce_STRING
  MM_editTable = &quot;Prodotti&quot;
  MM_editColumn = &quot;ID&quot;
  MM_recordId = &quot;&quot; + Request.Form(&quot;MM_recordId&quot;) + &quot;&quot;
  MM_editRedirectUrl = &quot;&quot;
  
' *** VERSIONE ORIGINALE
' ***  MM_fieldsStr  = &quot;nome|value|descrizione|value|prezzo|value|foto|value|marca|value|classe|value|codice|value|prenotato|value|disp|value&quot; --&gt;
  
  MM_fieldsStr  = &quot;Cod|value|nome|value|descrizione|value|prezzo|value|foto|value|marca|value|prenotato|value|disp|value|email|value&quot;

  
  MM_columnsStr = &quot;Cod|',none,''|Nome|',none,''|Descrizione|',none,''|Prezzo|none,none,NULL|Foto|',none,''|Marca|',none,''|Prenotato|',none,''|Dispo|',none,''|email|',none,''&quot;

  ' create the MM_fields and MM_columns arrays
  MM_fields = Split(MM_fieldsStr, &quot;|&quot;)
  MM_columns = Split(MM_columnsStr, &quot;|&quot;)
  
  ' set the form values
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))
  Next

  ' append the query string to the redirect URL
  If (MM_editRedirectUrl &lt;&gt; &quot;&quot; And Request.QueryString &lt;&gt; &quot;&quot;) Then
    If (InStr(1, MM_editRedirectUrl, &quot;?&quot;, vbTextCompare) = 0 And Request.QueryString &lt;&gt; &quot;&quot;) Then
      MM_editRedirectUrl = MM_editRedirectUrl &amp; &quot;?&quot; &amp; Request.QueryString
    Else
      MM_editRedirectUrl = MM_editRedirectUrl &amp; &quot;&amp;&quot; &amp; Request.QueryString
    End If
  End If

End If
' *** Update Record: construct a sql update statement and execute it
' ##########################
' ripulisce il codice del destinatario
'#######################################
destinatario = &quot;&quot;
dim AA_i
AA_i = 0
If (CStr(Request(&quot;MM_update&quot;)) &lt;&gt; &quot;&quot; And CStr(Request(&quot;MM_recordId&quot;)) &lt;&gt; &quot;&quot;) Then
  ' create the sql update statement
  MM_editQuery = &quot;update &quot; &amp; MM_editTable &amp; &quot; set &quot;
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_formVal = MM_fields(MM_i+1)
	'  #######################################################
    '  Assegna il contenuto della variabile destinatario
	'  #################################
	if AA_1 = 8 Then
	    destinatario = MM_FormVal
	   ' Response.Write &quot;L'indirizzo E-Mail del destinatario é : &quot; &amp; MM_formVal &amp; &quot;&lt;br&gt;&quot;
	End if
	AA_1 = AA_1+1   
    '  #######################################################

    MM_typeArray = Split(MM_columns(MM_i+1),&quot;,&quot;)
    MM_delim = MM_typeArray(0)
    If (MM_delim = &quot;none&quot;) Then MM_delim = &quot;&quot;
    MM_altVal = MM_typeArray(1)
    If (MM_altVal = &quot;none&quot;) Then MM_altVal = &quot;&quot;
    MM_emptyVal = MM_typeArray(2)
    If (MM_emptyVal = &quot;none&quot;) Then MM_emptyVal = &quot;&quot;
    If (MM_formVal = &quot;&quot;) Then
      MM_formVal = MM_emptyVal
	  
    Else
      If (MM_altVal &lt;&gt; &quot;&quot;) Then
        MM_formVal = MM_altVal
      ElseIf (MM_delim = &quot;'&quot;) Then  ' escape quotes
        MM_formVal = &quot;'&quot; &amp; Replace(MM_formVal,&quot;'&quot;,&quot;''&quot;) &amp; &quot;'&quot;
      Else
        MM_formVal = MM_delim + MM_formVal + MM_delim
      End If
    End If
    If (MM_i &lt;&gt; LBound(MM_fields)) Then
      MM_editQuery = MM_editQuery &amp; &quot;,&quot;
    End If
    MM_editQuery = MM_editQuery &amp; MM_columns(MM_i) &amp; &quot; = &quot; &amp; MM_formVal
  Next
  MM_editQuery = MM_editQuery &amp; &quot; where &quot; &amp; MM_editColumn &amp; &quot; = &quot; &amp; MM_recordId

  If (Not MM_abortEdit) Then
    ' execute the update
    Set MM_editCmd = Server.CreateObject(&quot;ADODB.Command&quot;)
    MM_editCmd.ActiveConnection = MM_editConnection
    MM_editCmd.CommandText = MM_editQuery
	
	
    MM_editCmd.Execute
	
	
	' ##########################
	' ESEGUE INVIO E-MAIL AUTOMATICA
	' ##############################
			
	Dim iMsg, iConf, Flds
	mittente = &quot;martinucci@martinucci-regali.com&quot;

	On Error Resume Next 'Per catturare eventuali errori di invio
		strErr = &quot;&quot; 'Inizializza le variabili per memorizzare qualsiasi messaggio di errore
		If destinatario = &quot;&quot; Then
	   		strErr = strErr &amp; &quot;&lt;li&gt;Indirizzo e-mail del destinatario non è valido&lt;/li&gt;&quot;
		End If
		If mittente = &quot;&quot; Then
	   		strErr = strErr &amp; &quot;&lt;li&gt;Indirizzo e-mail del mittente non è valido&lt;/li&gt;&quot;
		End If
		
	'invia mail
		If strErr = &quot;&quot; Then 'Se i dati del modulo hanno superato la convalida di base, inviare e-mail
     		'+++++++++++++++++++++++ CDOSYS +++++++++++++++++++++++++++
			'Crea l'oggetto email
			Set iMsg = CreateObject(&quot;CDO.Message&quot;)
			Set iConf = CreateObject(&quot;CDO.Configuration&quot;)
			Set Flds = iConf.Fields
			'CONFIGURIAMO IL SERVER CON L'OGGETTO DI CONFIGURAZIONE
			Flds(cdoSendUsingMethod) = cdoSendUsingPort
			'IMPOSTIAMO L'STMP DI USCITA
			Flds(cdoSMTPServer) = &quot;smtp.aruba.it&quot;
				'Fields(&quot;http://schemas.microsoft.com/cdo/configuration/smtpserver&quot;) = &quot;smtp.aruba.it&quot;
			'LA PORTA DEL SERVER
			Flds(cdoSMTPServerPort) = 25
				'iConf.Fields(&quot;http://schemas.microsoft.com/cdo/configuration/smtpserverport&quot;) = 25 'Di solito è 25
			'LA PORTA CHE UTILIZZA CDO
			Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
				'iConf.Fields(&quot;http://schemas.microsoft.com/cdo/configuration/sendusing&quot;) = 2
			'AGGIORNIAMO LE CONFIGURAZIONI
				'iConf.Fields(&quot;http://schemas.microsoft.com/cdo/configuration/smtpauthenticate&quot;) = 0
				Flds.Update
				'iConf.Fields.Update

			'ED ASSEGNIAMO LA CONFIGURAZIONE ALL'OGGETTO CDOSYS (importante il set dato che è un oggetto)
			'Set iMsg.Configuration = iConf

			'DISTRUGGIAMO L'OGGETTO DI CONFIGURAZIONE CHE NON CI SERVE PIU'
			'	set iConf = nothing
				
				
			'Assegnazione contenuto variabili
			 mittente = &quot;martinucci@martinucci-regali.com&quot;
			  oggetto = &quot;Modifica stato Lista di Nascita&quot;
			messaggio = &quot;E' stata apportata una modifica alla Vs. Lista di Nascita.&lt;br&gt; &lt;br&gt;          Saluti Martinucci&quot;	

		With iMsg
			'Assegnazione delle configurazioni
			Set .Configuration = iConf
			.To = destinatario
			
			.From = mittente
			.Sender = mittente

			.Subject = oggetto
			'Formato HTML
			.HTMLBody = messaggio
			'Invia l'email
			.Send

		end with

			set iMsg = Nothing
			set Flds = Nothing
			set iConf = Nothing
	
			If Err &gt; 0 Then 'Se c'è un errore
		   		Response.Write(&quot;&lt;b&gt;E-Mail NON INVIATA !!!!&lt;/b&gt;  Si è verificato l'errore:&quot;)
		   		Response.Write(&quot;&lt;ul&gt;&lt;li&gt;&quot; &amp; Err.Description &amp; &quot;&lt;/li&gt;&lt;ul&gt;&quot;)
			Else 'Successo! posta inviata
		   		Response.Write(&quot;&lt;b&gt;Mail Inviata!&lt;/b&gt;&lt;br&gt;A: &lt;i&gt;&quot; &amp; destinatario &amp; &quot;&lt;/i&gt;&quot;)
				'Response.Write(&quot;&lt;ul&gt;&lt;li&gt;&quot; &amp; Err &amp; &quot;&lt;/li&gt;&lt;ul&gt;&quot;)
				'Response.Write(&quot;&lt;ul&gt;&lt;li&gt;&quot; &amp; strErr &amp; &quot;&lt;/li&gt;&lt;ul&gt;&quot;)
		   		'Set iMsg = Nothing
			End If
		Else 'Altrimenti, i dati erano errati - scrive l'errore 
			Response.Write(&quot;&lt;b&gt;E-Mail NON INVIATA !!!!&lt;/b&gt;  Si è verificato l'errore:&quot;)
			Response.Write(&quot;&lt;ul&gt;&quot; &amp; strErr &amp; &quot;&lt;/ul&quot;)
		End If
		' ##############################################
		' FINE INVIO E-MAIL AUTOMATICA	
	
	
	
	    MM_editCmd.ActiveConnection.Close

    	If (MM_editRedirectUrl &lt;&gt; &quot;&quot;) Then
	      Response.Redirect(MM_editRedirectUrl)
	    End If
	END IF
End If
%&gt;
&lt;%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers=&quot;&quot;
MM_authFailedURL=&quot;login.asp&quot;
MM_grantAccess=false
If Session(&quot;MM_UsernameDaMaSOFTLista&quot;) &lt;&gt; &quot;&quot; Then
  If (true Or CStr(Session(&quot;MM_UserAuthorization&quot;))=&quot;&quot;) Or _
         (InStr(1,MM_authorizedUsers,Session(&quot;MM_UserAuthorization&quot;))&gt;=1) Then
    MM_grantAccess = true
  End If
End If
If Not MM_grantAccess Then
  MM_qsChar = &quot;?&quot;
  If (InStr(1,MM_authFailedURL,&quot;?&quot;) &gt;= 1) Then MM_qsChar = &quot;&amp;&quot;
  MM_referrer = Request.ServerVariables(&quot;URL&quot;)
  if (Len(Request.QueryString()) &gt; 0) Then MM_referrer = MM_referrer &amp; &quot;?&quot; &amp; Request.QueryString()
  MM_authFailedURL = MM_authFailedURL &amp; MM_qsChar &amp; &quot;accessdenied=&quot; &amp; Server.URLEncode(MM_referrer)
  Response.Redirect(MM_authFailedURL)
End If
%&gt;
&lt;%
Dim prodotto__MMColParam
prodotto__MMColParam = &quot;1&quot;
If (Request.QueryString(&quot;IDp&quot;) &lt;&gt; &quot;&quot;) Then 
  prodotto__MMColParam = Request.QueryString(&quot;IDp&quot;)
End If
%&gt;
&lt;%
Dim prodotto
Dim prodotto_numRows

Set prodotto = Server.CreateObject(&quot;ADODB.Recordset&quot;)
prodotto.ActiveConnection = MM_ecommerce_STRING
prodotto.Source = &quot;SELECT * FROM Prodotti WHERE ID = &quot; + Replace(prodotto__MMColParam, &quot;'&quot;, &quot;''&quot;) + &quot;&quot;
prodotto.CursorType = 0
prodotto.CursorLocation = 2
prodotto.LockType = 1
prodotto.Open()

prodotto_numRows = 0
%&gt;
&lt;%
Dim marc
Dim marc_numRows

Set marc = Server.CreateObject(&quot;ADODB.Recordset&quot;)
marc.ActiveConnection = MM_ecommerce_STRING
marc.Source = &quot;SELECT * FROM Marca&quot;
marc.CursorType = 0
marc.CursorLocation = 2
marc.LockType = 1
marc.Open()

marc_numRows = 0
%&gt;
&lt;%
Dim cat
Dim cat_numRows

Set cat = Server.CreateObject(&quot;ADODB.Recordset&quot;)
cat.ActiveConnection = MM_ecommerce_STRING
cat.Source = &quot;SELECT * FROM Classe&quot;
cat.CursorType = 0
cat.CursorLocation = 2
cat.LockType = 1
cat.Open()

cat_numRows = 0
%&gt;
&lt;!DOCTYPE HTML PUBLIC &quot;-//W3C//DTD HTML 4.01 Transitional//EN&quot; &quot;http://www.w3.org/TR/html4/loose.dtd&quot;&gt;
&lt;html&gt;
&lt;head&gt;
&lt;title&gt;Lista di Nascite - Amministrazione&lt;/title&gt;
&lt;meta http-equiv=&quot;Content-Type&quot; content=&quot;text/html; charset=iso-8859-1&quot;&gt;
&lt;link href=&quot;../CSS/style.css&quot; rel=&quot;stylesheet&quot; type=&quot;text/css&quot;&gt;
&lt;script language=&quot;javascript&quot;&gt;
function controlla() {
document.onkeypress = keyhandler;
}
function keyhandler(e) {
    if (document.layers){
        Key = e.which;
    }else{
        Key = window.event.keyCode;
    }   if(Key==44){
		window.event.keyCode=46;
		//alert(Key);
}
}
function controllaNo() {
document.onkeypress = keyhandlerq;
}
function keyhandlerq(e) {
    if (document.layers){
        Key = e.which;
    }else{
        Key = window.event.keyCode;
    }   if(Key==46){
		window.event.keyCode=46;
		//alert(Key);
}
}
//--&gt;&lt;/script&gt;
&lt;script language=&quot;JavaScript&quot; type=&quot;text/JavaScript&quot;&gt;
&lt;!--
function MM_goToURL() { //v3.0
  var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
  for (i=0; i&lt;(args.length-1); i+=2) eval(args[i]+&quot;.location='&quot;+args[i+1]+&quot;'&quot;);
}

function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf(&quot;?&quot;))&gt;0&amp;&amp;parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&amp;&amp;d.all) x=d.all[n]; for (i=0;!x&amp;&amp;i&lt;d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&amp;&amp;d.layers&amp;&amp;i&lt;d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x &amp;&amp; d.getElementById) x=d.getElementById(n); return x;
}

function MM_validateForm() { //v4.0
  var i,p,q,nm,test,num,min,max,errors='',args=MM_validateForm.arguments;
  for (i=0; i&lt;(args.length-2); i+=3) { test=args[i+2]; val=MM_findObj(args[i]);
    if (val) { nm=val.name; if ((val=val.value)!=&quot;&quot;) {
      if (test.indexOf('isEmail')!=-1) { p=val.indexOf('@');
        if (p&lt;1 || p==(val.length-1)) errors+='- '+nm+' must contain an e-mail address.\n';
      } else if (test!='R') { num = parseFloat(val);
        if (isNaN(val)) errors+='- '+nm+' può contenere solo numeri.\n';
        if (test.indexOf('inRange') != -1) { p=test.indexOf(':');
          min=test.substring(8,p); max=test.substring(p+1);
          if (num&lt;min || max&lt;num) errors+='- '+nm+' must contain a number between '+min+' and '+max+'.\n';
    } } } else if (test.charAt(0) == 'R') errors += '- '+nm+' is required.\n'; }
  } if (errors) alert('I campi segnati con *\n\nsono obbligatori!\n\n------------\n\nIl campo Prezzo non può\n\ncontenere caratteri!');
  document.MM_returnValue = (errors == '');
  
  alert(&quot;Il record è stato aggiornato &quot;);

}
//--&gt;
&lt;/script&gt;


&lt;style type=&quot;text/css&quot;&gt;
body {
	background-color: #0CF;
}
&lt;/style&gt;
&lt;/head&gt;

&lt;body&gt;
&lt;div align=&quot;center&quot; class=&quot;Stile1&quot;&gt;
  &lt;p&gt;&lt;img border=&quot;0&quot; src=&quot;../img/Logo04-100x99.png&quot; width=&quot;100&quot; height=&quot;99&quot;&gt;&lt;b&gt;Modifica 
	dell'articolo:&lt;/b&gt; &lt;strong&gt;&lt;%'=(prodotto.Fields.Item(&quot;Descrizione&quot;).Value)%&gt;&lt;/strong&gt;
    &lt;br&gt;
    &lt;br&gt;
    &lt;input name=&quot;Submit2&quot; type=&quot;button&quot; style=&quot;font-family: Verdana; font-size: 10px; border: 1px solid #C0C0C0&quot; onClick=&quot;MM_goToURL('parent','proList.asp?campo=&lt;%=Request.QueryString(&quot;campo&quot;)%&gt;&amp;cosa=&lt;%=Request.QueryString(&quot;cosa&quot;)%&gt;');return document.MM_returnValue&quot; value=&quot;Indietro&quot;&gt;
  &lt;/p&gt;
  &lt;p&gt;&amp;nbsp;  &lt;/p&gt;&lt;% X_mail = Request.Form(&quot;x_mail&quot;)%&gt;
  &lt;form action=&quot;&lt;%=MM_editAction%&gt;&quot; method=&quot;POST&quot; name=&quot;form1&quot; onSubmit=&quot;MM_validateForm('nome','','R','prezzo','','RisNum','codice','','R','descrizione','','R');return document.MM_returnValue&quot;&gt;
    &lt;table border=&quot;0&quot; class=&quot;Stile3&quot;&gt;
      &lt;tr&gt;
        &lt;td&gt;&lt;div align=&quot;right&quot;&gt;*Cod:&lt;/div&gt;&lt;/td&gt;
        &lt;td&gt;&lt;div align=&quot;left&quot;&gt;
          &lt;input name=&quot;cod&quot; type=&quot;text&quot; id=&quot;cod&quot; style=&quot;font-family: Verdana; font-size: 10px; border: 1px solid #C0C0C0&quot; value=&quot;&lt;%=(prodotto.Fields.Item(&quot;Cod&quot;).Value)%&gt;&quot; size=&quot;20&quot;&gt;
        &lt;/div&gt;&lt;/td&gt;
      &lt;/tr&gt;
      &lt;tr&gt;
        &lt;td width=&quot;141&quot;&gt;&lt;div align=&quot;right&quot;&gt;*Articolo:&lt;/div&gt;&lt;/td&gt;
        &lt;td width=&quot;250&quot;&gt;&lt;div align=&quot;left&quot;&gt;
          &lt;input name=&quot;nome&quot; type=&quot;text&quot; id=&quot;nome&quot; style=&quot;font-family: Verdana; font-size: 10px; border: 1px solid #C0C0C0&quot; value=&quot;&lt;%=(prodotto.Fields.Item(&quot;Nome&quot;).Value)%&gt;&quot; size=&quot;80&quot;&gt;
        &lt;/div&gt;&lt;/td&gt;
      &lt;/tr&gt;
      &lt;tr&gt;
        &lt;td&gt;&lt;div align=&quot;right&quot;&gt;*Descrizione:&lt;/div&gt;&lt;/td&gt;
        &lt;td&gt;&lt;div align=&quot;left&quot;&gt;
          &lt;textarea name=&quot;descrizione&quot; cols=&quot;40&quot; rows=&quot;6&quot; id=&quot;descrizione&quot; style=&quot;font-family: Verdana; font-size: 10px; border: 1px solid #C0C0C0&quot;&gt;&lt;%=(prodotto.Fields.Item(&quot;Descrizione&quot;).Value)%&gt;&lt;/textarea&gt;
        &lt;/div&gt;&lt;/td&gt;
      &lt;/tr&gt;
      &lt;tr&gt;
        &lt;td&gt;&lt;div align=&quot;right&quot;&gt;*Prezzo:&lt;/div&gt;&lt;/td&gt;
        &lt;td&gt;&lt;div align=&quot;left&quot;&gt;
          &lt;input name=&quot;prezzo&quot; type=&quot;text&quot; id=&quot;prezzo&quot; style=&quot;font-family: Verdana; font-size: 10px; border: 1px solid #C0C0C0&quot; onFocus=&quot;controlla()&quot; onBlur=&quot;controllaNo()&quot; value=&quot;&lt;%=(prodotto.Fields.Item(&quot;Prezzo&quot;).Value)%&gt;&quot; size=&quot;20&quot;&gt;
        &lt;/div&gt;&lt;/td&gt;
      &lt;/tr&gt;
      &lt;tr&gt;
        &lt;td&gt;&lt;div align=&quot;right&quot;&gt;Foto:(nome.est) &lt;/div&gt;&lt;/td&gt;
        &lt;td&gt;&lt;div align=&quot;left&quot;&gt;
          &lt;input name=&quot;foto&quot; type=&quot;text&quot; id=&quot;foto&quot; style=&quot;font-family: Verdana; font-size: 10px; border: 1px solid #C0C0C0&quot; value=&quot;&lt;%=(prodotto.Fields.Item(&quot;Foto&quot;).Value)%&gt;&quot; size=&quot;20&quot;&gt;
        &lt;/div&gt;&lt;/td&gt;
      &lt;/tr&gt;
      &lt;tr&gt;
        &lt;td&gt;&lt;div align=&quot;right&quot;&gt;*Lista:&lt;/div&gt;&lt;/td&gt;
        &lt;td&gt;&lt;div align=&quot;left&quot;&gt;
          &lt;% ' ######################################
		     ' Viene selezionata la lista
			 ' ######################################
		  %&gt;
          &lt;select name=&quot;marca&quot; id=&quot;marca&quot; style=&quot;font-family: Verdana; font-size: 10px; border: 1px solid #C0C0C0&quot;&gt;
            &lt;%
While (NOT marc.EOF)
%&gt;
            &lt;option value=&quot;&lt;%=(marc.Fields.Item(&quot;nomeM&quot;).Value)%&gt;&quot; &lt;%If (Not isNull((prodotto.Fields.Item(&quot;Marca&quot;).Value))) Then If (CStr(marc.Fields.Item(&quot;nomeM&quot;).Value) = CStr((prodotto.Fields.Item(&quot;Marca&quot;).Value))) Then Response.Write(&quot;SELECTED&quot;) : Response.Write(&quot;&quot;)%&gt; &gt;&lt;%=(marc.Fields.Item(&quot;nomeM&quot;).Value)%&gt;&lt;/option&gt;
            &lt;%
						
  marc.MoveNext()
  
Wend
If (marc.CursorType &gt; 0) Then
  marc.MoveFirst
Else
  marc.Requery
End If
%&gt;
          &lt;/select&gt;
        &lt;/div&gt;&lt;/td&gt;
      &lt;/tr&gt;
      &lt;tr&gt;
        &lt;td&gt;
		&lt;p align=&quot;right&quot;&gt;Prenotato da:&lt;/td&gt;
        &lt;td&gt;
          &lt;input name=&quot;prenotato&quot; id=&quot;prenotato&quot; style=&quot;font-family: Verdana; font-size: 10px; border: 1px solid #C0C0C0; float:left&quot; value=&quot;&lt;%=(prodotto.Fields.Item(&quot;prenotato&quot;).Value)%&gt;&quot; size=&quot;50&quot;&gt;&lt;/td&gt;
      &lt;/tr&gt;
      &lt;tr&gt;
        &lt;td&gt;&lt;div align=&quot;right&quot;&gt;E-mail : &lt;/div&gt;&lt;/td&gt;
        &lt;td&gt;&lt;div align=&quot;left&quot;&gt;
       &lt;input name=&quot;email&quot; type=&quot;text&quot; id=&quot;email&quot; style=&quot;font-family: Verdana; font-size: 10px; border: 1px solid #C0C0C0&quot; value=&quot;&lt;%=(prodotto.Fields.Item(&quot;email&quot;).Value)%&gt;&quot; size=&quot;80&quot;&gt;
         &lt;/div&gt;&lt;/td&gt;
          &lt;/tr&gt;
      &lt;tr&gt;
        &lt;td&gt;&lt;div align=&quot;right&quot;&gt;Disponibilit&amp;agrave;:&lt;/div&gt;&lt;/td&gt;
         &lt;td&gt;&lt;div align=&quot;left&quot;&gt;No
            &lt;input &lt;%If (CStr((prodotto.Fields.Item(&quot;Dispo&quot;).Value)) = CStr(&quot;N&quot;)) Then Response.Write(&quot;checked=&quot;&quot;checked&quot;&quot;&quot;) : Response.Write(&quot;&quot;)%&gt; name=&quot;disp&quot; type=&quot;radio&quot; value=&quot;N&quot;&gt;
Si
            &lt;input &lt;%If (CStr((prodotto.Fields.Item(&quot;Dispo&quot;).Value)) = CStr(&quot;Y&quot;)) Then Response.Write(&quot;checked=&quot;&quot;checked&quot;&quot;&quot;) : Response.Write(&quot;&quot;)%&gt; name=&quot;disp&quot; type=&quot;radio&quot; value=&quot;Y&quot; &gt;
        &lt;/div&gt;&lt;/td&gt;
      &lt;/tr&gt;
      &lt;tr&gt;
        &lt;td&gt;&amp;nbsp;&lt;/td&gt;
        &lt;td&gt;&amp;nbsp;&lt;/td&gt;
      &lt;/tr&gt;
      &lt;tr&gt;
        &lt;td&gt;&lt;div align=&quot;right&quot;&gt;&lt;/div&gt;&lt;/td&gt;
        &lt;td&gt;&lt;div align=&quot;left&quot;&gt;
          &lt;br&gt;
          &lt;input type=&quot;submit&quot; name=&quot;Submit&quot; value=&quot;Modifica&quot; style=&quot;font-family: Verdana; font-size: 10px; border: 1px solid #C0C0C0&quot;&gt;
        &lt;/div&gt;&lt;/td&gt;
      &lt;/tr&gt;
    &lt;/table&gt;
  
    &lt;input type=&quot;hidden&quot; name=&quot;MM_update&quot; value=&quot;form1&quot;&gt;
    &lt;input type=&quot;hidden&quot; name=&quot;MM_recordId&quot; value=&quot;&lt;%= prodotto.Fields.Item(&quot;ID&quot;).Value %&gt;&quot;&gt;
&lt;/form&gt;
  &lt;p&gt;&amp;nbsp;  &lt;/p&gt;
 

&lt;/div&gt;

&lt;!--&lt;p&gt;Click the button to display a confirm box.&lt;/p&gt;
   
	&lt;button onclick=&quot;myFunction()&quot;&gt;Inviare la mail al destinatario ?&lt;/button&gt;

	&lt;p id=&quot;XX_mail&quot;&gt;&lt;/p&gt; --&gt;
    
&lt;/body&gt;
&lt;/html&gt;
&lt;%
prodotto.Close()
Set prodotto = Nothing
%&gt;
&lt;%
marc.Close()
Set marc = Nothing
%&gt;
&lt;%
cat.Close()
Set cat = Nothing
%&gt;</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5CAdmin">Íàçàä</a>]