elimare campi request form Asp

C

creativentt

Nuovo Utente
24 Nov 2011
3
0
0
Ciao a tutti il form e grazie anticipate a chi vorrà aiutarmi..
ho un form flash collegato a un file asp, non masticando codice.. avrei bisogno di togliere la compilazione obbligatoria (request field) da alcuni di questi campi.. ma non so che codice usare...

'Request form fields
Dim MailFrom, MailFName, MailLName, MailCompany, MailWebsite, MailCountry, MailSubject, MailMessage
MailFrom = Trim(Request.Form("email_field"))
MailFName = Trim(Request.Form("fname_field"))
MailLName = Trim(Request.Form("lname_field"))
MailCompany = Trim(Request.Form("company_field"))
MailWebSite = Trim(Request.Form("website_field"))
MailCountry = Trim(Request.Form("country_field"))
MailSubject = Trim(Request.Form("subject_field"))
MailMessage = Trim(Request.Form("message_field"))
MailSettore = Trim(Request.Form("settore_field"))
MailIndirizzo = Trim(Request.Form("indirizzo_field"))
MailVia = Trim(Request.Form("via_field"))
MailCap = Trim(Request.Form("cap_field"))
MailNazione = Trim(Request.Form("nazione_field"))
MailTelefono = Trim(Request.Form("telefono_field"))
MailFax = Trim(Request.Form("fax_field"))
MailRadio01 = Trim(Request.Form("radio01_field"))
MailRadio02 = Trim(Request.Form("radio02_field"))
MailRadio03 = Trim(Request.Form("radio03_field"))
MailRadio04 = Trim(Request.Form("radio04_field"))
MailSenderIP = Request.ServerVariables("REMOTE_ADDR")
 
Paolo69

Paolo69

Moderatore
Membro dello Staff
MOD
18 Feb 2010
555
13
18
Italy
www.caprioli.info
...in questo frammento di codice non vi è la sezione che si occupa di rendere o meno un campo abbligatorio, postami tutta la pagina.
 
C

creativentt

Nuovo Utente
24 Nov 2011
3
0
0
codice compelato

Questo ti fa capire quanto mastico di ASP :)
Ecco il codice completo.


<%

'Variables
Dim MailCharset, MailServer, MailServerUser, MailServerPass, MailTo, MailComponent
MailCharset = "ISO-8859-9" ' Mail message charset
MailServer = "mail.server.net" ' Your smtp mail server (Only for JMAil and ASPMail). If you don't known, please ask to your mail provider
MailServerPort = "25" ' Your smtp mail server port (default: 25).
MailServerUser = "[email protected]" ' SMTP server username (Only for JMAil and ASPMail)
MailServerPass = "password" ' SMTP server password (Only for JMAil and ASPMail)
MailTo = "[email protected]" ' Don’t forget to change "[email protected]" to receive the mail from contact form
'MailYourCompany = "Your Company" ' To subject prefix (Ex. Subject: Your Company - Sender Subject)
MailComponent = "CDO.Message" ' JMail > JMail.Message / Persist AspMail > Persits.MailSender / CDO.Message > CDO.Message

'Request form fields
Dim MailFrom, MailFName, MailLName, MailCompany, MailWebsite, MailCountry, MailSubject, MailMessage
MailFrom = Trim(Request.Form("email_field"))
MailFName = Trim(Request.Form("fname_field"))
MailLName = Trim(Request.Form("lname_field"))
MailCompany = Trim(Request.Form("company_field"))
MailWebSite = Trim(Request.Form("website_field"))
MailCountry = Trim(Request.Form("country_field"))
MailSubject = Trim(Request.Form("subject_field"))
MailMessage = Trim(Request.Form("message_field"))
MailSettore = Trim(Request.Form("settore_field"))
MailIndirizzo = Trim(Request.Form("indirizzo_field"))
MailVia = Trim(Request.Form("via_field"))
MailCap = Trim(Request.Form("cap_field"))
MailNazione = Trim(Request.Form("nazione_field"))
MailTelefono = Trim(Request.Form("telefono_field"))
MailFax = Trim(Request.Form("fax_field"))
MailRadio01 = Trim(Request.Form("radio01_field"))
MailRadio02 = Trim(Request.Form("radio02_field"))
MailRadio03 = Trim(Request.Form("radio03_field"))
MailRadio04 = Trim(Request.Form("radio04_field"))
MailSenderIP = Request.ServerVariables("REMOTE_ADDR")

