Ciao a tutti,
uso il form cdosys scaricato da aruba che riporto sotto, avrei una necessità: è possibile modificarlo in modo che se un campo non obbligatorio viene lasciato vuoto, nella mail che ricevo compaia comunque, in corrispondenza di tale campo, un testo, tipo non compilato?
Grazie per l'attenzione.
Questa è la pagina HTML
<HTML>
<HEAD>
<TITLE>modulo contatto cdosys formato html</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<style type="text/css">
A:link, A:visited { text-decoration: none }
A:hover { text-decoration: underline }
</style>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_findObj(n, d) { //v4.01
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);
if(!x && 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_valida teForm.arguments;
for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=MM_findObj(args[i]);
if (val) { nm=val.name; if ((val=val.value)!="") {
if (test.indexOf('isEmail')!=-1) { p=val.indexOf('@');
if (p<1 || p==(val.length-1)) errors+='- '+nm+' deve essere valida.\n';
} else if (test!='R') { num = parseFloat(val);
if (isNaN(val)) errors+='- '+nm+' must contain a number.\n';
if (test.indexOf('inRange') != -1) { p=test.indexOf(':');
min=test.substring(8,p); max=test.substring(p+1);
if (num<min || max<num) errors+='- '+nm+' must contain a number between '+min+' and '+max+'.\n';
} } } else if (test.charAt(0) == 'R') errors += '- '+nm+' campo obbligatorio.\n'; }
} if (errors) alert('Inserire email valida:\n'+errors);
document.MM_returnValue = (errors == '');
}
//-->
</script>
</HEAD>
<BODY BGCOLOR=#FFFFFF text="#333333">
<div align="center">
<table width="715" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="63%" valign="top">
<table border="0" cellpadding="0" cellspacing="0" width="40%" align="center">
<tr>
<td width="100%">
<form action="formcdosys.asp" method="post" name="form1" onSubmit="MM_validateForm('Nome','','R','Cognome', '','R','email','','RisEmail');return document.MM_returnValue">
<table width="361" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="170"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#333333">Nome *</font></td>
<td width="191"><font color="#333333" size="2" face="Verdana, Arial, Helvetica, sans-serif">
<input type="text" name="nome" size="20">
</font></td>
</tr>
<tr>
<td width="170"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#333333">Cognome *</font></td>
<td width="191"><font color="#333333" size="2" face="Verdana, Arial, Helvetica, sans-serif">
<input type="text" name="cognome" size="20">
</font></td>
</tr>
<tr>
<td width="170"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#333333">Telefono</font></td>
<td width="191"><font color="#333333" size="2" face="Verdana, Arial, Helvetica, sans-serif">
<input type="text" name="tel" size="20">
</font></td>
</tr>
<tr>
<td width="170"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#333333">E-mail
*</font></td>
<td width="191"><font color="#333333" size="2" face="Verdana, Arial, Helvetica, sans-serif">
<input type="text" name="email" size="20">
</font></td>
</tr>
<tr>
<td width="170">
<font size="2" color="#333333" face="Verdana, Arial, Helvetica, sans-serif">
provenienza</font></td>
<td width="191"><font color="#333333" size="2" face="Verdana, Arial, Helvetica, sans-serif">
<input type="text" name="provenienza" size="20">
</font></td>
</tr>
<tr>
<td width="170"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#333333">Messaggio</font></td>
<td width="191">
<font size="1" color="#333333" face="Verdana, Arial, Helvetica, sans-serif">
<textarea name="messaggio" rows="5" cols="33" wrap="VIRTUAL"></textarea>
</font> </td>
</tr>
</table>
<p align="center">
<font size="1" color="#333333" face="Verdana, Arial, Helvetica, sans-serif">
<input type="submit" name="Submit" value="Contatto">
</font> </p>
</form>
<font size="2" face="Verdana, Arial, Helvetica, sans-serif">* richiesto
</font> </td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</BODY>
</HTML>
Questo è il file formcdosys.asp
<%
'============Linkbruttocane su specifiche MSDN================
'* il corpo finale del messaggio contiene tutti i campi *
'* inseriti nella pagina html, in pratica puoi mettere *
'* tutti i campi che ti servono nel modulo di invio senza *
'* fare altre configurazioni aggiuntive. *
'================================================= ============
DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo
'* voce da modificare con il proprio indirizzo email
invioA = "miacasella@miodominio.it"
'* voce da modificare con un indirizzo email che funga da mittente:
'* in caso di errore riceverete notifica a questo indirizzo un MAILER-DAEMON
'* dato che cdosys supporta questa notifica
invioDa = "emailmittente@technet.it"
'------------fine modifiche necessarie------------------
nomeDominio = Request.ServerVariables("HTTP_HOST")
indirizzoIp = Request.ServerVariables("REMOTE_ADDR")
modulo = Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo = Request.ServerVariables("HTTP_USER_AGENT")
'*rilevo i campi del form
FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
IF NOT Request.Form(numeroCampi) = "" THEN
corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))
END IF
NEXT
'* creo gli oggetti cdosys sul server e li gestisco
DIM iMsg, Flds, iConf
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update
With iMsg
Set .Configuration = iConf
.To = invioA
.From = Request.Form("email")
.Sender = invioDa
.Subject = "Contatto dal dominio " & nomeDominio
.TextBody = "Questi i dati inseriti nel modulo presente alla pagina " & modulo & " da utente con indirizzo IP " & indirizzoIp & " browser e sistema operativo " & browserSistemaOperativo & vbCrLf & corpoMessaggio & ""
.Send
End With
%>
<script>
document.location.replace('grazie.asp');
</script>
Rispondi quotando
), sto creato un form con un campo nascosto, ma questo appare comunque nella mail che ricevo è possibile non visualizzarlo?
