problemi form

dolores · 3 Giu 2010

Ciao a tutti, spero possiate aiutarmi, non sono molto pratica di asp, ma sto cercando di fare un form che mandi tutto al mio indirizzo di posta, premetto che ho un dominio in aruba.

Ho realizzato 3 pagine:

form.html:

<form action="riepilogo.asp" method="post" name="prenotazione">
<table width="374" border="0" align="center" cellpadding="0" cellspacing="4" class="testo" id="table2">
<tr valign="top">
<td width="49%" height="20" align="left">*Nome</td>
<td width="51%" align="left">*Cognome</td>
</tr>
<tr valign="bottom">
<td height="24" align="left">
<label>
<input name="Nome" type="text" id="Nome" maxlength="22" />
</label>
</td>
<td align="left">
<label>
<input name="Cognome" type="text" id="Cognome" maxlength="22" />
</label>
</td>
</tr>
<tr valign="top">
<td height="20" align="left">*Telefono</td>
<td align="left">E-mail</td>
</tr>
<tr valign="bottom">
<td height="24" align="left">
<label>
<input name="Telefono" type="text" id="Telefono" maxlength="22" />
</label>
</td>
<td align="left">
<label>
<input name="Mail" type="text" id="Mail" size="22" maxlength="22" />
</label>
</td>
</tr>
<tr valign="top">
<td height="20" align="left"><font size="2">Data di arrivo </td>
<td align="left">Data di partenza </td>
</tr>
<tr valign="bottom">
<td height="24" align="left">
<label>
<input name="Arrivo" type="text" id="Arrivo" maxlength="22" />
</label>
</td>
<td align="left">
<label>
<input name="Partenza" type="text" id="Partenza" maxlength="22" />
</label>
</td>
</tr>
<tr valign="top">
<td height="19" align="left">Numero di stanze </td>
<td align="left">Numero di persone </td>
</tr>
<tr>
<td height="19" align="left">
<label>
<input name="Stanze" type="text" id="Stanze" maxlength="22" />
</label> </td>
<td align="left">
<label>
<input name="Persone" type="text" id="Persone" maxlength="22" />
</label> </td>
</tr>
<tr>
<td height="20" align="left"> </td>
<td align="left"> </td>
</tr>
<tr>
<td height="20" align="left">
<label>
<input name="Submit" type="submit" value="Invia" />
</label> </td>
<td align="left">
<label>
<input name="Submit2" type="reset" value="Cancella" />
</label> </td>
</tr> </table>
</form>

Una pagina riepilogo.asp:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Documento senza titolo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="style.css" rel="stylesheet" type="text/css">
</head>

<body>
<form action="invio.asp" method="post" name="conferma" id="conferma">
<table width="269" align="center">
<input type="hidden" name="Nome" value="<%=Request.Form("Nome") %>"/>
<% if (Request.Form("Nome") <> "") then
%><tr>
<td>Nome</td>
<td><%=Request.Form("Nome") %></td></tr>
<%end if %>
<input type="hidden" name="Cognome" value="<%=Request.Form("Cognome") %>"/>
<% if (Request.Form("Cognome") <> "") then
%><tr><td>Cognome</td>
<td><%=Request.Form("Cognome") %></td></tr>
<%end if %>
<input type="hidden" name="Telefono" value="<%=Request.Form("Telefono") %>"/>
<% if (Request.Form("Telefono") <> "") then
%><tr><td>Telefono</td>
<td><%=Request.Form("Telefono") %></td></tr>
<%end if %>
<input type="hidden" name="Mail" value="<%=Request.Form("Mail") %>"/>
<% if (Request.Form("Mail") <> "") then
%><tr>
<td>E-mail</td>
<td><%=Request.Form("Mail") %></td></tr>
<%end if %>
<input type="hidden" name="Arrivo" value="<%=Request.Form("Arrivo") %>"/>
<% if (Request.Form("Arrivo") <> "") then
%><tr>
<td>Data arrivo </td>
<td><%=Request.Form("Arrivo") %></td></tr>
<%end if %>
<input type="hidden" name="Partenza" value="<%=Request.Form("Partenza") %>"/>
<% if (Request.Form("Partenza") <> "") then
%><tr>
<td>data partenza </td>
<td><%=Request.Form("Partenza") %></td></tr>
<%end if %>
<input type="hidden" name="Stanze" value="<%=Request.Form("Stanze") %>"/>
<% if (Request.Form("Stanze") <> "") then
%><tr>
<td>numero stanze </td>
<td><%=Request.Form("Stanze") %></td></tr>
<%end if %>
<input type="hidden" name="Persone" value="<%=Request.Form("Persone") %>"/>
<% if (Request.Form("Persone") <> "") then
%><tr>
<td>numero persone </td>
<td><%=Request.Form("Persone") %></td></tr>
<%end if %>