'Email Body Message Format
Dim MailBody
'Start Message Style
'Text Color : #939393
'Title Mouse Over : #D1F3FF
'Content Mouse Over : #EBFAFF
MailBody = MailBody & "<html>" & Vbcr
MailBody = MailBody & "<style>" & Vbcr
MailBody = MailBody & "/* " & Vbcr
MailBody = MailBody & " smooth taste table styles" & Vbcr
MailBody = MailBody & " written by Thomas Opp http://www.yaway.de" & Vbcr
MailBody = MailBody & "*/" & Vbcr
MailBody = MailBody & "table {" & Vbcr
MailBody = MailBody & " border-collapse: collapse;" & Vbcr
MailBody = MailBody & " border: 1px solid #38160C;" & Vbcr
MailBody = MailBody & " font: normal 11px verdana, arial, helvetica, sans-serif;" & Vbcr
MailBody = MailBody & " color: #939393;" & Vbcr
MailBody = MailBody & " background: #FFFFFF;" & Vbcr
MailBody = MailBody & " }" & Vbcr
MailBody = MailBody & "td, th {" & Vbcr
MailBody = MailBody & " border: 1px dashed #B85A7C;" & Vbcr
MailBody = MailBody & " padding: .8em;" & Vbcr
MailBody = MailBody & " color: #939393;" & Vbcr
MailBody = MailBody & " }" & Vbcr
MailBody = MailBody & "thead th, tfoot th {" & Vbcr
MailBody = MailBody & " font: bold 11px verdana, arial, helvetica, sans-serif;" & Vbcr
MailBody = MailBody & " border: 1px solid #A85070;" & Vbcr
MailBody = MailBody & " text-align: left;" & Vbcr
MailBody = MailBody & " background: #38160C;" & Vbcr
MailBody = MailBody & " color: #939393;" & Vbcr
MailBody = MailBody & " padding-top:6px;" & Vbcr
MailBody = MailBody & " }" & Vbcr
MailBody = MailBody & "tbody td a {" & Vbcr
MailBody = MailBody & " background: transparent;" & Vbcr
MailBody = MailBody & " text-decoration: none;" & Vbcr
MailBody = MailBody & " color: #939393;" & Vbcr
MailBody = MailBody & " }" & Vbcr
MailBody = MailBody & "tbody td a:hover {" & Vbcr
MailBody = MailBody & " background: transparent;" & Vbcr
MailBody = MailBody & " color: #FFFFFF;" & Vbcr
MailBody = MailBody & " }" & Vbcr
MailBody = MailBody & "tbody th a {" & Vbcr
MailBody = MailBody & " font: normal 11px verdana, arial, helvetica, sans-serif;" & Vbcr
MailBody = MailBody & " background: transparent;" & Vbcr
MailBody = MailBody & " text-decoration: none;" & Vbcr
MailBody = MailBody & " font-weight:normal;" & Vbcr
MailBody = MailBody & " color: #939393;" & Vbcr
MailBody = MailBody & " }" & Vbcr
MailBody = MailBody & "tbody th a:hover {" & Vbcr
MailBody = MailBody & " background: transparent;" & Vbcr
MailBody = MailBody & " color: #FFFFFF;" & Vbcr
MailBody = MailBody & " }" & Vbcr
MailBody = MailBody & "tbody th, tbody td {" & Vbcr
MailBody = MailBody & " vertical-align: top;" & Vbcr
MailBody = MailBody & " text-align: left;" & Vbcr
MailBody = MailBody & " }" & Vbcr
MailBody = MailBody & "tfoot td {" & Vbcr
MailBody = MailBody & " border: 1px solid #38160C;" & Vbcr
MailBody = MailBody & " background: #38160C;" & Vbcr
MailBody = MailBody & " padding-top:6px;" & Vbcr
MailBody = MailBody & " }" & Vbcr
MailBody = MailBody & ".odd {" & Vbcr
MailBody = MailBody & " background: #469ABD;" & Vbcr
MailBody = MailBody & " }" & Vbcr
MailBody = MailBody & "tbody tr:hover {" & Vbcr
MailBody = MailBody & " background: #EBFAFF;" & Vbcr ' Content mouse over color
MailBody = MailBody & " }" & Vbcr
MailBody = MailBody & "tbody tr:hover th," & Vbcr
MailBody = MailBody & "tbody tr.odd:hover th {" & Vbcr
MailBody = MailBody & " background: #D1F3FF;" & Vbcr ' Title mouse over color
MailBody = MailBody & " }" & Vbcr
MailBody = MailBody & " </style>" & Vbcr
'End Message Style
'Start Message Content
MailBody = MailBody & "<body id=""home"">" & Vbcr
MailBody = MailBody & "<table width=""707"">" & Vbcr
MailBody = MailBody & " <tfoot>" & Vbcr
MailBody = MailBody & " </tfoot>" & Vbcr
MailBody = MailBody & " <tbody>" & Vbcr
MailBody = MailBody & " <tr >" & Vbcr
MailBody = MailBody & " <th width=""143"" scope=""row"">Nome</th>" & Vbcr
MailBody = MailBody & " <td width=""224"">" & MailFName & "</td>" & Vbcr
MailBody = MailBody & " <th width=""143"" scope=""row"">Cognome</th>" & Vbcr
MailBody = MailBody & " <td width=""170"">" & MailLName & "</td>" & Vbcr
MailBody = MailBody & " </tr>" & Vbcr
MailBody = MailBody & " <tr>" & Vbcr
MailBody = MailBody & " <th width=""143"" scope=""row"">E-Mail</th>" & Vbcr
MailBody = MailBody & " <td>" & MailFrom & "</td>" & Vbcr
MailBody = MailBody & " <th width=""143"" scope=""row"">Azienda</th>" & Vbcr
MailBody = MailBody & " <td>" & MailCompany & "</td>" & Vbcr
MailBody = MailBody & " </tr>" & Vbcr
MailBody = MailBody & " <tr>" & Vbcr
MailBody = MailBody & " <th width=""143"" scope=""row"">Web Site</th>" & Vbcr
MailBody = MailBody & " <td>" & MailWebsite & "</td>" & Vbcr
MailBody = MailBody & " <th width=""143"" scope=""row"">Indirizzo IP</th>" & Vbcr
MailBody = MailBody & " <td>" & MailSenderIP & "</td>" & Vbcr
MailBody = MailBody & " </tr>" & Vbcr
MailBody = MailBody & " <tr>" & Vbcr
MailBody = MailBody & " <th width=""143"" scope=""row"">Provincia</th>" & Vbcr
MailBody = MailBody & " <td>" & MailCountry & "</td>" & Vbcr
MailBody = MailBody & " <th width=""143"" scope=""row""></th>" & Vbcr
MailBody = MailBody & " <td></td>" & Vbcr
MailBody = MailBody & " </tr>" & Vbcr
MailBody = MailBody & " <tr>" & Vbcr
MailBody = MailBody & " <th width=""143"" scope=""row"">Mansione</th>" & Vbcr
'MailBody = MailBody & " <td colspan=""3"">" & MailYourCompany & " - " & MailSubject & "</td>" & Vbcr
MailBody = MailBody & " <td colspan=""3"">" & MailSubject & "</td>" & Vbcr
MailBody = MailBody & " </tr>" & Vbcr
MailBody = MailBody & " <tr>" & Vbcr
MailBody = MailBody & " <th width=""143"" scope=""row"">Informazioni aggiuntive</th>" & Vbcr
MailBody = MailBody & " <td colspan=""3"">" & MailMessage & "</td>" & Vbcr
MailBody = MailBody & " </tr>" & Vbcr
MailBody = MailBody & " <tr>" & Vbcr
MailBody = MailBody & " <th width=""143"" scope=""row"">Settore attività</th>" & Vbcr
MailBody = MailBody & " <td colspan=""3"">" & MailSettore & "</td>" & Vbcr
MailBody = MailBody & " </tr>" & Vbcr
MailBody = MailBody & " <tr>" & Vbcr
MailBody = MailBody & " <th width=""143"" scope=""row"">Indirizzo</th>" & Vbcr
MailBody = MailBody & " <td colspan=""3"">" & MailIndirizzo & "</td>" & Vbcr
MailBody = MailBody & " </tr>" & Vbcr
MailBody = MailBody & " <tr>" & Vbcr
MailBody = MailBody & " <th width=""143"" scope=""row"">Numero</th>" & Vbcr
MailBody = MailBody & " <td colspan=""3"">" & MailVia & "</td>" & Vbcr
MailBody = MailBody & " </tr>" & Vbcr
MailBody = MailBody & " <tr>" & Vbcr
MailBody = MailBody & " <th width=""143"" scope=""row"">CAP</th>" & Vbcr
MailBody = MailBody & " <td colspan=""3"">" & MailCap & "</td>" & Vbcr
MailBody = MailBody & " </tr>" & Vbcr
MailBody = MailBody & " <tr>" & Vbcr
MailBody = MailBody & " <th width=""143"" scope=""row"">Nazione</th>" & Vbcr
MailBody = MailBody & " <td colspan=""3"">" & MailNazione & "</td>" & Vbcr
MailBody = MailBody & " </tr>" & Vbcr
MailBody = MailBody & " <tr>" & Vbcr
MailBody = MailBody & " <th width=""143"" scope=""row"">Telefono</th>" & Vbcr
MailBody = MailBody & " <td colspan=""3"">" & MailTelefono & "</td>" & Vbcr
MailBody = MailBody & " </tr>" & Vbcr
MailBody = MailBody & " <tr>" & Vbcr
MailBody = MailBody & " <th width=""143"" scope=""row"">Fax</th>" & Vbcr
MailBody = MailBody & " <td colspan=""3"">" & MailFax & "</td>" & Vbcr
MailBody = MailBody & " </tr>" & Vbcr
MailBody = MailBody & " <tr>" & Vbcr
MailBody = MailBody & " <th width=""143"" scope=""row"">Settore Interesse</th>" & Vbcr
MailBody = MailBody & " <td colspan=""3"">" & MailRadio01 & "</td>" & Vbcr

