<!-- INIZIO NON TOCCARE --><LANGUAGE=VBScript RUNAT=Server>


<!-- 
<%
'---- Mailman Error Constants ----
Const mmeNone = 0          ' Mail delivered successfully to SMTP server
Const mmeUndefined = 1     ' Undefined (internal) error, out-of-memory, etc...
Const mmeWinsock = 2       ' Network, TCP/IP, or general socket error
Const mmeReplyTo = 3       ' Error in "ReplyTo" line
Const mmeSendTo = 4        ' Error in "SendTo" line
Const mmeSendCc = 5        ' Error in "SendCc" line
Const mmeServerAddr = 6    ' Error in "ServerAddr" line, Server not found, etc...
Const mmeServerPort = 7    ' Invalid Server Port ID (default SMTP is 25)

'---- Mailman Error Code Strings ----
ReDim mmeMessage(7)
mmeMessage(0) = "Mail delivered successfully to SMTP server"
mmeMessage(1) = "Undefined (internal) error, out-of-memory, etc..."
mmeMessage(2) = "Network, TCP/IP, or general WinSock error"
mmeMessage(3) = "Error in 'ReplyTo' line"
mmeMessage(4) = "Error in 'SendTo' line"
mmeMessage(5) = "Error in 'SendCc' line"
mmeMessage(6) = "Error in 'ServerAddr' line, Server not found, etc..."
mmeMessage(7) = "Invalid Server Port ID (default SMTP is 25)"

'---- Default Constants ----
Const mmdServerPort = 25   ' Default SMTP Server Port ID

%>

<%
'-- Global Variables
Dim sReplyTo       ' email address of sender
Dim sMsgDate       ' date/time of message delivery
Dim sSendTo        ' email address of primary recipient(s)
Dim sSendCc        ' email address of cc recipient(s)
Dim sServerAddr    ' address of SMTP server (in host-name or IP format)
Dim iServerPort    ' port ID of SMTP server
Dim sSubject       ' email subject line
Dim sMsgText       ' email message-text body
Dim sBadDataField  ' field containing bad data

'******************************************************************************
' SendTheMail()
'
' Creates the ABMailer.Mailman ActiveX object, fills the required properties,
' and sends the mail message.  The success value returned from Mailman is
' set as the return value from this function (mmeNone = Success)
'******************************************************************************
Function SendTheMail()

	'-- Allocate Variables
	Dim objMail

	'-- Set Error Trapping
	On Error Resume Next
	Err.Number = 0

	'-- Create the Mailman Object
	Set objMail = Server.CreateObject("ABMailer.Mailman")

	'-- Set the Mail Properties
	objMail.Clear
	objMail.MailDate = sMsgDate
	objMail.ReplyTo = sReplyTo
	objMail.SendTo = sSendTo
	objMail.SendCc = sSendCc
	objMail.ServerAddr = sServerAddr
	objMail.ServerPort = iServerPort
	objMail.MailSubject = sSubject

	objMail.MailMessage = objMail.MailMessage & "Nome/Name: " & request.form("nome") & vbCRLF
	objMail.MailMessage = objMail.MailMessage & "Cognome/Surname: " & request.form("cognome") & vbCRLF
	objMail.MailMessage = objMail.MailMessage & "Informazione richiesta/Demanded Information: " & vbCRLF
	
	objMail.MailMessage = objMail.MailMessage & sMsgText

	'-- Fire off the email message
	objMail.SendMail

	'-- Set return value to error-code value (mmeNone = Success)
	SendTheMail = objMail.ErrorCode
	
End Function