<tr>
<td colspan="2"><br />
<input type="submit" value="conferma">
<label>
<input type="button" value="Indietro" onClick="javascript:history.back()" name="button">
</label></td></tr>
</table></form>Ovviamente abbiamo il tasto torna
</body>
</html>

e fin qui tutto ok, il problema nasce quando clicco su conferma ovvero non riesco ad aprire la pagina invio:

invio.asp:

<%@LANGUAGE=”VBSCRIPT” CODEPAGE=”1252?%>
<%
Dim IP
IP=Request.ServerVariables(”HTTP_X_FORWARDED_FOR”)
If IP=" Then
IP=Request.ServerVariables(”REMOTE_ADDR”)"
End If
destinatario = "[email protected]"
messaggio = "Nome: " & Request.Form("Nome") & vbCrLf &_
"Cognome: " & Request.Form("Cognome") & vbCrLf &_
"Numero_telefono : " & Request.Form("Telefono") & vbCrLf &_
"E-mail: " & Request.Form(”Mail”) & vbCrLf &_
"Data_Arrivo: " & Request.Form("Arrivo") & vbCrLf &_
"Data_partenza: " & Request.Form("Partenza") & vbCrLf &_
"Numero_stanze: " & Request.Form("Stanze") & vbCrLf &_
"Numero_persone: " & Request.Form("Persone") & vbCrLf
messaggio = messaggio & "Informazioni: " & Request.Form("info")& vbCrLf & "INDIRIZZO ip: " & IP
'Invio email
Set Mail = Server.CreateObject("CDO.Message")
Mail.To = mittente
Mail.From = Request.Form("Mail")
Mail.Subject = "Prenotazione stanze"
Mail.TextBody = messaggio
Mail.Send
Set Mail = nothing
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Documento senza titolo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
Le informazioni sono state spedite correttamente
</body>
</html>

Vi prego aiutatemi......sono disperata

Paolo69 · 4 Giu 2010

Prova questo nella pagina "INVIO.ASP":

Codice:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--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 Nome, Cognome, NumeroTelefono, EMail
Dim DataArrivo, DataPartenza, Numero_Stanza
Dim NumeroPersone, Body
	Nome 			= Request.form("Nome")
	Cognome 		= Request.Form("Cognome")
	NumeroTelefono 	= Request.Form("Telefono")
	EMail 			= Request.Form("Mail")
	DataArrivo 		= Request.Form("Arrivo")
	DataPartenza 	= Request.Form("Partenza")
	Numero_Stanza 	= Request.Form("Stanze")
	NumeroPersone 	= Request.Form("Persone")

Dim nomedominio, indirizzoIp, modulo, browserSistemaOperativo
	nomeDominio 				= Request.ServerVariables("HTTP_HOST")
	indirizzoIp					= Request.ServerVariables("REMOTE_ADDR") 
	modulo						= Request.ServerVariables("HTTP_REFERER")
	browserSistemaOperativo		= Request.ServerVariables("HTTP_USER_AGENT")

		Body = "<font face=verdana size=2>Questi i dati inseriti nel modulo:<br> " & nome & " </b><br />" & Cognome &"<br />"

' Info server	
		strMessage		= "Email address is empty. Cannot send email."
		cSmtpServer 	= "smtp.aruba.it"
		cSmtpPort 		= "25"
		cSMTPUser		= ""
		cSMTPPassword 	= ""
' Windows XP / 2003 
	Set myMail			= CreateObject("CDO.Message")
		myMail.Subject 	= "Contatto dal dominio " & nomeDominio
		myMail.From		= "[email protected]"
		myMail.To		=  "[email protected]" ' Destinatario