MailBody = MailBody & " " & Vbcr
MailBody = MailBody & " </tbody>" & Vbcr
MailBody = MailBody & "</table>" & Vbcr
MailBody = MailBody & "</body>" & Vbcr
MailBody = MailBody & "</html>" & Vbcr
'End Message Content

'For JMail Mail Component
on error resume next

if MailComponent="JMail.Message" then
Set JMail=Server.CreateObject("JMail.Message")
JMail.Charset=MailCharset
JMail.ContentType = "text/html" 'HTML Message Format
'JMail.ContentType = "text/plain"
JMail.From = MailServer
AddRecipient=MailTo
JMail.Subject = MailSubject
JMail.Body = MailBody
JMail.MailServerUserName = MailServerUser
JMail.MailServerPassword = MailServerPass
JMail.Send MailServer
Set JMail=Nothing

'For Persist ASPMail Mail Component
elseif MailComponent="Persits.MailSender" then
Set AspEmail = Server.CreateObject("Persits.MailSender")
AspEmail.Host = MailServer 'Required
AspEMail.Port = MailPort 'Optional. Port is 25 by default
AspEmail.Username = MailServerUser
AspEmail.Password = MailServerPass
AspEmail.From = MailServer 'Required
AspEMail.FromName = MailFName & MailLName
AspEMail.AddAddress=MailTo
AspEmail.Subject = MailSubject
AspEmail.Body = MailBody
AspEmail.IsHTML = true 'HTML Message Format
AspEmail.Charset = BBSxpCharset
AspEmail.Send
Set AspEmail=Nothing

