aiuto con codice

[neronemassimo]

ciao ho un problema con questo codice.
in pratica è la registrazione ad un forum, ma la mail che si riceve non è in formato html quindi il link da cliccare per attivarlo non si riesce a cliccare.
cosa devo modificare per favore?
qualcuno sa aiutarmi?


if strEmail = "1" and strRestrictReg = "0" then
'## E-mails Message to the Author of this Reply.
strRecipientsName = Request.Form("Name")
strRecipients = Request.Form("Email")
strFrom = strSender
strFromName = strForumTitle
strsubject = strForumTitle & " Registrazione "
strMessage = "Ciao " & Request.Form("name") & vbNewline & vbNewline
strMessage = strMessage & "hai ricevuto questo messaggio dal " & strForumTitle & " perché ti sei registrato per inserire messaggi e rispondere alle discussioni del forum " & strForumURL & vbNewline & vbNewline
if strAuthType="db" then
'################################### E-mail Validation Mod #################################
if strEmailVal = "1" then
'### mod registrazione
strMessage = strMessage & "La tua chiave di attivazione è: " & actkey & vbNewline & vbNewline
'### Registration MOD

strMessage = strMessage & "Per favore clicca sul link sotto per completare la tua registrazione." & vbNewline & vbNewLine
strMessage = strMessage & strForumURL & "register.asp?actkey=" & actkey & vbNewline & vbNewline
else
'################################################# #####################################
strMessage = strMessage & "Password: " & Request.Form("Password") & vbNewline & vbNewline
end if '<---- E-mail Validation Mod - 1 line #############
end if
strMessage = strMessage & "Puoi modificare le tue informazioni personali e la password selezionando il link ""Profilo"" in cima a tutte le pagine del forum." & vbNewline & vbNewline
strMessage = strMessage & "Buona Permanenza sul nostro Forum!"
%>

[Galex]

nel pezzo di codice che hai postato manca proprio il pezzo di invio vero e proprio,dove si imposta il formato dell'email,che dipende da cosa usi x inviare la email (es. CDONTS)

[neronemassimo]

proprio sotto la finale %>

cè un file include...
ma quello funziona perfettamente peri inviare le altre mail in formato htlm e arrivano benissimo!

a uso cdosys
cmq lo posto lo stesso

case "cdosys"
Set iConf = Server.CreateObject ("CDO.Configuration")
Set Flds = iConf.Fields

'Set and update fields properties
Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'cdoSendUsingPort
Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strMailServer
'Flds("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
'Flds("http://schemas.microsoft.com/cdo/configuration/sendusername") = "username"
'Flds("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
Flds.Update

Set objNewMail = Server.CreateObject("CDO.Message")
Set objNewMail.Configuration = iConf

'Format and send message
Err.Clear

objNewMail.To = strRecipients
objNewMail.From = strSender
objNewMail.Subject = strSubject
objNewMail.HTMLBody = strMessage
On Error Resume Next
objNewMail.Send
If Err <> 0 Then
Err_Msg = Err_Msg & "[*]La tua richiesta non è andata a buon fine per il seguente errore: " & Err.Description & ""
End if