'		myMail.bCC 		= "" 'destinatario nascosto		
' Corpo messaggio	
		myMail.HTMLBody	= "<font face=verdana size=2>Questi i dati inseriti nel modulo presente alla pagina <b> " & modulo & " </b><br />da utente con indirizzo IP <b>" & indirizzoIp & " </b><br />browser e sistema operativo <b>" & browserSistemaOperativo  & "</b><br>" & Body
		myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
		myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")= cSmtpServer
		myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= cSmtpPort 
		myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = cSMTPPassword
		myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = cSMTPUser
		myMail.Configuration.Fields.Update
		myMail.Send
	Set myMail = Nothing

%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Documento senza titolo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
Le informazioni sono state spedite correttamente
</body>
</html>

Fammi sapere.

dolores · 4 Giu 2010

Grazie mille funziona finalmente, però nell'email che ricevo compaiono solo il nome e il cognome, ho guardato bene la pagina che mi hai postato forse dovrei aggiungerli :

Questi i dati inseriti nel modulo:<br> " & nome & " </b><br />" & Cognome &"<br />"(qui giusto?).
Spero di si...
E se dovessi aggiungere un secondo destinatario?

Grazie di tutto

Paolo69 · 4 Giu 2010

Ciao dolores,
per pigrizia non ho inserito tutti i campi, pensaci te non è difficile.

Per inserire un secondo destinatario puoi fare così:

Codice:

myMail.To =  "[email protected];[email protected]" ' Destinatario

in pratica puoi inserire tutti gli indirizzi che vuoi con un semplice ";" senza spazi.
Ciaooooooooo

dolores · 4 Giu 2010

adesso ci provo speriamo bene...

Grazie

dolores · 7 Giu 2010

Problemi con select

Ciao a tutti scusate ma ho un nuovo problema, forse chiedo troppo ma per chi s'imbatte per la prima volta con il codice asp non è per niente facile capire certi passaggi.
Allora ho inserito un select e un imput radio per la privacy, ma c'è qualcosa che non mi torna, quanto è brutto essere ignoranti.......
Cmq vi posto le pagine e vi ringranzio in anticipo per ogni eventuale aiuto.
Grazie ancora

Pagina form.htm:

<form action="riepilogo.asp" method="post" name="informazione" id="informazione"><table width="341" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="339"> </td>
</tr>
<tr>
<td><div align="center" class="spedita">SCHEDA RICHIESTA INFORMAZIONI </div></td>
</tr>
</table>
<br>
<table width="802" border="0" align="center" cellpadding="0" cellspacing="4" class="testo" id="table2">
<tr valign="top">
<td width="49%" height="20" colspan="7" align="left" class="text">*Il/la Titolare/Legale rappresentante(cognome nome)</td>
<td width="51%" align="left">*Nome Azienda</td>
</tr>
<tr valign="bottom">
<td height="10" colspan="7" align="left">
<label>
<input name="Nome" type="text" id="Nome" maxlength="50" />
</label>
</td>
<td align="left">
<label>
<input name="Azienda" type="text" id="Azienda" maxlength="22" />
</label>
</td>
</tr>
<tr valign="bottom">
<td height="3" colspan="7" align="left">*Esercente l'attività di </td>
<td align="left">*Telefono</td>
</tr>
<tr valign="bottom">
<td height="3" colspan="7" align="left"><input name="Settore" type="text" id="Settore" maxlength="50" /></td>
<td align="left"><label>
<input name="Telefono" type="text" id="Telefono" maxlength="22" />
</label></td>
</tr>
<tr valign="top">
<td height="20" colspan="7" align="left">*Mobile</td>
<td align="left">*E-mail</td>
</tr>
<tr valign="bottom">
<td height="24" colspan="7" align="left"><label>
<input name="Mobile" type="text" id="Mobile" maxlength="22" />
</label>

</td>
<td align="left">
<label>
<input name="Mail" type="text" id="Mail" size="22" maxlength="22" />
</label>
</td>
</tr>
<tr valign="top">
<td height="20" colspan="7" align="left">*Fax</td>
<td align="left">*Indirizzo</td>
</tr>
<tr valign="bottom">
<td height="24" colspan="7" align="left">
<label>
<input name="Fax" type="text" id="Fax" maxlength="22" />
</label>
</td>
<td align="left">
<label>
<input name="Indirizzo" type="text" id="Indirizzo" maxlength="22" />
</label>
</td>
</tr>
<tr valign="top">
<td height="19" colspan="7" align="left">*Nr.</td>
<td align="left">*Città</td>
</tr>
<tr>
<td height="7" colspan="7" align="left">
<label>
<input name="Numero" type="text" id="Numero" maxlength="22" />
</label> </td>
<td align="left">
<label>
<input name="Citta" type="text" id="Citta" maxlength="22" />
</label> </td>
</tr>
<tr>
<td height="8" colspan="7" align="left">*Cap</td>
<td align="left"> </td>
</tr>
<tr>
<td height="8" colspan="7" align="left"><label>
<input name="Cap" type="text" id="Cap" maxlength="22" />
</label></td>
<td align="left"> </td>
</tr>
<tr>