'For CDO.Message Mail Component
elseif MailComponent="CDO.Message" then
Set CDO = CreateObject("CDO.Message")
With CDO
.To = MailTo
.From = MailFrom
.Subject = MailCompany
.HTMLBody = MailBody 'HTML Message Format
.Send
End With
end If

If Err Then Response.Write "The messages cannot sent to "&MailTo&"! Server Response: " & Err.Description & "<br>"
On Error GoTo 0

%>
 
Paolo69

Paolo69

Moderatore
Membro dello Staff
MOD
18 Feb 2010
555
13
18
Italy
www.caprioli.info
Ti spiego...

creativentt ha scritto:
Questo ti fa capire quanto mastico di ASP :)
Ecco il codice completo.


<%

**QUA CI SONO I SETTAGGI VARI

'Variables
Dim MailCharset, MailServer, MailServerUser, MailServerPass, MailTo, MailComponent
MailCharset = "ISO-8859-9" ' Mail message charset
MailServer = "mail.server.net" ' Your smtp mail server (Only for JMAil and ASPMail). If you don't known, please ask to your mail provider
MailServerPort = "25" ' Your smtp mail server port (default: 25).
MailServerUser = "[email protected]" ' SMTP server username (Only for JMAil and ASPMail)
MailServerPass = "password" ' SMTP server password (Only for JMAil and ASPMail)
MailTo = "[email protected]" ' Don’t forget to change "[email protected]" to receive the mail from contact form
'MailYourCompany = "Your Company" ' To subject prefix (Ex. Subject: Your Company - Sender Subject)
MailComponent = "CDO.Message" ' JMail > JMail.Message / Persist AspMail > Persits.MailSender / CDO.Message > CDO.Message

**QUA VENGONO, TRAMITE IL REQUEST RECUPERATI I CAMPI COMPILATI

'Request form fields
Dim MailFrom, MailFName, MailLName, MailCompany, MailWebsite, MailCountry, MailSubject, MailMessage
MailFrom = Trim(Request.Form("email_field"))
MailFName = Trim(Request.Form("fname_field"))
MailLName = Trim(Request.Form("lname_field"))
MailCompany = Trim(Request.Form("company_field"))
MailWebSite = Trim(Request.Form("website_field"))
MailCountry = Trim(Request.Form("country_field"))
MailSubject = Trim(Request.Form("subject_field"))
MailMessage = Trim(Request.Form("message_field"))
MailSettore = Trim(Request.Form("settore_field"))
MailIndirizzo = Trim(Request.Form("indirizzo_field"))
MailVia = Trim(Request.Form("via_field"))
MailCap = Trim(Request.Form("cap_field"))
MailNazione = Trim(Request.Form("nazione_field"))
MailTelefono = Trim(Request.Form("telefono_field"))
MailFax = Trim(Request.Form("fax_field"))
MailRadio01 = Trim(Request.Form("radio01_field"))
MailRadio02 = Trim(Request.Form("radio02_field"))
MailRadio03 = Trim(Request.Form("radio03_field"))
MailRadio04 = Trim(Request.Form("radio04_field"))
MailSenderIP = Request.ServerVariables("REMOTE_ADDR")

**QUA VI SONO LE IMPOSTAZIONI CSS DELLA MAIL

