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

Dunque ho un file sendmail.inc

codice:
<%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:

codice:
<% 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
--------------^