</tr>
<tr>
<td height="2" colspan="7" align="left"><div align="right">Seleziona il tuo sesso:</div></td>
<td align="left"><label><select name="Sesso">
<option selected> -- </option>
<option value="maschio"> Maschio </option>
<option value="femmina"> Femmina </option>
</select></label>
</td>
</tr>
<tr>
<td height="2" colspan="7" align="left"><div align="right">Privacy:</div></td>
<td align="left"> </td>
</tr>
<tr>
<td height="8" colspan="7" align="left"> </td>
<td align="left"><textarea name="testoprivacy" cols="50" rows="6" id="textarea">Il trattamento dei dati personali che La riguardano è finalizzato ad offrirLe un servizio di informazione nel rispetto delle normative comunitarie e nazionali in tema di privacy. Tutto ciò verrà svolto mediante elaborazione elettronica dei suoi dati. Lei può tranquillamente opporsi, qualora lo ritenga necessario e in tal caso l'ECIPAG provvederà alla cancellazione del suo dato senza alcun onere a suo carico. Il DLgs. 196/2003 Le conferisce il diritto di conoscere l'eventuale trattamento dei suoi dati e di averne comunicazione dal titolare o dal responsabile del trattamento. Di avere altresì, dei dati stessi, comunicazione in forma intelligibile, origine e logica e finalità del trattamento. Potrà, eventualmente rinnovare la richiesta dei suoi dati con intervallo non minore dì 90 giorni, di ottenerne la cancellazione ovvero la trasformazione in forma anonima o il blocco dei dati trattati nel caso in cui vi sia violazione della legge, compresi quelli di cui non è necessaria la conservazione in relazione agli scopi per i quali essi sono stati raccolti o successivamente trattati; di richiedere la rettificazione ovvero, qualora vi abbia interesse, l'integrazione dei suoi dati, di ottenere l'attestazione che le operazioni predette siano portate a conoscenza di coloro ai quali i dati siano stati comunicati o diffusi; di opporsi in tutto o in parte, per motivi legittimi, al trattamento dei dati personali che La riguardano, ancorché pertinenti allo scopo della raccolta; di opporsi in tutto o in parte, al trattamento dei dati personali che la riguardano, previsto ai fini di informazioni commerciali o di vendita diretta ovvero per il compimento di ricerche di mercato, e tale diritto può essere esercitato gratuitamente. II titolare del presente trattamento è l'ECIPAG, via Imera , 223/c Agrigento (AG) Attraverso il conferimento del suo indirizzo e-mail, del numero di telefax e/o di telefono e/o di cellulare esprime il suo specifico consenso all'utilizzo di detti strumenti per l'invio di informazioni commerciali.</textarea></td>
</tr>
<tr>
<td height="2" colspan="7" align="left"> </td>
<td align="left"> </td>
</tr>
<tr>
<td height="2" colspan="7" align="left"> </td>
<td align="left"> </td>
</tr>

<tr>
<td height="8" align="left"><div align="right"></div></td>
<td align="left"> </td>
<td align="left"> </td>
<td align="left"> </td>
<td align="left"> </td>
<td align="left"><div align="right"></div></td>
<td align="left"><div align="right">
Accetto
<input name="privacy" type="radio" value="accetto" checked>
</div></td>
<td align="left">Non accetto <input name="radiobutton" type="radio" value="nonaccetto"></td>
</tr>
<tr>
<td height="8" colspan="7" align="left"> </td>
<td align="left"> </td>
</tr>
<tr>
<td height="20" colspan="7" align="left">
<label>
<input name="Submit" type="submit" value="Invia" />
</label> </td>
<td align="left">
<label>
<input name="Submit2" type="reset" value="Cancella" />
</label> </td>
</tr> </table>
</form>

Pagina riepilogo.asp:

