<%
Dim mail
Set mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smsng.net" ' Specify a valid SMTP server IP or your domain name
Mail.From = "Visitors@smsng.Net" ' Specify sender's address
'here you have to specify your Imail username and password For authentication
'---------------------------------------
Mail.Username = "info@smsng.net"
Mail.Password = "systems"
'-----------------------------------
Mailbody = "This Link has been sent to you by a friend." & vbcrlf & "Click on the link below to visit the Website" & vbcrlf & " "
Mail.AddAddress request.Form("femail") 'receiver address
Mail.Subject = "Invitation to visit Systems Maintenance Specialist Ltd. Website"
Mail.Body = Mailbody & "http://www.smsng.net" & vbcrlf & " " & vbcrlf & " " & vbcrlf & "Note: Do not reply to this email!"
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
End If
%>
Systems Maintenance
Specialist Ltd.
Tell a Friend
"Your invitation
has been sent to: <%=request.Form("femail")%>
