Salve a tutti ho un problema con l'invio dell'email di conferma su server aruba ho visto che bisogna usare il cdosys di seguito il codice e ringrazio anticipatamente chi gentilmente mi darà una mano a correggere il codice..
----------------------------------------------------------------------------------
'Send a mail...
Dim sMsg
'''''''''''''''''''''''''''''''''''''''''
Dim objMail
set objMail = server.createobject("CDONTS.Newmail")
objMail.From = g_OutgoingMailFrom
objMail.To = sEmail
objMail.Subject = "Benvenuto"
sMsg = "Grazie per aver scelto il nostro servizio " & g_strTitle & "!" & vbCrLf & vbCrLf
sMsg = sMsg & "I dati della tua registrazione sono i seguenti:" & vbCrLf
sMsg = sMsg & "-----------------------------" & vbCrLf
sMsg = sMsg & "Userid:" & nNewId & vbCrLf
sMsg = sMsg & "Password:" & sPassword & vbCrLf
sMsg = sMsg & "-----------------------------" & vbCrLf
sMsg = sMsg & "1. Per farti votare inserisci il seguente codice html nelle tue pagine o in seguito potrai scegliere uno dei vari codici:" & vbCrLf& vbCrLf
sMsg = sMsg & "[img]" & g_strButtonImagePath1 & "[/img]" & vbCrLf& vbCrLf
sMsg = sMsg & "2. Per modificare il tuo account : " & g_strPath & "/admin.asp" & vbCrLf
sMsg = sMsg & "3. Per visitare il nostro sito: " & g_strPath & "/index.asp" & vbCrLf& vbCrLf
objMail.Body = sMsg
objMail.Send
Set objMail= Nothing
'Redirect to show page
Response.Redirect "conferma.asp?id=" & nNewId
Response.Flush
Response.End
End If
End If
Rispondi quotando
