chiedo davvero aiuto con codice

[neronemassimo]

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

[optime]

standing ovation per il titolo del thread

[fero]

io per inviare le mail in html uso questo

DIM iMsg, Flds, iConf

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

With iMsg
	Set .Configuration = iConf
	.To = DESTINATARIO
	.From = MITTENTE
        .Subject = OGGETTO
	.HTMLBody = MESSAGGIO
								
	.Send
End With

dove il msg è una pagina html

[neronemassimo]

mi sa che non ci siamo capiti...
io non posso cambiare il codice che cè li ma cercare solo di modificarlo.
infatti da un altra parte mi va in html e spedisco mailinglist

grazie

[santino83]

devi formattare il testo della email come se stessi scrivendo in html. es:

testo_email="Clicca qui per confermare la tua registrazione"

[neronemassimo]

chiedo troppo forse....

visto che il testo che devo mandare è quello li spra e prende i campi da un form ecc...
non è che puoi scrivermelo tu perche ho paura di sbagliare le variabili ecc...


'###################################
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
'###################################
########################################
###########


un po difficile trasformarlo in html penso o sbaglio?

[santino83]

cos'è strForumUrl? il nome di una pagina? se è una cosa del tipo "forum.asp" allora viene

strMessage = strMessage & "Per favore clicca sul link sotto per completare la tua registrazione." & vbNewline & vbNewLine 

strMessage = strMessage & "LINK oppure scrivi questo link nella barra degli indirizzi: http://www.tuosito.com/register.asp?actkey=" & actkey & vbNewline & vbNewline

[neronemassimo]

strMessage è la variabile che prende dai vari include della registrazionequindi dal forum...
ora provo un po a vedere...

sei davvero gentile....

[neronemassimo]

sto provando ma mi sa che nel tuo esempio, ed è anche il mio piu grande problema...mancano o ci sono sbagliate un po di virgolette " ' ecc....

che casino...

[santino83]

fattela stampare a video prima di inviare l'email così vedi se c'è qualche errore