invio pagina html con CDOSYS

[puffetto]

salve a tutti
dovrei inseire una pagina html con all'interno dell'iindirizzo delle variabili però non vi riesco:

questo è l'indirizzo:
"http://www.sito.com/directory1/"& id_nome &"mail.asp?nome="& nome &"&tips="& tips

e questo è il codice che utilizzo:

<%
Dim iMsg, iConf, Flds

'Crea l'oggetto email 
Set iMsg = CreateObject("CDO.Message")
'Crea l'oggetto configurazione 
Set iConf = CreateObject("CDO.Configuration")
'Impostazione delle configurazioni per l'invio remoto
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True

'Spedizione: mittente, destinatario, oggetto, messaggio
mittente = "info@email.com"
destinatario = email
oggetto = "Ecco una prova!!!"
messaggio = "Invio con CDOSYS"
url= "http://www.sito.com/directory1/"
With iMsg

'Assegnazione delle configurazioni
Set .Configuration = iConf

.From = mittente
.To = destinatario
.Subject = oggetto
.TextBody = messaggio


'Invio di una pagina web
.CreateMHTMLBody  url 
'Invia l'email 
.Send() 

end with

set Flds = Nothing
set iConf = Nothing
set iMsg = Nothing
%>

così come scritto funge
ma se vado a sostituire

url= "http://www.sito.com/directory1/"

con

url= "http://www.sito.com/directory1/"& id_nome &"mail.asp?nome="& nome &"&tips="& tips

mi da errore

ho provato a sostituire apici doppi apici virgolette ecc ma niente da fare

...mi date una mano

[Roby_72]

Ti da proprio errore?
Quale?
Fatti stampare l'url prima di mandarlo in pasto alla email e vediamo...

Roby

[puffetto]

questo è l'errore che mi da:
------
CDO.Message.1 error '80040218'

Unknown Error

/grandenovita1/email.asp, line 31

-------
alla riga 31:

.CreateMHTMLBody url

--------

nb: url= "http://www.sito.com/grandenovita1/"& id_nome &"mail.asp?nome="& nome &"&tips="& tips

a video scrive:

http://www.sito.com/grandenovita1/jo...aaaaaa&tips=24

[puffetto]

[Ramboexp]

Se scegli .texbody non puoi anche inviare una pagina web.
Credo si debba scegliere o l'una o l'altra