<form action="invio.asp" method="post" name="conferma" id="conferma">
<table width="594" align="center">
<input type="hidden" name="Nome" value="<%=Request.Form("Nome") %>"/>
<% if (Request.Form("Nome") <> "") then
%><tr>
<td width="398">Il/la Titolare/Legale rappresentante(cognome nome)</td>
<td width="184"><%=Request.Form("Nome") %></td></tr>
<%end if %>
<input type="hidden" name="Azienda" value="<%=Request.Form("Azienda") %>"/>
<% if (Request.Form("Azienda") <> "") then
%><tr><td>Nome Azienda</td>
<td><%=Request.Form("Azienda") %></td></tr>
<%end if %>
<input type="hidden" name="Settore" value="<%=Request.Form("Settore") %>"/>
<% if (Request.Form("Settore") <> "") then
%><tr><td>Esercente l'attività di</td>
<td><%=Request.Form("Settore") %></td></tr>
<%end if %>
<input type="hidden" name="Telefono" value="<%=Request.Form("Telefono") %>"/>
<% if (Request.Form("Telefono") <> "") then
%><tr><td>Telefono</td>
<td><%=Request.Form("Telefono") %></td></tr>
<%end if %>
<input type="hidden" name="Mobile" value="<%=Request.Form("Mobile") %>"/>
<% if (Request.Form("Mobile") <> "") then
%><tr><td>Telefono</td>
<td><%=Request.Form("Mobile") %></td></tr>
<%end if %>
<input type="hidden" name="Mail" value="<%=Request.Form("Mail") %>"/>
<% if (Request.Form("Mail") <> "") then
%><tr>
<td>E-mail</td>
<td><%=Request.Form("Mail") %></td></tr>
<%end if %>
<input type="hidden" name="Fax" value="<%=Request.Form("Fax") %>"/>
<% if (Request.Form("Fax") <> "") then
%><tr>
<td>Fax</td>
<td><%=Request.Form("Fax") %></td></tr>
<%end if %>
<input type="hidden" name="Indirizzo" value="<%=Request.Form("Indirizzo") %>"/>
<% if (Request.Form("Indirizzo") <> "") then
%><tr>
<td>Indirizzo </td>
<td><%=Request.Form("Indirizzo") %></td></tr>
<%end if %>
<input type="hidden" name="Numero" value="<%=Request.Form("Numero") %>"/>
<% if (Request.Form("Numero") <> "") then
%><tr>
<td>Nr. </td>
<td><%=Request.Form("Numero") %></td></tr>
<%end if %>
<input type="hidden" name="Citta" value="<%=Request.Form("Citta") %>"/>
<% if (Request.Form("Citta") <> "") then
%><tr>
<td>Città </td>
<td><%=Request.Form("Citta") %></td></tr>
<%end if %>
<input type="hidden" name="Cap" value="<%=Request.Form("Cap") %>"/>
<% if (Request.Form("Cap") <> "") then
%><tr>
<td>Cap </td>
<td><%=Request.Form("Cap") %></td></tr>
<%end if %>
<input type="hidden" name="Sesso" value="<%=Request.Form("Sesso") %>"/>
<% if Sesso = "maschio" Then
Maschio
Response.Write("hai selezionato il sesso maschile")
ElseIf Sesso = "femmina" Then
Femmina
Response.Write("hai selezionato il sesso femminile")
%><tr>
<td>Sesso </td>
<td><%=Request.Form("Sesso") %></td></tr>
<%end if %>
<input type="hidden" name="privacy" value="<%=Request.Form("privacy") %>"/>
<% if (Request.Form("privacy") <> "") then
%><tr>
<td>Privacy </td>
<td><%=Request.Form("privacy") %></td></tr>
<%end if %>

<tr>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
<%end if %>

<tr>
<td colspan="2"><br />
<input type="submit" value="conferma">
<label>
<input type="button" value="Indietro" onClick="javascript:history.back()" name="button">
</label></td></tr>
</table>
</form>

Pagina Invio.asp:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>


<%

Dim Nome, Azienda, Settore, NumeroTelefono, Mobile, EMail
Dim Fax, Indirizzo, Numero
Dim Citta, Cap, Sesso, Privacy,Body
Nome = Request.form("Nome")
Azienda = Request.Form("Azienda")
NumeroTelefono = Request.Form("Telefono")
Mobile = Request.Form("Mobile")
EMail = Request.Form("Mail")
Fax = Request.Form("Fax")
Indirizzo = Request.Form("Indirizzo")
Numero = Request.Form("Numero")
Citta = Request.Form("Citta")
Cap = Request.Form("Cap")
Sesso = Request.Form("Sesso")
privacy = Request.Form("privacy")