'Email Body Message Format
Dim MailBody
'Start Message Style
'Text Color : #939393
'Title Mouse Over : #D1F3FF
'Content Mouse Over : #EBFAFF
MailBody = MailBody & "<html>" & Vbcr
MailBody = MailBody & "<style>" & Vbcr
MailBody = MailBody & "/* " & Vbcr
MailBody = MailBody & " smooth taste table styles" & Vbcr
MailBody = MailBody & " written by Thomas Opp http://www.yaway.de" & Vbcr
MailBody = MailBody & "*/" & Vbcr
MailBody = MailBody & "table {" & Vbcr
MailBody = MailBody & " border-collapse: collapse;" & Vbcr
MailBody = MailBody & " border: 1px solid #38160C;" & Vbcr
MailBody = MailBody & " font: normal 11px verdana, arial, helvetica, sans-serif;" & Vbcr
MailBody = MailBody & " color: #939393;" & Vbcr
MailBody = MailBody & " background: #FFFFFF;" & Vbcr
MailBody = MailBody & " }" & Vbcr
MailBody = MailBody & "td, th {" & Vbcr
MailBody = MailBody & " border: 1px dashed #B85A7C;" & Vbcr
MailBody = MailBody & " padding: .8em;" & Vbcr
MailBody = MailBody & " color: #939393;" & Vbcr
MailBody = MailBody & " }" & Vbcr
MailBody = MailBody & "thead th, tfoot th {" & Vbcr
MailBody = MailBody & " font: bold 11px verdana, arial, helvetica, sans-serif;" & Vbcr
MailBody = MailBody & " border: 1px solid #A85070;" & Vbcr
MailBody = MailBody & " text-align: left;" & Vbcr
MailBody = MailBody & " background: #38160C;" & Vbcr
MailBody = MailBody & " color: #939393;" & Vbcr
MailBody = MailBody & " padding-top:6px;" & Vbcr
MailBody = MailBody & " }" & Vbcr
MailBody = MailBody & "tbody td a {" & Vbcr
MailBody = MailBody & " background: transparent;" & Vbcr
MailBody = MailBody & " text-decoration: none;" & Vbcr
MailBody = MailBody & " color: #939393;" & Vbcr
MailBody = MailBody & " }" & Vbcr
MailBody = MailBody & "tbody td a:hover {" & Vbcr
MailBody = MailBody & " background: transparent;" & Vbcr
MailBody = MailBody & " color: #FFFFFF;" & Vbcr
MailBody = MailBody & " }" & Vbcr
MailBody = MailBody & "tbody th a {" & Vbcr
MailBody = MailBody & " font: normal 11px verdana, arial, helvetica, sans-serif;" & Vbcr
MailBody = MailBody & " background: transparent;" & Vbcr
MailBody = MailBody & " text-decoration: none;" & Vbcr
MailBody = MailBody & " font-weight:normal;" & Vbcr
MailBody = MailBody & " color: #939393;" & Vbcr
MailBody = MailBody & " }" & Vbcr
MailBody = MailBody & "tbody th a:hover {" & Vbcr
MailBody = MailBody & " background: transparent;" & Vbcr
MailBody = MailBody & " color: #FFFFFF;" & Vbcr
MailBody = MailBody & " }" & Vbcr
MailBody = MailBody & "tbody th, tbody td {" & Vbcr
MailBody = MailBody & " vertical-align: top;" & Vbcr
MailBody = MailBody & " text-align: left;" & Vbcr
MailBody = MailBody & " }" & Vbcr
MailBody = MailBody & "tfoot td {" & Vbcr
MailBody = MailBody & " border: 1px solid #38160C;" & Vbcr
MailBody = MailBody & " background: #38160C;" & Vbcr
MailBody = MailBody & " padding-top:6px;" & Vbcr
MailBody = MailBody & " }" & Vbcr
MailBody = MailBody & ".odd {" & Vbcr
MailBody = MailBody & " background: #469ABD;" & Vbcr
MailBody = MailBody & " }" & Vbcr
MailBody = MailBody & "tbody tr:hover {" & Vbcr
MailBody = MailBody & " background: #EBFAFF;" & Vbcr ' Content mouse over color
MailBody = MailBody & " }" & Vbcr
MailBody = MailBody & "tbody tr:hover th," & Vbcr
MailBody = MailBody & "tbody tr.odd:hover th {" & Vbcr
MailBody = MailBody & " background: #D1F3FF;" & Vbcr ' Title mouse over color
MailBody = MailBody & " }" & Vbcr
MailBody = MailBody & " </style>" & Vbcr
'End Message Style

**QUA TROVI IL CORPO DELLA MAIL, OVVERO I CAMPI COMPILATI DAL VISITATORE CHE TI ARRIVANO

