Invio Mail

[Sonikag]

Immagino sia un argomento stra-trattato ma sto cercando di adattare uno script.

Dunque ho un file sendmail.inc

<%Function SendMail(fromname,fromaddress,recname,recaddress,Hbody,Tbody,subj)
Set MyMail = Server.CreateObject("CDONTS.NewMail")
MyMail.From       = "prova@prova.it"
MyMail.To         = "ppp@ppp.it"
MyMail.Subject    = "Prova Mail"
MyMail.Body       = "Prova di invio e-mail"
MyMail.Importance = 0
MyMail.Send
Set MyMail = nothing
%>

pagina asp:

<% If Request.Form("nominativo") = "" OR Request.Form("telefono") = "" Then %>


Occorre compilare tutti i campi contrassegnati con l'asterisco (*).

Riprova</p>
<% Else 

	DIM Subject , TBody , HBody , Prod

	Subject = "Richiesta informazioni dal sito ppp.IT"

	TBody = "Nominativo: " & Request.Form("nominativo") & VbCrLf
	TBody = TBody & "Azienda: " & Request.Form("azienda") & VbCrLf
	TBody = TBody & "Città: " & Request.Form("citta") & VbCrLf
	TBody = TBody & "Nazione: " & Request.Form("nazione") & VbCrLf
	TBody = TBody & "Telefono: " & Request.Form("telefono") & VbCrLf
	TBody = TBody & "E-mail: " & Request.Form("mail") & VbCrLf
	TBody = TBody & "Messaggio: " & Request.Form("Messaggio") & VbCrLf

	HBody = "Nominativo: " & Request.Form("nominativo") & "
"
	HBody = HBody & "Azienda: " & Request.Form("azienda") & "
"
	HBody = HBody & "Città: " & Request.Form("citta") & "
"
	HBody = HBody & "Nazione: " & Request.Form("nazione") & "
"
	HBody = HBody & "Telefono: " & Request.Form("telefono") & "
"
	HBody = HBody & "E-mail: " & Request.Form("mail") & "
"
	HBody = HBody & "Messaggio: " & Request.Form("messaggio") & "
"
		

	Msg = sendmail(Request.Form("nominativo"),Request.Form("telefono"),"ppp","ppp@ppp.it",HBody,TBody,Subject)

	If Msg = "YES" Then
		Response.Write("

Messaggio inviato con successo.
Sarete ricontattati al più presto.</p>
")
	Else
		Response.Write(Msg & "
")
	End If
End If
%>

In un secondo momento nel mio file .inc metterò come valori le variabili che gli passo ma adesso vorrei capire perchè se compilo la mia form ricevo questo errore:

Microsoft VBScript compilation error '800a0411'

Name redefined

/new/contatti2.asp, line 47

DIM Subject , TBody , HBody , Prod
--------------^

[Roby_72]

Hai ridefinito con la DIM quelle variabili più di una volta.

Roby

[Sonikag]

mmm... non ho capito... che significa? che dovrei fare? (sono un filino a digiuno da asp se non si fosse capito)

[gensole]

leva questa riga

DIM Subject , TBody , HBody , Prod

e vedi come va

[Sonikag]

Commentando quella stringa è cambiato errore....

dunque:

Microsoft VBScript compilation error '800a03f6'

Expected 'End'

/new/contatti2.asp, line 75


la linea 75 è l'ultima del codice della pag ASP che ho postato sopra.

Ho fatto un controllo ma essendoci 2 if in fondo ho giustamente 2 end if.

[Sonikag]

UP

[Roby_72]

Come hai commentato la stringa?

Roby

[Sonikag]

apostrofo!

O.T. Ho eliminato la riga e lo script parrreebbbe funzionare.