Dim nomedominio, indirizzoIp, modulo, browserSistemaOperativo
nomeDominio = Request.ServerVariables("HTTP_HOST")
indirizzoIp = Request.ServerVariables("REMOTE_ADDR")
modulo = Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo = Request.ServerVariables("HTTP_USER_AGENT")

Body = "<font face=verdana size=2>Questi i dati inseriti nella scheda informazioni:<br> " & nome & " </b><br />" & Azienda &"</b><br /> " & Settore & " </b><br />" & NumeroTelefono &"</b><br /> " & Mobile &"</b><br /> " & EMail &"</b><br /> " & Fax &"</b><br /> " & Indirizzo &"</b><br /> " & Numero &"</b><br /> " & Citta &"</b><br /> " & Cap &"</b><br /> "& Sesso &"</b><br /> " & privacy &"</b><br /> "

' Info server
strMessage = "Email address is empty. Cannot send email."
cSmtpServer = "smtp.aruba.it"
cSmtpPort = "25"
cSMTPUser = ""
cSMTPPassword = ""
' Windows XP / 2003
Set myMail = CreateObject("CDO.Message")
myMail.Subject = "Richiesta Informazioni dal dominio " & nomeDominio
myMail.From = "[email protected]"
myMail.To = "[email protected];[email protected]" ' Destinatario
' myMail.bCC = "" 'destinatario nascosto
' Corpo messaggio
myMail.HTMLBody = "<font face=verdana size=2>Questi i dati inseriti nel Scheda Informazioni presente alla pagina <b> " & modulo & " </b><br />da utente con indirizzo IP <b>" & indirizzoIp & " </b><br />browser e sistema operativo <b>" & browserSistemaOperativo & "</b><br>" & Body
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")= cSmtpServer
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= cSmtpPort
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = cSMTPPassword
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = cSMTPUser
myMail.Configuration.Fields.Update
myMail.Send
Set myMail = Nothing

%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Invio</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
Le informazioni sono state spedite correttamente
</body>
</html>

Paolo69 · 7 Giu 2010

Dolores, sostituisci il codice presente nella pagina form.htm con il seguente:

Codice:

<script language="javascript">
<!--
// accetta nel form mail
function accetta(el){
checkobj=el
	if (document.all||document.getElementById){
		for (i=0;i<checkobj.form.length;i++){  
var tempobj=checkobj.form.elements[i]
	if(tempobj.type.toLowerCase()=="submit")
tempobj.disabled=!checkobj.checked
							}
						}
					}

function disabilita(el){
	if (!document.all&&!document.getElementById){
			if (window.checkobj&&checkobj.checked)
return true
		else{
alert(" Compilare i campi obbligatori /n All fields required")
return false
						}
					}
				}
