Salve a tutti ho un problema con l'invio di email su aruba in particolar modo con la registrazione degli utenti e quindi l'invio dell'email di conferma .. di seguito vi riporto il codice. grazie anticipatamente
----------------------------------------------------------------------
'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 & "<a href='" & g_strPath & "/rankem.asp?id=" & CStr(nNewId) & "'><img src='" & g_strButtonImagePath1 & "'></a>" & 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
---------------------------------------------------------------------------------
----------------------------------------------------------------------
'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 & "<a href='" & g_strPath & "/rankem.asp?id=" & CStr(nNewId) & "'><img src='" & g_strButtonImagePath1 & "'></a>" & 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
---------------------------------------------------------------------------------