Ragazzi ho bisogno del vostro aiuto.... ho creato un form, che quando clicco su invia viene processato da un file asp, ed in teoria dovrebbe creare e mandare una email, ma dà un errore, che non capisco cosa sia..... qualcuno sa come aiutarmi....
La pagina del form è questa:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1" />
<title>Untitled Document</title>
<style type="text/css">
<!--
.style1 {font-size: 10px}
.style2 {font-size: 9px}
-->
</style>
<script 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+' must contain an e-mail address.\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+' is required.\n'; }
} if (errors) alert('The following error(s) occurred:\n'+errors);
document.MM_returnValue = (errors == '');
}
//-->
</script>
</head>
<body>
<form action="invia2.asp" method="post" enctype="multipart/form-data" name="form1" id="form1">
<table width="481" border="0" cellspacing="4" cellpadding="0">
<tr>
<td colspan="2" align="left" class="submenu style1">
*
<label>Nome
<input name="nome" type="text" id="nome" size="10" maxlength="20" />
</label>
*
<label>Cognome
<input name="cognome" type="text" id="cognome" />
</label>
</p>
*Ragione sociale
<label>
<input name="ragione_sociale" type="text" id="ragione_sociale" size="30" maxlength="30" />
</label>
</p>
<label>Via
<input name="via" type="text" id="via" size="20" maxlength="30" />
</label>
<label>CAP
<input name="cap" type="text" id="cap" size="6" maxlength="6" />
</label>
<label>Città
<input name="citta" type="text" id="citta" size="15" maxlength="29" />
</label>
</p>
<label>Provincia
<input name="provincia" type="text" id="provincia" size="15" />
</label>
* <span class="testoGrigio">Telefono:
<input name="telefono" type="text" class="campiForm" id="telefono" size="12" />
</span> Fax:
<input name="fax" type="text" class="campiForm" id="fax" size="12" />
</p>
<span class="testoGrigio">*E-mail: </span><span class="testoGrigio">
<input name="mail" type="text" class="campiForm" id="mail" size="30" maxlength="60" />
</span></p>
<label>Pagamento
<select name="pagamento" size="1" id="pagamento">
<option>Selezione</option>
<option value="bonifico">bonifico</option>
<option value="posta">c/c postale</option>
<option value="contrassegno">contrassegno</option>
</select>
</label>
</p>
<label>Inserisci il file
<input type="file" name="file2" />
</label>
</p>
*Richiesta:</p>
<textarea name="messaggio" cols="50" rows="8" class="campiForm style1" id="messaggio"></textarea>
</p>
</p>
<label>Inserisci il file
<input type="file" name="file" />
</label>
</p>
</p>
</p></td>
</tr>
<tr>
<td colspan="2" align="left" class="submenu style2">* campi obbligatori </td>
</tr>
<tr>
<td width="335" align="right"><span class="style2"></span></td>
<td width="334"><span class="style2"></span></td>
</tr>
<tr>
<td colspan="2" align="left"><span class="style2">
<input name="privacy" type="checkbox" id="privacy" value="checkbox" checked="checked" />
Presa visione della Nota Informativa sulla Privacy,
autorizzo il trattamento dei miei dati personali. </span></td>
</tr>
<tr>
<td align="right"></td>
<td></td>
</tr>
<tr>
<td colspan="2" align="left"><input name="invia" type="submit" id="invia" onclick="MM_validateForm('nome','','R','cognome',' ','R','ragione_sociale','','R','telefono','','RisN um');return document.MM_returnValue" value="invia" />
<input name="cancella" type="reset" class="pulsantiForm" id="cancella" value="Cancella dati" />
<label></label></td>
</tr>
</table>
</form>
</body>
</html>
e fino a qui tutto ok... clicco su invia e mi da sempre errore alla linea 29.... xchèèèèèèè....
ecco il codice:
<%@LANGUAGE="VBSCRIPT"%>
<%
DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo, nome, indirizzo, cap, citta, provincia, telefono, fax, email, pagamento,cognome
'* voce da modificare con il proprio indirizzo email
invioA = "info@garagnanipubblicita.it"
invioDa = "info@garagnanipubblicita.it"
nomeDominio = Request.ServerVariables("HTTP_HOST")
indirizzoIp = Request.ServerVariables("REMOTE_ADDR")
modulo = Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo = Request.ServerVariables("HTTP_USER_AGENT")
'* 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
nome = request.form("nome")
cognome = request.form("cognome")
ragione_sociale = request.form("ragione_sociale")
via = request.form("via")
cap = request.form("cap")
citta = request.form("citta")
provincia = request.form("provincia")
telefono = request.form("telefono")
fax = request.form("fax")
email = request.form("email")
privacy = request.form("privacy")
pagamento = request.form("pagamento")
With iMsg
Set .Configuration = iConf
.To = invioA
.From = mail
.Sender = invioDa
.Subject = "Ordine da www.garagnanipubblicita.it"
.HTMLBody = "<font face=""Verdana, Arial, Helvetica, sans-serif"" size=2>E' stata inviato un nuovo ordineo dal sito.
Di seguito sono riportati i dati.
Nome: " & nome & " " & cognome & "
Indirizzo: " & via & ", " & cap & " - " & citta & "(" & provincia & ")
Telefono: " & telefono & "
Fax: " & fax & " <brPrivacy: " & privacy & "
E-mail: " & email & "
<strongPagamento:[/b] " & pagamento & "
Ricontattare il cliente per una conferma</font>"
.Send
End With
set Flds = Nothing
set iConf = Nothing
set iMsg = Nothing
%>
<script>
document.location.replace('invio_preventivo.htm');
</script>
Rispondi quotando