'Start Message Content
MailBody = MailBody & "<body id=""home"">" & Vbcr
MailBody = MailBody & "<table width=""707"">" & Vbcr
MailBody = MailBody & " <tfoot>" & Vbcr
MailBody = MailBody & " </tfoot>" & Vbcr
MailBody = MailBody & " <tbody>" & Vbcr
MailBody = MailBody & " <tr >" & Vbcr
MailBody = MailBody & " <th width=""143"" scope=""row"">Nome</th>" & Vbcr
MailBody = MailBody & " <td width=""224"">" & MailFName & "</td>" & Vbcr
MailBody = MailBody & " <th width=""143"" scope=""row"">Cognome</th>" & Vbcr
MailBody = MailBody & " <td width=""170"">" & MailLName & "</td>" & Vbcr
MailBody = MailBody & " </tr>" & Vbcr
MailBody = MailBody & " <tr>" & Vbcr
MailBody = MailBody & " <th width=""143"" scope=""row"">E-Mail</th>" & Vbcr
MailBody = MailBody & " <td>" & MailFrom & "</td>" & Vbcr
MailBody = MailBody & " <th width=""143"" scope=""row"">Azienda</th>" & Vbcr
MailBody = MailBody & " <td>" & MailCompany & "</td>" & Vbcr
MailBody = MailBody & " </tr>" & Vbcr
MailBody = MailBody & " <tr>" & Vbcr
MailBody = MailBody & " <th width=""143"" scope=""row"">Web Site</th>" & Vbcr
MailBody = MailBody & " <td>" & MailWebsite & "</td>" & Vbcr
MailBody = MailBody & " <th width=""143"" scope=""row"">Indirizzo IP</th>" & Vbcr
MailBody = MailBody & " <td>" & MailSenderIP & "</td>" & Vbcr
MailBody = MailBody & " </tr>" & Vbcr
MailBody = MailBody & " <tr>" & Vbcr
MailBody = MailBody & " <th width=""143"" scope=""row"">Provincia</th>" & Vbcr
MailBody = MailBody & " <td>" & MailCountry & "</td>" & Vbcr
MailBody = MailBody & " <th width=""143"" scope=""row""></th>" & Vbcr
MailBody = MailBody & " <td></td>" & Vbcr
MailBody = MailBody & " </tr>" & Vbcr
MailBody = MailBody & " <tr>" & Vbcr
MailBody = MailBody & " <th width=""143"" scope=""row"">Mansione</th>" & Vbcr
'MailBody = MailBody & " <td colspan=""3"">" & MailYourCompany & " - " & MailSubject & "</td>" & Vbcr
MailBody = MailBody & " <td colspan=""3"">" & MailSubject & "</td>" & Vbcr
MailBody = MailBody & " </tr>" & Vbcr
MailBody = MailBody & " <tr>" & Vbcr
MailBody = MailBody & " <th width=""143"" scope=""row"">Informazioni aggiuntive</th>" & Vbcr
MailBody = MailBody & " <td colspan=""3"">" & MailMessage & "</td>" & Vbcr
MailBody = MailBody & " </tr>" & Vbcr
MailBody = MailBody & " <tr>" & Vbcr
MailBody = MailBody & " <th width=""143"" scope=""row"">Settore attività</th>" & Vbcr
MailBody = MailBody & " <td colspan=""3"">" & MailSettore & "</td>" & Vbcr
MailBody = MailBody & " </tr>" & Vbcr
MailBody = MailBody & " <tr>" & Vbcr
MailBody = MailBody & " <th width=""143"" scope=""row"">Indirizzo</th>" & Vbcr
MailBody = MailBody & " <td colspan=""3"">" & MailIndirizzo & "</td>" & Vbcr
MailBody = MailBody & " </tr>" & Vbcr
MailBody = MailBody & " <tr>" & Vbcr
MailBody = MailBody & " <th width=""143"" scope=""row"">Numero</th>" & Vbcr
MailBody = MailBody & " <td colspan=""3"">" & MailVia & "</td>" & Vbcr
MailBody = MailBody & " </tr>" & Vbcr
MailBody = MailBody & " <tr>" & Vbcr
MailBody = MailBody & " <th width=""143"" scope=""row"">CAP</th>" & Vbcr
MailBody = MailBody & " <td colspan=""3"">" & MailCap & "</td>" & Vbcr
MailBody = MailBody & " </tr>" & Vbcr
MailBody = MailBody & " <tr>" & Vbcr
MailBody = MailBody & " <th width=""143"" scope=""row"">Nazione</th>" & Vbcr
MailBody = MailBody & " <td colspan=""3"">" & MailNazione & "</td>" & Vbcr
MailBody = MailBody & " </tr>" & Vbcr
MailBody = MailBody & " <tr>" & Vbcr
MailBody = MailBody & " <th width=""143"" scope=""row"">Telefono</th>" & Vbcr
MailBody = MailBody & " <td colspan=""3"">" & MailTelefono & "</td>" & Vbcr
MailBody = MailBody & " </tr>" & Vbcr
MailBody = MailBody & " <tr>" & Vbcr
MailBody = MailBody & " <th width=""143"" scope=""row"">Fax</th>" & Vbcr
MailBody = MailBody & " <td colspan=""3"">" & MailFax & "</td>" & Vbcr
MailBody = MailBody & " </tr>" & Vbcr
MailBody = MailBody & " <tr>" & Vbcr
MailBody = MailBody & " <th width=""143"" scope=""row"">Settore Interesse</th>" & Vbcr
MailBody = MailBody & " <td colspan=""3"">" & MailRadio01 & "</td>" & Vbcr

MailBody = MailBody & " " & Vbcr
MailBody = MailBody & " </tbody>" & Vbcr
MailBody = MailBody & "</table>" & Vbcr
MailBody = MailBody & "</body>" & Vbcr
MailBody = MailBody & "</html>" & Vbcr
'End Message Content

'For JMail Mail Component
on error resume next

**QUA, A SECONDO DEL SISTEMA DI TRASMISSIONE VI è LA SPEDIZIONE VERA E PROPRIA

if MailComponent="JMail.Message" then
Set JMail=Server.CreateObject("JMail.Message")
JMail.Charset=MailCharset
JMail.ContentType = "text/html" 'HTML Message Format
'JMail.ContentType = "text/plain"
JMail.From = MailServer
AddRecipient=MailTo
JMail.Subject = MailSubject
JMail.Body = MailBody
JMail.MailServerUserName = MailServerUser
JMail.MailServerPassword = MailServerPass
JMail.Send MailServer
Set JMail=Nothing

