Hi people -
I've been trying to make run this form mail with CDONTS but doesnt work at
all!
it's the first time am using it,could anybody check out where the error
might be and let me know, please?
I trust in you, please help me
- bye tom
***************************************************************************
<!-- #include file="include/jconn_dati.asp" -->
<html>
<head>
<link rel="stylesheet" type="text/css" href="../~style/style.css">
<script Language="Javascript">
<!--
function ControllaForm()
{
var controllo=false;
var stringV=""
var stringL=""
var stringE=""
var string=""
var doc=document.info
if (doc.user_email.value == "" ){controllo=true;stringV=stringV+"\n-
E-MAIL";}
RE =
/^([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9
\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$/
if(RE.test(doc.user_email.value)==false){controllo=true;stringE = stringE
+ "\n- E-MAIL"; }
if (doc.int_problema.value == "" ){controllo=true;stringV = stringV + "\n-
PROBLEMA";}
if (doc.int_problema.value.length > "1040" ){controllo=true;stringL =
stringL + "\n- PROBLEMA (max.1040)";}
if (stringV != ""){string = "\nI seguenti campi non sono stati
compilati:"+"\n"+stringV;}else{
if (stringL != ""){string = "\nI seguenti campi superano il limite di
caratteri\nad essi consentito:"+"\n"+stringL;}else{string = "\nI seguenti
campi contengono dati non validi:"+"\n"+stringE;}}
if (controllo){alert("ERRORI RILEVATI NEL
FORM:"+"\n"+string+"\n"+"\nCORREGGERLI PER POTER PROSEGUIRE");}else{
var messaggio = window.confirm("INVIARE IL FORM A MYCOMPANY?"); if
(messaggio){info.submit();}}
}
// -->
</script>
</head>
<body>
<%
user_email=request.form("user_email")
problema=request.form("int_problema")
applicazione=request.form("int_appl")
'int_email=request.form("int_email")
if action="send" then
messaggio="La sua e-mail è <strong>stata inviata</strong>. I nostri
tecnici risponderanno appena possibile.<br><br><a
href='contattaci_bs.asp'>[Indietro]</a>"
if (user_email<>"") AND (problema<>"") AND (applicazione<>"") then
corpo="<html><head><title>BIESSE SISTEMI INFORMATIVI - MODULO
CONTATTACI -</title><style> BODY{background-color: white;font-family:
Verdana, Helvetica;font-size: 8pt;}</style></head><body><br><b>E-MAIL
GENERATA AUTOMATICAMENTE </b><br><br><br>il: "&now()&"<br><br>"
corpo=corpo&"<b>USER EMAIL:</b> " &request.form("user_email")&"<br>"
corpo=corpo&"<b>PROBLEMA:</b> " &request.form("int_problema")&"<br>"
corpo=corpo&"<b>APPLICAZIONE:</b> " &request.form("int_appl")&"<br>"
corpo=corpo&"</body></html>"
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = user_email
objMail.To = " myname@mydomain.com "
objMail.Subject = oggetto
objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.Body = corpo
objMail.Importance = 1
objMail.Send
Set objMail = Nothing
else
messaggio="Tutti i campi del modulo sono <b>obbligatori</b>. Impossibile
inviare la tua e-mail.<br>Torna indietro e compila tutti i campi.<br><br><a
href='frm_ric.asp'>[BACK]</a>"
end if
%>
<div align="center"><center>
<table border="0" width="94%">
<tr>
<td width="100%" align="center"><%=messaggio%></td>
</tr>
</table>
</center></div>
<%
else
%>
<form NAME="info" METHOD="post" align="center"
action="home.asp?action=send">
<table width="50%" border="0" cellspacing="0" cellpadding="8">
<tr>
<td width="20%">Email</td>
<td width="80%">
<input type="text" name="user_email" value="<%=user_email%>"
size="60">
</td>
</tr>
<tr>
<td width="20%">Problema</td>
<td width="80%"><textarea name="int_problema" value="<%=int_problema%>"
rows="6" cols="60"></textarea></td>
</tr>
<tr>
<td width="20%">Applicazione</td>
<td width="80%">
<select name="int_appl">
<% if session("home_body") = "SW" then%>
<!-- #include file="include/cbo_sw.asp"-->
<%else%>
<!-- #include file="include/cbo_hw.asp"-->
<%end if%>
</select>
</td>
</tr>
<tr>
<td width="20%"> </td>
<td ALIGN="center" width="80%"><div align="left"><p><strong><a
href="javascript:ControllaForm()">INVIA</a></strong></td>
</tr>
</table>
<%end if%>