non so piu dove sbattere la testa e sono disposto a pagare qualcosina pur di rispolvere il mio problema.
ho un forum e devo mandare da una pagina register.asp una mail tramite inc_mail.asp in cui cè un link da cliccare per attivare una key.

problema è che il link e il messaggio non sono in formato html quindi è un casino e non riesco ad attivare gli utenti...

register.asp:

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!"
%>






inc_mail.asp :

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")
'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

se qualcuno puo aiutarmi o dire dove sbaglio.
se posso sono disposto a pagare anche piccola cifra
grazie