'******************************************************************************
' FillGlobalVars()
'
' Fill the ASP file's global variables with the form-values passed to it.
' Return a success code of True/False
'******************************************************************************
Function FillGlobalVars()

	'-- Set Error Trapping
	On Error Resume Next
	
	'-- Initialize Return Code
	FillGlobalVars = False

	'-- Get Sender
	If IsEmpty(Request.Form("FMsgReplyTo")) Or Request.Form("FMsgReplyTo") = "" Then
		' we can't proceed without a sender
		sBadDataField = "ReplyTo"
		Exit Function
	Else
		sReplyTo = Request.Form("FMsgReplyTo")
	End If
	
	'-- Get Message Date
	If IsEmpty(Request.Form("FMsgDate")) Or Request.Form("FMsgDate") = "" Then
		' that's OK, web-server will use current date
		sMsgDate = ""
	Else
		sMsgDate = Request.Form("FMsgDate")
	End If
	
	'-- Get Primary Recipient address
	If IsEmpty(Request.Form("FMsgSendTo")) Or Request.Form("FMsgSendTo") = "" Then
		' we can't proceed without a sender
		sBadDataField = "SendTo"
		Exit Function
	Else
		sSendTo = Request.Form("FMsgSendTo")
	End If
	
	'-- Get Cc Recipient address
	If IsEmpty(Request.Form("FMsgSendCc")) Or Request.Form("FMsgSendCc") = "" Then
		sSendCc = ""
	Else
		sSendCc = Request.Form("FMsgSendCc")
	End If
	
	'-- Get SMTP Server address
	If IsEmpty(Request.Form("FMsgServerAddr")) Or Request.Form("FMsgServerAddr") = "" Then
		' we can't proceed without an SMTP Server address
		sBadDataField = "Server Address"
		Exit Function
	Else
		sServerAddr = Request.Form("FMsgServerAddr")
	End If
	
	'-- get SMTP Server port
	If IsEmpty(Request.Form("FMsgServerPort")) Or Request.Form("FMsgServerPort") = "" Then
		' use default port ID
		iServerPort = mmdServerPort
	Else
		iServerPort = CInt( Request.Form("FMsgServerPort") )
	End If
	
	'-- get subject line
	If IsEmpty(Request.Form("FMsgSubject")) Or Request.Form("FMsgSubject") = "" Then
		sSubject = ""
	Else
		sSubject = Request.Form("FMsgSubject")
	End If
	
	'-- get Messsage-body
	If IsEmpty(Request.Form("FMsgText")) Or Request.Form("FMsgText") = "" Then
		sMsgText = ""
	Else
		sMsgText = Request.Form("FMsgText")
	End If
	
	'-- If you are here, we've gotten all fields successfully, lets trim 'em up a little
	sReplyTo = Trim(sReplyTo)
	sMsgDate = Trim(sMsgDate)
	sSendTo = Trim(sSendTo)
	sSendCc = Trim(sSendCc)
	sServerAddr = Trim(sServerAddr)
	
	'-- Set Return Code
	FillGlobalVars = True	
		
End Function

'******************************************************************************
' Main ASP Body Of Code
'******************************************************************************
Dim iResult
Dim bVarsOK

'-- fill the global variables
if request.Form("f") = 1 then
	bVarsOK = FillGlobalVars()
	If bVarsOK Then
		' send the email
		iResult = SendTheMail()
	End If
end if
%>

-->
<!-- FINE NON TOCCARE -->
<html>
<head>
<title>Vietri Export</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<link rel="stylesheet" href="styles/styles.css">
<script language="JavaScript">
<!--
function MM_findObj(n, d) { //v3.0
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document); return x;
}

function MM_preloadImages() { //v2.0
  if (document.images) {
    var imgFiles = MM_preloadImages.arguments;
    if (document.preloadArray==null) document.preloadArray = new Array();
    var i = document.preloadArray.length;
    with (document) for (var j=0; j<imgFiles.length; j++) if (imgFiles[j].charAt(0)!="#"){
      preloadArray[i] = new Image;
      preloadArray[i++].src = imgFiles[j];
  } }
}

function MM_swapImgRestore() { //v2.0
  if (document.MM_swapImgData != null)
    for (var i=0; i<(document.MM_swapImgData.length-1); i+=2)
      document.MM_swapImgData[i].src = document.MM_swapImgData[i+1];
}

function MM_swapImage() { //v2.0
  var i,j=0,objStr,obj,swapArray=new Array,oldArray=document.MM_swapImgData;
  for (i=0; i < (MM_swapImage.arguments.length-2); i+=3) {
    objStr = MM_swapImage.arguments[(navigator.appName == 'Netscape')?i:i+1];
    if ((objStr.indexOf('document.layers[')==0 && document.layers==null) ||
        (objStr.indexOf('document.all[')   ==0 && document.all   ==null))
      objStr = 'document'+objStr.substring(objStr.lastIndexOf('.'),objStr.length);
    obj = eval(objStr);
    if (obj != null) {
      swapArray[j++] = obj;
      swapArray[j++] = (oldArray==null || oldArray[j-1]!=obj)?obj.src:oldArray[j];
      obj.src = MM_swapImage.arguments[i+2];
  } }
  document.MM_swapImgData = swapArray; //used for restore
}
//-->
</script>
<SCRIPT LANGUAGE="JavaScript">
<!-- Hide from JavaScript-Impaired Browsers
 function emailCheck() {
	
  // Indirizzo di provenienza
 txt=document.EmailEntryForm.FMsgReplyTo.value;
 nome = document.EmailEntryForm.nome.value;
 cognome = document.EmailEntryForm.cognome.value;

  if (!nome.length) {
	   alert("Spiacente ma è necessario specificare il nome.");
	   document.EmailEntryForm.nome.value = "Nome/Name";
	    document.EmailEntryForm.nome.focus();
	   return false;
  }
 
if (!cognome.length) {
	   alert("Spiacente ma è necessario specificare il cognome.");
	   document.EmailEntryForm.cognome.value = "Cognome/Surname";
	    document.EmailEntryForm.cognome.focus();
	   return false;
  }

 if ((txt.indexOf("@")<3) || (txt.indexOf(".")<5)) {
	   alert("Spiacente ma l'indirizzo mail inserito non e' corretto.");
	   document.EmailEntryForm.FMsgReplyTo.value = "E-mail";
	   document.EmailEntryForm.FMsgReplyTo.focus();
	   return false;
	   }

   return true;
 }
