<%
public function sendEmail1(EaddTo,body,subject)
Dim objCDO
Set objCDO = Server.CreateObject("Persits.MailSender")
EaddFrom = "brett@newfacedesign.ca"
'Basic Send Options
objCDO.Host = "localhost"
objCDO.AddAddress EaddTo
objCDO.From = EaddFrom
objCDO.Subject = subject
objCDO.Body = body
objCDO.IsHTML = True
objCDO.Send
set objCDO=nothing
end function
public function sendEmail(EaddTo,body,subject)
On Error resume Next
Dim mailer
Set mailer = Server.CreateObject("CDONTS.NewMail")
If IsObject (mailer) Then
mailer.Host = "localhost"
mailer.From = "brett@newfacedesign.ca"
mailer.To = EaddTo
mailer.Subject = subject
mailer.Body = body
mailer.Importance = 1
mailer.BodyFormat = 0
mailer.value("Reply-to")=""
mailer.Send
Set mailer = nothing
Else
Response.Write("Message not sent please inquire it to administrator")
End If
end function
public function mailToFriend(nname,email,message)
subject = nname & " has send you topic to read"
body = "Hello your friend "
body = body & nname & " has send you topic to read.
"
body = body & "Topic is as bellow :
"
body = body & "
"
body = body & message
body = body & "
Thank You.
Red Lightning Records Team"
call sendEmail(email,body,subject)
end function
public function mailForEnquiry()
dim rs10
set rs10 = server.CreateObject("ADODB.Recordset")
sql10="select * from tblUser"
rs10.Open sql10,db,3
TotalRec10=rs10.recordcount
rs10.movelast
body = "Hello " & rs10.fields("UserName")
'body = body & "," & vbCrLf & vbCrLf & "Thanks for registering at Red Lighting Records ! We are glad you have chosen to be a part of our community and we hope you enjoy your stay." & vbCrLf & vbCrLf & "Thanks again," & vbCrLf & "Red Lighting Records team"
body = body & ",
Thanks for registering at Red Lighting Records !
We are glad you have chosen to be a part of our community and we hope you enjoy your stay.
Thanks again,
" & "Red Lighting Records team"
call sendEmail(rs10.fields("Email"),body,"Welcome to Red Lighting Records")
end function
public function mailForPassword(usernm)
dim rs
set rs = server.CreateObject("ADODB.Recordset")
sqlstr = "select * from tblUser where UserName = '" & usernm & "'"
rs.Open sqlstr,db
rs.movefirst
'body = "This message is sent to you from the RED LIGHTNING RECORDS password retrieval system." & vbCrLf
'body = body &"=======================================================================" & vbCrLf & vbCrLf
'body = body & "Dear " & rs("Username") & "," & vbCrLf & vbCrLf & " Your password for the system is " & rs("Password") & vbCrLf & vbCrLf & "Thank You" & vbCrLf & "Red Lightning Records Team " & vbCrLf
'body = body & vbCrLf & "=======================================================================" & vbCrLf
body = "This message is sent to you from the RED LIGHTNING RECORDS password retrieval system.
Dear " & rs("Username") & ","
body = body & "
"
body = body & "Your password for the system is :" & rs("Password") & ""
body = body & "
"
body = body & "Thank You.
Red Lightning Records Team "
subject = "Red Lightning Records : Password Retrieval"
call sendEmail(rs("Email"),body,subject)
end function
%>