1 messaggio dal 16 novembre 2016
Salve a tutti, sono nuovo del forum e nuovo anche per quanto riguarda asp, ho controllato i vari post presenti nel sito ma non ne vengo a capo con il mio problema.
Ho un dominio su aruba.it e dovrei creare un form nella pagina contatti che mi invia i parametri via mail.
Il codice del form mi sembra tutto a posto (www.protettosas.it/modulo.html) e a quanto sembra anche il codice asp dovrebbe essere giusto, solo che quando premo il pulsante invia richiesta mi torna un errore della pagina asp
Di seguito vi allego il codice html del form e quello asp della pagina

<!doctype html>
<html lang="it" style="-webkit-text-size-adjust: 100%; -ms-text-size-adjust: 100%;">
<html>
<head>
<meta charset="utf-8">
<meta http-equiv="X-UA-Compatible" content="IE=edge,chrome=1" />
<meta name="viewport" content="width=device-width, initial-scale=1, minimum-scale=1, maximum-scale=1, user-scalable=0" />
<link rel="stylesheet" href="css/impaginazione.css" type="text/css" media="all">
<head>
<title>Modulo Richiesta Informazioni</title>
</head>

<body>
<h2> Modulo Richisesta Informazioni</h2>
<br>
<form method="POST" action="Contact.asp" form id="form">
<table>
<tr>
<td>Nome / Cognome: *</td>
<td><input name="Nome" value="Nome" size="23" maxlength="50" <input name="Cognome" value="Cognome" size="25" maxlength="50"></td>
</tr>
<tr>
<td>E-Mail: *</td>
<td><input name="Email Address" value="Email" size="25" maxlength="50"></td>
</tr>
<tr>
<td>Telefono: *</td>
<td><input name="Telephone No" value="Telefono" size="25" maxlength="50"> </td>
</tr>
<tr>
<tr>
<td>Indirizzo: *</td>
<td><input name="Via" value="Via" size="40" maxlength="50"> <input name="civico" value="Civico" size="10" maxlength="50"></td>
</tr>
<tr>
<td>Indirizzo: *</td>
<td><input name="cap" value="Cap" size="5" maxlength="50"> <input name="Localita" value="Localita" size="37" maxlength="50"> <input name="Provincia" value="Pr" size="3" maxlength="50"></td>
</tr>
<tr>
<td valign="top">Messaggio: *</td>
<td><textarea cols="57" name="Messaggio" rows="10"></textarea> </td>
</tr>
<tr><td> * Tutti i campi sono obbligatori</td></tr>
<tr>
<td colspan="2"><div align="center"><center><p><input type="submit" value="Invia Richiesta"
name="Submit"> </p>
</tr>
</table>
</form>
</body>
</html>

CODICE ASP:

<!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows 2000 Type
Library" -->
<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" -->
<%

DIM numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo, Nome, Cognome, Email, Telefono, Via, Civico, Cap, Localita, Provincia, Messaggio
'* voce da modificare con il proprio indirizzo email
invioA = "mia mail.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 = "request.Form(email)"
'------------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
var nome = new String(Request.Form("nome"));
var cognome = new String(Request.Form("cognome"));
var email = new String(Request.Form("email"));
var Telefono = new String(Request.Form("telefono"));
var via = new String(Request.Form("via"));
var civico = new String(Request.Form("civico"));
var cap = new String(Request.Form("cap"));
var localita = new String(Request.Form("localita"));
var provincia = new String(Request.Form("provincia"));
var messaggio = new String(Request.Form("messaggio"));
FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
IF NOT Request.Form(numeroCampi) = "" THEN
Nome = Nome Cognome = Cognome Email = Email Telefono = Telefono Via = Via Civico = Civico Cap = Cap Localita = Localita Provincia = Provincia Messaggio = Messaggio & 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>


Se qualcuno riuscisse ad aiutarmi mi farebbe un grande favore, è da una settimana che ci sbatto la testa senza venirne a capo.

P.S. avrei la necessità anche di impostare dei campi obbligatori per alcuni campi e anche quella è una cosa che non mi riesce

Grazie in anticipo

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.