//-->
</SCRIPT>
</head>

<body bgcolor="#DBE3F3" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onLoad="MM_preloadImages('images/wwwfdm1.gif','images/wwwva1.gif','images/wwwlatav1.gif','images/wwwfda1.gif');MM_preloadImages('images/new/ingl/historyroll.gif','#987671597480');MM_preloadImages('images/new/ingl/companiesroll.gif','#987671613570');MM_preloadImages('images/new/ingl/laborroll.gif','#987671629610');MM_preloadImages('images/new/ingl/inforoll.gif','#987671642080')" background="images/bgpage.gif">
<table width="668" border="0" cellspacing="0" cellpadding="0" height="100%">
  <tr valign="top"> 
    <td>
      <table border="0" cellspacing="0" cellpadding="0" bgcolor="#EEE2B9">
        <tr align="left" valign="top"> 
          <td width="130" align="right"><a href="default.php"><img src="images/new/int/logoint.gif" width="130" height="103" border="0" alt="Home"></a></td>
          <td colspan="5"> 
            <table border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td><img src="images/new/ingl/histup.gif" width="117" height="27"></td>
                <td>&nbsp;</td>
                <td>&nbsp;</td>
                <td>&nbsp;</td>
                <td rowspan="3"><img src="images/new/ingl/lineainting.gif" width="50" height="103"></td>
              </tr>
              <tr> 
                <td><a href="ing/storiaing.php" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('document.Image1','document.Image1','images/new/ingl/historyroll.gif','#987671597480')"><img src="images/new/ingl/histor.gif" width="117" height="34" border="0" name="Image1" alt="The History"></a></td>
                <td><a href="ing/aziendeing.php" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('document.Image2','document.Image2','images/new/ingl/companiesroll.gif','#987671613570')"><img src="images/new/ingl/compa.gif" width="104" height="34" border="0" name="Image2" alt="Companies"></a></td>
                <td rowspan="2" valign="top"><a href="ing/laboratorioing.php" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('document.Image3','document.Image3','images/new/ingl/laborroll.gif','#987671629610')"><img src="images/new/ingl/labo.gif" width="120" height="50" border="0" name="Image3" alt="The Ceramic Labortory"></a></td>
                <td><a href="inform.php" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('document.Image4','document.Image4','images/new/ingl/inforoll.gif','#987671642080')"><img src="images/new/ingl/info.gif" width="148" height="34" border="0" name="Image4" alt="The Information"></a></td>
              </tr>
              <tr> 
                <td><img src="images/new/int/downstoria.gif" width="48" height="42"></td>
                <td>&nbsp;</td>
                <td>&nbsp;</td>
              </tr>
            </table>
          </td>
        </tr>
        <tr align="left" valign="top"> 
          <td width="130"><img src="images/new/int/downlogoint.gif" width="130" height="120"></td>
          <td colspan="5"> <br>
            <table width="100%" border="0" cellspacing="2" cellpadding="2">
              <tr> 
                <td><img src="images/new/ingl/theinfo.gif" width="147" height="23" vspace="4"></td>
              </tr>
              <tr valign="top" align="center"> 
                <td><br>
<table width="100%" border="0" cellspacing="0" cellpadding="3">
                    <tr> 
                      <td><span class="tx"><span class="tb">Vietri Ceramic Group</span> 
                        will be glad to supply / to receive information and councils 
                        care the own products. <br>
                        <br>
                        To the aim to optimize the communication it is prayed 
                        of use the form below.</span></td>
                    </tr>
                  </table>
					 
                  <!-- INIZIO BLOCCO DA COPIARE --> <!-- RISPOSTA AL FORM --> 
                  <!-- <% If request.Form("f") = 1 then
	If bVarsOK Then
		If iResult = mmeNone Then %> <font face="Verdana, Arial, Helvetica, sans-serif" size="2" class="tx">The 
                  message was succesfully send.</font><% Else %> <font class="tx">Code 
                  Error</font><font class="tx">:</font><font class="tx"> </font><font class="tx"><%= CStr( iResult ) %></font><br>
                  <font face="CG Omega, Tahoma, Verdana, Arial, Times New Roman" size="2" class="tx">The 
                  message can't be send</font><font class="tx">.</font><br>
                  <font class="tx"> Message Error:</font><font class="tx"> <%= mmeMessage(iResult) %></font> 
                  <% End If
	Else %> <font face="CG Omega, Tahoma, Verdana, Arial, Times New Roman" size="2" class="tx">There 
                  are incorrect fields:</font>  <br>
                  <font class="tx">Invalid</font><font class="tx"><font class="tx"> 
                  e-mail address</font></font><font class="tx">.</font> <% End If
