Problema Form Mail

[tanzem]

Ciao a tutti.

Ho un problema con l'invio di una mail da uno script risiedente su un server aruba.

La mail arriva... ma la pagina di invio mi da un errore e non mi fa leggere il "responso" da me stabilito in html.

questo è il codice:

<%
Function SendMail(From,Rcpt,Subject,Body)
Set objMailer = CreateObject("CDONTS.Newmail")
objMailer.From = From
objMailer.To = Rcpt
objMailer.Subject = Subject
objMailer.Body = Body
objMailer.Send
Set objMailer = Nothing
End Function

mit = Request.Form("requiredc23")

testo3=""
testo4=""
testo5=""

if Request.Form("c9") = "Gennaio" Then mese = "01"
if Request.Form("c9") = "Febbraio" Then mese = "02"
if Request.Form("c9") = "Marzo" Then mese = "03"
if Request.Form("c9") = "Aprile" Then mese = "04"
if Request.Form("c9") = "Maggio" Then mese = "05"
if Request.Form("c9") = "Giugno" Then mese = "06"
if Request.Form("c9") = "Luglio" Then mese = "07"
if Request.Form("c9") = "Agosto" Then mese = "08"
if Request.Form("c9") = "Settembre" Then mese = "09"
if Request.Form("c9") = "Ottobre" Then mese = "10"
if Request.Form("c9") = "Novembre" Then mese = "11"
if Request.Form("c9") = "Dicembre" Then mese = "12"

datespecial = Request.Form("c10") + "-" + mese + "-" + Request.Form("c8")

if Request.Form("c9") = "*" Then datespecial = "No date"
if Request.Form("c10") = "*" Then datespecial = "No date"
if Request.Form("c8") = "*" Then datespecial = "No date"

testo = "-------------------------------------------------------------------" + VBCrLf
testo = testo + "E-MAIL GENERATA DA CA' DEL DUCA IN LINGUA INGLESE" + VBCrLf
testo = testo + "-------------------------------------------------------------------" + VBCrLf + VBCrLf
testo = testo + "OBJECT: " + Request.Form("Richiesta di prenotazione") + VBCrLf + VBCrLf
if Request.Form("c2") <> "" Then testo2 = testo2 + "Nr Camere: " + Request.Form("c2") + VBCrLf
if Request.Form("c3") <> "" Then testo2 = testo2 + "Tipo di camera: " + Request.Form("c3") + VBCrLf
if Request.Form("c7") <> "" Then testo2 = testo2 + "TOTALE PERSONE: " + Request.Form("c7") + VBCrLf
if testo2 <> "" Then Testo2 = Testo2 + VBCrLf

data1 = Request.Form("c8") + " " + Request.Form("c9") + " " + Request.Form("c10")
if Request.Form("c9") = "*" Then data1 = "Nodate"
if Request.Form("c10") = "*" Then data1 = "Nodate"
if Request.Form("c8") = "*" Then data1 = "Nodate"
if data1 <> "Nodate" Then testo3 = Testo3 + "ARRIVO: " + data1 + VBCrLf

if Request.Form("c14") <> "" Then testo5 = "TOTALE NOTTI: " + Request.Form("c14") + VBCrLf

block2 = testo3+testo4+testo5


if block2<>"" then block2 = block2 + VBCrLf

if Request.Form("c15") <> "" Then block3 = "RICHIESTE PARTICOLARI: " + Request.Form("c15")+ VBCrLf + VBCrLf

block4 = VBCrLf + "-------------------------------------------------------------------" + VBCrLf
block4 = block4 + "DATI ANAGRAFICI DEL CLIENTE" + VBCrLf
block4 = block4 + "-------------------------------------------------------------------" + VBCrLf + VBCrLf

if Request.Form("requiredc17") <> "" Then block4 = block4 + "NOMINATIVO: " + Request.Form("requiredc17") + VBCrLf
if Request.Form("requiredc23") <> "" Then block4 = block4 + "EMAIL: " +Request.Form("requiredc23") + VBCrLf

SendMail mit, "info@cadelduca.com", <h2></h2>datespecial+"  -  "+Request.Form("c1") , testo+testo2+block2+block3+block4

%>

La riga in grassetto è quella segnalata dall'errore.

E questo è l'errore :

Microsoft VBScript compilation error '800a03ea'

Syntax error

/engl/mail.asp, line 77

SendMail mit, "info@cadelduca.com", <h2></h2>datespecial+" - "+Request.Form("c1") , testo+testo2+block2+block3+block4
------------------------------------^


Qualcuno può aiutarmi a riselvere ??

Mi sareste di grande aiuto !!

Grazie !

Gabriele

[Roby_72]

SendMail mit, "info@cadelduca.com", "<h2></h2>datespecial+"  -  "+Request.Form("c1") , testo+testo2+block2+block3+block4

Roby

[tanzem]

Grazie Roby

Mi sono accorto della mancanza delle virgolette ed ho effettuato le modifiche in questo modo:

SendMail mit, "info@cadelduca.com", "<h2></h2>datespecial+"  -  "+Request.Form("c1")" , "testo+testo2+block2+block3+block4"

Ma tuttora non funziona !

Manca ancora qualcosa per caso ?

Tnx

[Roby_72]

SendMail mit, "info@cadelduca.com", "<h2></h2>"+datespecial+"  -  "+Request.Form("c1")+" , "testo+testo2+block2+block3+block4"

Roby