Syntax error

[masterb81]

ciao a tutti,
sto cercando di fare una procedura passando 4 parametri.
Ho questo errore:

Error Type:
Microsoft VBScript compilation (0x800A03EA)
Syntax error


la procedura riga in errore è questa

sub inviomail(nome,cognome,password,email)

Dove sbaglio???
altre info
- chiamo la procedura da un'altra procedura così
call inviomail(nome,cognome,password,email)

- nella procedura dove vi è la call vi è anche l'include del file asp con la procedura da eseguire

- le variabili sono dichiarate (nella procedura dove vi è la chiamata)

grazie

[santino83_11_04]

l'errore di sintassi sarà dentro il metodo

[masterb81]

cosa vui dire con "dentro il metodo"???

se alla stessa procedura non passo parametri non ho problemi di sintassi

grazie

[Roby_72]

A maggior ragione...

Roby

[optime]

posta un po' di codice

[santino83_11_04]

Originariamente inviato da masterb81
cosa vui dire con "dentro il metodo"???

se alla stessa procedura non passo parametri non ho problemi di sintassi

grazie

come che vuol dire? vuol dire che dentro la SUB che hai c'è un errore di sintassi che si verifica in determinate situazioni....

[masterb81]

questa è tutta la procedura (invio mail dato con nome,cognome,psw e mail)

grazie per l'aiuto , intanto io cerco un'altro modo per inviare una mail


<%
sub inviamail (nome,cognome,password,email)

DIM corpoMessaggio, invioA, invioDa, nomeDominio, modulo,



invioA = "xxxxxxxxxxxxx"


invioDa = email



corpoMessaggio = "Nome = " & nome & " Cognome = "& cognome & " Indirizzo E-mail = " & email

'* creo gli oggetti cdosys sul server e li gestisco

DIM iMsg, Flds, iConf

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.xxxxx.yy"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
Set .Configuration = iConf
.To = invioA
.From = email
.Sender = invioDa
.Subject = "Registrazione nuovo utente "
.TextBody = "Richiesta registrazione nuovo utente da" & nome ....
.Send
End With

end sub
%>

[santino83_11_04]

 .TextBody = "Richiesta registrazione nuovo utente da" & nome ....

togli quei puntini alla fine oppure mettili tra " "

[masterb81]

era un mio commento per dire ecc ecc....

[santino83_11_04]

Originariamente inviato da masterb81
era un mio commento per dire ecc ecc....

c'è una virgola di troppo qui:

DIM corpoMessaggio, invioA, invioDa, nomeDominio, modulo,
--------------------------------------------------------^

o pure questo è un tuo commento?