'For Persist ASPMail Mail Component
elseif MailComponent="Persits.MailSender" then
Set AspEmail = Server.CreateObject("Persits.MailSender")
AspEmail.Host = MailServer 'Required
AspEMail.Port = MailPort 'Optional. Port is 25 by default
AspEmail.Username = MailServerUser
AspEmail.Password = MailServerPass
AspEmail.From = MailServer 'Required
AspEMail.FromName = MailFName & MailLName
AspEMail.AddAddress=MailTo
AspEmail.Subject = MailSubject
AspEmail.Body = MailBody
AspEmail.IsHTML = true 'HTML Message Format
AspEmail.Charset = BBSxpCharset
AspEmail.Send
Set AspEmail=Nothing

'For CDO.Message Mail Component
elseif MailComponent="CDO.Message" then
Set CDO = CreateObject("CDO.Message")
With CDO
.To = MailTo
.From = MailFrom
.Subject = MailCompany
.HTMLBody = MailBody 'HTML Message Format
.Send
End With
end If

If Err Then Response.Write "The messages cannot sent to "&MailTo&"! Server Response: " & Err.Description & "<br>"
On Error GoTo 0

%>
Clicca per allargare...

FINE,
come vedi non ci sono controlli, probabilmente sono nell'interfaccia flash o hai qualche javascript.
Inviami anche la parte HTML.
Byeee
 
C

creativentt

Nuovo Utente
24 Nov 2011
3
0
0
GRAZIE! Ecco il codice nel flash, in fondo c'è la parte che credo cercavi... 'All Fields Required':


// Variables and Settings
stop();
error_message._alpha = 0;
System.useCodepage = true;
send_button.onRelease = function() {
ceform_vars = new LoadVars();
ceform_vars.fname_field = fname_field.text;
ceform_vars.lname_field = lname_field.text;
ceform_vars.email_field = email_field.text;
ceform_vars.company_field = company_field.text;
ceform_vars.website_field = website_field.text;
ceform_vars.country_field = country_field.text;
ceform_vars.subject_field = subject_field.text;
ceform_vars.message_field = message_field.text;
ceform_vars.settore_field = settore_field.text;
ceform_vars.indirizzo_field = indirizzo_field.text;
ceform_vars.via_field = via_field.text;
ceform_vars.cap_field = cap_field.text;
ceform_vars.nazione_field = nazione_field.text;
ceform_vars.telefono_field = telefono_field.text;
ceform_vars.fax_field = fax_field.text;
ceform_vars.radio01_field = radio01_field.text;
ceform_vars.radio02_field = radio02_field.text;
ceform_vars.radio03_field = radio03_field.text;
ceform_vars.radio04_field = radio04_field.text;

//Validating email
if (ceform_vars.email_field.indexOf("@") == -1 || ceform_vars.email_field.indexOf(".") == -1) {
// If email format is not valid, * text will appear:
email_validation.text = "*";
return false;
}

// If text fields are not blank the message will be sent
else if (ceform_vars.fname_field != "" and ceform_vars.lname_field != "" and ceform_vars.email_field != "" and ceform_vars.company_field != "" and ceform_vars.website_field != "" and ceform_vars.country_field != "" and ceform_vars.subject_field != "" and ceform_vars.message_field != "") {
ceform_vars.sendAndLoad("send_form.asp", ceform_vars, "POST");
gotoAndStop(21);

// Else if text fields are blank a warning message will appear
} else {
error_message._alpha = 100;
}

// After the message is sent the user will be redirected to frame 3
ceform_vars.onLoad = function() {
gotoAndPlay(30);
};
};

// If you click on another field “All Fields Required” will dissapear
fname_field.onSetFocus = lname_field.onSetFocus = email_field.onSetFocus = company_field.onSetFocus = website_field.onSetFocus = country_field.onSetFocus = subject_field.onSetFocus = message_field.onSetFocus = function () {
if (error_message._alpha != 0) {
error_message._alpha = 0;
}
};
 
Paolo69

Paolo69

Moderatore
Membro dello Staff
MOD
18 Feb 2010
555
13
18
Italy
www.caprioli.info
creativentt ha scritto:
GRAZIE! Ecco il codice nel flash, in fondo c'è la parte che credo cercavi... 'All Fields Required':