-->
</script>
<form action="riepilogo.asp" method="post" name="informazione" id="informazione"><table width="341" align="center" cellpadding="0" cellspacing="0">
<table width="802" border="0" align="center" cellpadding="0" cellspacing="4" class="testo" id="table2">
    <tr>
    <td height="33" colspan="2"><div align="center" class="spedita">SCHEDA RICHIESTA INFORMAZIONI</div></td>
    </tr>
    <tr>
    <td width="49%" height="20" align="left" class="text">*Il/la Titolare/Legale rappresentante(cognome nome)</td>
    <td width="51%" align="left">*Nome Azienda</td>
    </tr>
    <tr>
	<td height="10" align="left">
    <label><input name="Nome" type="text" id="Nome" maxlength="50" /></label>
    </td>
    <td align="left">
    <label><input name="Azienda" type="text" id="Azienda" maxlength="22" /></label>
    </td>
    </tr>
    <tr>
    <td align="left">*Esercente l'attivit&agrave; di </td>
    <td align="left">*Telefono</td>
    </tr>
    <tr>
    <td align="left"><input name="Settore" type="text" id="Settore" maxlength="50" /></td>
    <td align="left">
    <label><input name="Telefono" type="text" id="Telefono" maxlength="22" /></label>
    </td>
    </tr>
    <tr>
    <td align="left">*Mobile</td>
    <td align="left">*E-mail</td>
    </tr>
    <tr>
    <td height="24" align="left">
    <label><input name="Mobile" type="text" id="Mobile" maxlength="22" /></label>
    </td>
    <td align="left">
    <label><input name="Mail" type="text" id="Mail" size="22" maxlength="22" /></label>
    </td>
    </tr>
    <tr>
    <td align="left">*Fax</td>
    <td align="left">*Indirizzo</td>
    </tr>
    <tr>
    <td align="left">
    <label><input name="Fax" type="text" id="Fax" maxlength="22" /></label>
    </td>
    <td align="left">
    <label><input name="Indirizzo" type="text" id="Indirizzo" maxlength="22" /></label>
    </td>
    </tr>
    <tr>
    <td align="left">*Nr.</td>
    <td align="left">*Citt&agrave;</td>
    </tr>
    <tr>
    <td align="left">
    <label><input name="Numero" type="text" id="Numero" maxlength="22" /></label>
    </td>
    <td align="left">
    <label><input name="Citta" type="text" id="Citta" maxlength="22" /></label>
    </td>
    </tr>
    <tr>
    <td align="left">*Cap</td>
    <td align="left">&nbsp;</td>
    </tr>
    <tr>
    <td height="8" align="left"><label>
    <input name="Cap" type="text" id="Cap" maxlength="22" />
    </label></td>
    <td align="left">&nbsp;</td>
    </tr>
    <tr>
    <td height="2" align="left"><div align="right">Seleziona il tuo sesso:</div></td>
    <td align="left"><label><select name="Sesso">
    <option selected> -- </option>
    <option value="maschio"> Maschio </option>
    <option value="femmina"> Femmina </option>
    </select></label></td>
    </tr>
    <tr>
    <td align="left" colspan="2">Privacy:</td>
    </tr>
    <tr>
    <td colspan="2" align="left">Il trattamento dei dati personali che La riguardano è finalizzato ad offrirLe un servizio di informazione nel rispetto delle normative comunitarie e nazionali in tema di privacy.
Tutto ciò verrà svolto mediante elaborazione elettronica dei suoi dati.
Lei può tranquillamente opporsi, qualora lo ritenga necessario e in tal caso l'ECIPAG provvederà alla cancellazione del suo dato senza alcun onere a suo carico. 
Il DLgs. 196/2003 Le conferisce il diritto di conoscere l'eventuale trattamento dei suoi dati e di averne comunicazione dal titolare o dal responsabile del trattamento. 
Di avere altresì, dei dati stessi, comunicazione in forma intelligibile, origine e logica e finalità del trattamento. Potrà, eventualmente rinnovare la richiesta dei suoi dati con intervallo non minore dì 90 giorni, di ottenerne la cancellazione ovvero la trasformazione in forma anonima o il blocco dei dati trattati nel caso in cui vi sia violazione della legge, compresi quelli di cui non è necessaria la conservazione in relazione agli scopi per i quali essi sono stati raccolti o successivamente trattati; di richiedere la rettificazione ovvero, qualora vi abbia interesse, l'integrazione dei suoi dati, di ottenere l'attestazione che le operazioni predette siano portate a conoscenza di coloro ai quali i dati siano stati comunicati o diffusi; di opporsi in tutto o in parte, per motivi legittimi, al trattamento dei dati personali che La riguardano, ancorché pertinenti allo scopo della raccolta; di opporsi in tutto o in parte, al trattamento dei dati personali che la riguardano, previsto ai fini di informazioni commerciali o di vendita diretta ovvero per il compimento di ricerche di mercato, e tale diritto può essere esercitato gratuitamente. 
II titolare del presente trattamento è l'ECIPAG, via Imera , 223/c Agrigento (AG) Attraverso il conferimento del suo indirizzo e-mail, del numero di telefax e/o di telefono e/o di cellulare esprime il suo specifico consenso all'utilizzo di detti strumenti per l'invio di informazioni commerciali.</td>
    </tr>
    <tr>
    <td colspan="2">Consenso al trattemento dati <font color="#FF0000">*</font> <input id="Privacy" onClick="accetta(this)" type="checkbox" value="Accetto il trattamento dei dati" name="Privacy" /></td>
    </tr>
    <tr>
    <td height="20" align="right">
    <label><input disabled="disabled" name="submit" type="submit" value="  Invia modulo richiesta  " /></label>
    </td>
    <td align="left">
    <label><input name="Submit2" type="reset" value="  Reset  " /></label>
    </td>
    </tr>
</table>
</form>