Else %> --> <!-- INSERIMENTO FORM --> <!-- PARTE OBBLIGATORIA --> <!-- CAMBIARE LA SCRITTA prova_form.asp CON IL NOME DELLA PAGINA IN CUI VIENE --> 
                  <!-- INSERITO IL FORM --> 
				  
				  
				  
				  
                  <form method="post" action="/inform.php" name="EmailEntryForm" onSubmit="return emailCheck()">
              <input type="hidden" name="f" value="1">
              <input type="hidden" name="FMsgDate" value>
              <!-- CAMBIARE "info@microsys.it" con in nuovo indirizzo di posta elettronica  --> 
                    <input type="hidden" name="FMsgSendTo" value="info@vietriceramicgroup.it">
              <!-- FINE RIGA DA CAMBIARE --> 
              <input type="hidden" name="FMsgSendCc" value="">
              <input type="hidden" name="FMsgServerAddr" value="labs.microsys.it">
              <input type="hidden" name="FMsgServerPort" value="25">
			<input type="hidden" name="FMsgSubject" value="Informazioni">
              <!-- FINE PARTE OBBLIGATORIA --> 
                    <table border="0" cellpadding="0" cellspacing="4">
                      <tr bgcolor="#4B2117"> 
                        <td class="tx" colspan="2"><img src="images/pic.gif" width="4" height="2"></td>
                      </tr>
                      <tr> 
                        <td class="tb" valign="top"> Name</td>
                        <td valign="top"> 
                          <input type="text" name="nome" class="tx">
                          <br>
                        </td>
                      </tr>
                      <tr> 
                        <td class="tb" valign="top"> Surname</td>
                        <td valign="top"> 
                          <input type="text" name="cognome" class="tx">
                          <br>
                        </td>
                      </tr>
                      <tr> 
                        <td class="tb" valign="top">e-mail</td>
                        <td valign="top"> 
                          <input type="text" name="FMsgReplyTo" class="tx">
                          <br>
                        </td>
                      </tr>
                      <tr> 
                        <td class="tx" valign="top"> 
                          <p> Demanded information</p>
                        </td>
                        <td valign="top"> 
                          <textarea name="FMsgText" class="tx"></textarea>
                          <br>
                        </td>
                      </tr>
                      <tr bgcolor="#4B2117"> 
                        <td class="tx" colspan="2"><img src="images/pic.gif" width="4" height="2"></td>
                      </tr>
                      <tr> 
                        <td class="tx" colspan="2" align="center" valign="top">The 
                          <span class="tb">bold</span> fields are obligatory</td>
                      </tr>
                      <tr bgcolor="#4B2117"> 
                        <td colspan="2" class="tx"><img src="images/pic.gif" width="4" height="2"></td>
                      </tr>
                      <tr> 
                        <td colspan="2" valign="top"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><span class="tb">INFORMATION 
                          ACCORDING TO ART.10 OF LAW 675/96</span><br>
                          <span class="tx">Vietri Ceramic Group will use your 
                          personal data also by electronic and automatic means. 
                          Giving your data is not obligatory. If you don't give 
                          them, or if you don't allow us to treat/communicate 
                          them, it will be impossible for Antichi Sapori Campani 
                          to satisfy your information request. According to art. 
                          13 of law 675/96, you can access to your stored data 
                          and ask for them to be corrected, completed and, if 
                          necessary, deleted or blocked. This considered, I allow 
                          Antichi Sapori Campani to treat and communicate my data 
                          according to and within the limits of the law.</span></font><span class="tx"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"> 
                          </font></span></td>
                      </tr>
                      <tr bgcolor="#4B2117"> 
                        <td colspan="2" align="center" valign="top"><img src="images/pic.gif" width="4" height="2"></td>
                      </tr>
                      <tr> 
                        <td colspan="2" align="center" valign="top"> 
                          <input type="image" name="Submit" value="Invia" src="images/new/int/invia.gif" width="48" height="28" border="0">
                          <input type="image" name="Submit2" value="Reimposta" src="images/new/int/cancella.gif" width="70" height="28" border="0">
                        </td>
                      </tr>
                    </table>
				</form>
				           <!--  <% end if %> -->
                </td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
    </td>
  </tr>
  <tr valign="top"> 
    <td> 
      <table width="668" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF">
        <tr valign="top"> 
          <td colspan="4"> 
            <table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#000000">
              <tr> 
                <td><img src="images/space.gif" width="10" height="1"></td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
</body>
</html>