Form Contatti

**Elwoodux** · 25-04-2006, 13:41

Ciao ragazzi,
ho un problema:

non riesco a far andare un form x i contatti nè in IE nè in Firefox.

Vi lascio link alla pagina in cui è caricato:
http://www.orthosystem.it/newsite/contatti.html

ed il codice, sperando mi possiate dare una mano.

mail.asp :

codice:

<%@ LANGUAGE="VBSCRIPT" %>
<html>

<head>
<meta NAME="GENERATOR" Content="Microsoft FrontPage 3.0">
<meta HTTP-EQUIV="Content-Type" content="text/html;charset=iso-8859-1">
<title>CDONTSMail</title>
<%
      Sub Write(strWriteThis)
         'This subroutine just writes out whatever is
         'passed to it.
         response.write(strWriteThis & "
")
      end sub

      %>
</head>

<body>
<%
         Dim myCDONTSMail
         Dim strFrom
         Dim strTo
         Dim strSubject
         Dim strBody
         Dim lngImportance
 
         'The following variable assignments are not required
         'they are just here to make interpretation of the
         'myCDONTSMail.Send line easier.  You could put the
         'Request.Form statements in the .Send line to cut down
         'on the amount of code in the file.
         strFrom=request.form("txtEmail")
         strTo="elwoodux@fastwebnet.it"
         strSubject=request.form("txtOggetto")
         strBody=request.form("txtNome") & " " & request.form("txtCognome") & " ha inviato il seguente messaggio:"& CHR(13) & request.form("txtMessaggio") & CHR(13) & CHR(13) & request.form("txtNome") & request.form("txtCognome") & " ha inoltre reso disponibili i seguenti recapiti:" & CHR(13) & "E-mail: " & request.form("txtEmail") & CHR(13) & "Indirizzo: Via"& CHR(47) &"P.zza: " & request.form("txtVia") &  CHR(13) & " Città: " & request.form("txtCitta") & CHR(13) & " in Provincia di " & request.form("txtProvincia") &  CHR(13) & " C.A.P. " & request.form("txtCap") &  CHR(13) & " Nazione " & request.form("txtNazione") & CHR(13) & CHR(13) & CHR(13) & "----------------" & CHR(13) & "i dati di cui sopra si riferiscono " & request.form("txtIndirizzo")       
		
		 
		 'lngImportance = request.form("optImportance")

         'The following four lines of code are just here for test
         'purposes to see what variables have been pulled in from the
         'HTM form.
         'Write("strFrom = " & strFrom)
         'Write("strTo = " & strTo)
         'Write("strSubject = " & strSubject)
         'Write("strMessage = " & strBody)
         'Write("Importance = " & lngImportance)

         Set myCDONTSMail = CreateObject("CDONTS.NewMail")
         myCDONTSMail.MailFormat = 1
         myCDONTSMail.Send strFrom,strTo,strSubject,strBody

    'Set myCDONTSMail  = Nothing
         'Write "Mail has been sent."    
		 
		 'if myCDONTSMail.Send then
	'Response.Write "_root.boxtext.testo.tween1.EmailStatus=Complete - Your mail has been sent"
   'else
	'Response.Write "__root.boxtext.testo.tween1.EmailStatus=Failure - Your mail was not sent - errors"
	'Response.Write myCDONTSMail.Response
'end if 



         %>
</body>
</html>

l'indirizzo mail è corretto, ma non mi ritorna indietro nulla.
dove sbaglio?
avete correzioni, suggerimenti per cortesia?

Grazie.

Elwood

**Elwoodux** · 25-04-2006, 17:07

un aiutino per piacere.
El

**santino83** · 25-04-2006, 17:16

in che senso non ti torna indietro nulla? non ti arrivano email all'indirizzo segnato?

**Elwoodux** · 25-04-2006, 17:27

Esattamente.
Ho provato anche a variare l'indirizzo mettendone sempre un altro valido, ma nn mi arriva nulla, anche a distanza di ore.

Il codice vi sembra a posto?

**santino83** · 25-04-2006, 17:32

boh ad occhio mi sembra corretto

che succede se togli il commento a queste righe?

codice:

		 'if myCDONTSMail.Send then
	'Response.Write "_root.boxtext.testo.tween1.EmailStatus=Complete - Your mail has been sent"
   'else
	'Response.Write "__root.boxtext.testo.tween1.EmailStatus=Failure - Your mail was not sent - errors"
	'Response.Write myCDONTSMail.Response
'end if

**Elwoodux** · 25-04-2006, 17:36

cioè provo ad eliminare quelle righe?

**santino83** · 25-04-2006, 17:41

no, provi a eliminare gli apici ad inizio riga...

**Elwoodux** · 25-04-2006, 17:46

Quindi verrebbe così:

codice:

if myCDONTSMail.Send then
	Response.Write "_root.boxtext.testo.tween1.EmailStatus=Complete - Your mail has been sent"
   else
	Response.Write "__root.boxtext.testo.tween1.EmailStatus=Failure - Your mail was not sent - errors"
	Response.Write myCDONTSMail.Response
end if

provo a uppare.
El

**Elwoodux** · 25-04-2006, 18:14

Nulla, non mi arriva nulla.

Tra l'altro quando compilo i campi e dò invio, dopo che è comparsa la riga "Messaggio inviato" i campi restano occupati.

Se non si riesce a mettere a posto questo form, ne conoscete altri da applicare magari in questo stile?

Elwood

**Dirk Pitt** · 25-04-2006, 18:58

codice:

corso = request("corso")
data = request("data")
prezzo = formatCurrency(request("prezzo"))
prezzo = replace(prezzo, "€", "euro")
iva = formatCurrency(request("iva"))
iva = replace(iva, "€", "euro")
totale = formatCurrency(request("totale"))
totale = replace(totale, "€", "euro")
iscrizione_aedo = request("nr_iscrizione")
nome = request("nome")
cognome = request("cognome")
professione = request("professione")
indirizzo = request("indirizzo")
cap = request("cap")
localita = request("localita")
provincia = request("provincia")
da_fatturare_a = request("da_fatturare_a")
indirizzo_fatt = request("indirizzo_fatt")
cap_fatt = request("cap_fatt")
localita_fatt = request("localita_fatt")
provincia_fatt = request("provincia_fatt")
pi_cf = request("pi_cf")
telefono = request("telefono")
fax = request("fax")
email = request("email")
pagamento = request("pagamento")

Dim myMail 
		Set myMail = Server.CreateObject("CDONTS.NewMail") 
		myMail.From = email  
		myMail.To = "tuaemail@tuaemail.it"  
		myMail.Subject = "Iscrizione al corso " & corso & " del " & data & ""
		myMail.BodyFormat = 1 
		myMail.Body = "Nuova iscrizione ai corsi di formazione." & VbCrLf & "Di seguito i dati inseriti:" & VbCrLf & "Corso: " & corso & VbCrLf & "Data: " & data & VbCrLf & "Nome e Cognome: " & nome & " " & cognome & VbCrLf & "Professione: " & professione & VbCrLf & "Indirizzo: " & indirizzo & VbCrLf & "CAP: " & cap & "   Località: " & localita & "   Provincia: " & provincia & VbCrLf & "Da Fatturare a: " & da_fatturare_a & VbCrLf & "Indirizzo: " & indirizzo_fatt & VbCrLf & "CAP: " & cap_fatt & "   Località: " & localita & "   Provincia: " & provincia_fatt & VbCrLf & "P.IVA/Codice Fiscale: " & pi_cf & VbCrLf & "Telefono: " & telefono & "  Fax: " & fax & VbCrLf & "email: " & email & VbCrLf & "Prezzo corso: " & prezzo & VbCrLf & "IVA: " & iva & VbCrLf & "Totale: " & totale & VbCrLf & "Pagamento: " & pagamento & ""  
		
		myMail.Send 

		Set myMail = Nothing

Ovviamente cambia le variabili ed ovviamente il body.

Discussione: Form Contatti

Strumenti discussione

Ricerca discussione

Visualizza

Form Contatti

Permessi di invio