In pratica, grazie ad uno script JavaScript il pulsante Invio non si attiva se l'utente non ha posto il 'flag' sulla voce "Consenso trattamento dati", penso che questa sia la soluzione migliore.

Ne ho approfittato per pulirti il codice HTML da tag inutili ed errati.

dolores · 7 Giu 2010

Ciao Paolo69, grazie per aver risposto così presto,
ho provato a modificare la pagina form.htm, ma mi da errore.

Paolo69 · 7 Giu 2010

puoi essere + precisa? ti manda nella pagina di conferma o no?

dolores · 7 Giu 2010

Si scusami, praticamente nella pagina riepilogo.asp mi dice http 500 errore interno del server.
Ho provato anche adesso, pensavo fosse un problema momentaneo ma mi dice sempre la stessa cosa.

Paolo69 · 7 Giu 2010

Dolores,
nella riga 91 della pagina riepilogo.asp vi è un <%end if %> senza motivo.
questo è il blocco di codice, togli la suddetta istruzione:

Codice:

<tr>
<td>&nbsp;</td>
<td>&nbsp;</td>
</tr>
<tr>
<td>&nbsp;</td>
<td>&nbsp;</td>
</tr>
[B][COLOR="Red"]<%end if %>[/COLOR][/B]

<tr>
<td colspan="2"><br />
<input type="submit" value="conferma">
<label>
<input type="button" value="Indietro" onClick="javascript:history.back()" name="button">
</label></td></tr>
</table>
</form>

:mavieni:

dolores · 7 Giu 2010

Grazie mille funziona perfettamente.

dolores · 10 Giu 2010

In mezzo alla felicità, non mi sono accorta che il campo sesso nella pagina riepilogo.asp non compare completamente, sicuramente ho sbagliato il codice, grazie per ogni eventuale aiuto.

Paolo69 · 10 Giu 2010

Sostituisci il codice con il seguente:

Codice:

<tr>
<td>Sesso</td>
<td><% 
If Sesso = "Maschio" Then
	Response.Write("hai selezionato il sesso maschile")
ElseIf Sesso = "femmina" Then
	Response.Write("hai selezionato il sesso femminile")
Else 
	Response.Write("Non hai selezionato il sesso")
End If
%></td>
</tr>

dolores · 10 Giu 2010

Di funzionare funziona, solo che nella pagina riepilogo, mi dice che non ho selezionato il sesso, sia che scelgo maschio sia che scelgo femmina.

dolores · 10 Giu 2010

Allora nell'email arriva, e solo nel riepilogo che mi fa questo scherzetto, ti scrivo il codice forse mi scordo qualcosa:

<input type="hidden" name="Sesso" value="<%=Request.Form("Sesso") %>"/>
<tr>
<td>Sesso</td>
<td><%
If Sesso = "Maschio" Then
Response.Write("hai selezionato il sesso maschile")
ElseIf Sesso = "femmina" Then
Response.Write("hai selezionato il sesso femminile")
Else
Response.Write("Non hai selezionato il sesso")
End If
%></td>
</tr>

Paolo69 · 10 Giu 2010

Ovvio che non va, la variabile sesso non è valorizzata, aggiungi il codice in grassetto:

Codice:

<input type="hidden" name="Sesso" value="<%=Request.Form("Sesso") %>"/>
<tr>
<td>Sesso</td>
<td><%

[B]Dim Sesso
Sesso = Request.Form("Sesso")[/B]

If Sesso = "maschio" Then
Response.Write("hai selezionato il sesso maschile")
ElseIf Sesso = "femmina" Then
Response.Write("hai selezionato il sesso femminile")
Else
Response.Write("Non hai selezionato il sesso")
End If
%></td>
</tr>

facci sapere!

dolores · 10 Giu 2010

Funziona!!

Grazie mille

dolores · 7 Lug 2010

campi obbligatori

Salve, sempre su questo form vorrei che tutti i campi fossero obbligatori, da quanto poco ne capisco solo uno è obbligatorio quello del consenso dei dati personali. Grazie per qualsiasi suggerimento

problemi form

Nuovo Utente

Moderatore

Nuovo Utente

Moderatore

Nuovo Utente

Nuovo Utente

Moderatore

Nuovo Utente

Moderatore

Nuovo Utente

Moderatore

Nuovo Utente

Nuovo Utente

Moderatore

Nuovo Utente

Nuovo Utente

Moderatore

Nuovo Utente

Nuovo Utente

Discussioni simili