// Variables and Settings
stop();
error_message._alpha = 0;
System.useCodepage = true;
send_button.onRelease = function() {
ceform_vars = new LoadVars();
ceform_vars.fname_field = fname_field.text;
ceform_vars.lname_field = lname_field.text;
ceform_vars.email_field = email_field.text;
ceform_vars.company_field = company_field.text;
ceform_vars.website_field = website_field.text;
ceform_vars.country_field = country_field.text;
ceform_vars.subject_field = subject_field.text;
ceform_vars.message_field = message_field.text;
ceform_vars.settore_field = settore_field.text;
ceform_vars.indirizzo_field = indirizzo_field.text;
ceform_vars.via_field = via_field.text;
ceform_vars.cap_field = cap_field.text;
ceform_vars.nazione_field = nazione_field.text;
ceform_vars.telefono_field = telefono_field.text;
ceform_vars.fax_field = fax_field.text;
ceform_vars.radio01_field = radio01_field.text;
ceform_vars.radio02_field = radio02_field.text;
ceform_vars.radio03_field = radio03_field.text;
ceform_vars.radio04_field = radio04_field.text;

COMMENTA IL CODICE CON LE DOPPIE BARRE = //

//Validating email
// if (ceform_vars.email_field.indexOf("@") == -1 || ceform_vars.email_field.indexOf(".") == -1) {
// If email format is not valid, * text will appear:
// email_validation.text = "*";
// return false;
// }

// If text fields are not blank the message will be sent
// else if (ceform_vars.fname_field != "" and ceform_vars.lname_field != "" and ceform_vars.email_field != "" and ceform_vars.company_field != "" and ceform_vars.website_field != "" and ceform_vars.country_field != "" and ceform_vars.subject_field != "" and ceform_vars.message_field != "") {
// ceform_vars.sendAndLoad("send_form.asp", ceform_vars, "POST");
// gotoAndStop(21);

// Else if text fields are blank a warning message will appear
// } else {
// error_message._alpha = 100;
// }

// After the message is sent the user will be redirected to frame 3
// ceform_vars.onLoad = function() {
// gotoAndPlay(30);
// };
// };

// If you click on another field “All Fields Required” will dissapear
// fname_field.onSetFocus = lname_field.onSetFocus = email_field.onSetFocus = company_field.onSetFocus = website_field.onSetFocus = country_field.onSetFocus = subject_field.onSetFocus = message_field.onSetFocus = function () {
// if (error_message._alpha != 0) {
// error_message._alpha = 0;
// }
// };
Clicca per allargare...

prova così
 
Devi accedere o registrarti per poter rispondere.
Discussioni simili
Autore Titolo Forum Risposte Data
G Disposizione campi HTML e CSS 6
L Ripetere Campi disabilitando input in riferimento ad un valore della select jQuery 0
G Campi multivalore Database 0
M Memorizzare i dati nei campi prima dell'invio al db PHP 4
D Stampa a video solo campi compilati MySQL 1
M Form: come tornare ai campi già compilati dopo invio PHP 1
M Array associativi php su 2 campi mysql PHP 10
D popolare campi tra th alla select PHP 36
G VBA OpenForm con WhereCondition + LIKE su campi differenti MS Access 5
B Stringa sql per ricerca su più campi Database 1
F Leggere e aggiornare dati di campi <input text> su file di test PHP 0
M Compilazione automatica campi in input stessa pagina PHP 0
MarcoGrazia Gestire lista campi vuoti in fase di autenticazione jQuery 1
M Aggiornare simultaneamente i campi di due tabelle collegate con id PHP 4
L aggiornare 2 campi di una tabella insieme PHP 6
L Estrazione valori max su più campi MySQL 4
L Campi obbligatori form php PHP 0
T Campi static del Controller generico si azzerano ad ogni richiesta PHP 3
elpirata Popolare campi tabella con totali estratti da database PHP 24
A [Javascript] Scrittura su più campi contemporaneamente Javascript 18
D Salvare in diversi campi mysql con diversi ID PHP 0
R [WordPress] Inserire campi aggiuntivi ad un Submit Form già dato dal template (front-end) WordPress 0
Domenico_Falco1 [Javascript] [HTML] Campi form con sfondo imposto dal browser Javascript 5
M [PHP] Query UPDATE che non mi aggiorna campi seconda tabella PHP 3
L [Javascript] Select option in campi input Javascript 4
D [ASP] Autocomplete cerca su 2 campi del db Classic ASP 1
elpirata [Javascript] Controllo campi required non effettuato Javascript 2
L [PHP] Form da select compilare campi automaticamente PHP 1
E Validazione campi form passati da link Programmazione 0
Cosina [PHP] Preservare i campi del form solo se l'invio non ha successo PHP 5
S [PHP] Selezionare i campi non in comune con le altre colonne della tabella PHP 4
A [MS Access] Somma Campi se in altro campo presente un determinato testo MS Access 1
M [PHP] Compilare campi in automatico con dati presi dal DB PHP 25
C [MySQL] Copiare campi di un record in un nuovo record MySQL 0
N [Java] Piccolo jform per calcolo totale da 2 campi i double Java 0
elpirata [MySQL] Sostituire valori campi con dati casuali MySQL 4
M [PHP] Sommare due campi calcolati PHP 3
R [Javascript] Togliere Campi obbligatori Javascript 7
P [PHP] Intercettare ed aggiornare campi di un database PHP 5
V [Javascript] [HTML] Attivazione nuovi campi di input Javascript 2
L [MS Access] come popolare automaticamente i campi di una sottomaschera MS Access 8
M [PHP] Escludere campi non valorizzati PHP 22
Q Problema su come far aggiornare i campi su un database Mysql PHP 17
C Creazione di una funzione per il filtraggio dei campi di un db Presentati al Forum 0
gandalf1959 [PHP] Dividere un campo di testo in più campi PHP 9
felino Risolto - [Wordpress][WooCommerce] PayPal Checkout e campi di fatturazione WordPress 2
S [PHP] form campi a completamento automatico dal DB PHP 5
F Controllo dati sui campi di input tramite php PHP 1
paloppa [PHP] Campi che appaiono dopo aver compilato un determinato campo PHP 7
webmachine [WOOCOMMERCE][WORDPRESS] Campi CheckOut PRE-COMPILATI E-Commerce 0

Discussioni simili

Alto Basso