|
|
Send your Query and contact
with us.
<%
if strSend <> "" then
Dim ObjMail, msgResult
Dim subj
subj=strSubject & " " & " [ " & session("strName") & " ] "
msgResult=msgResult+"Dear"+" "+cstr(session("strName"))+chr(13)+chr(13)
msgResult=msgResult+"Thanks for communicating. Your query will be duly attended by us. We shall thankfully and heartily accept your suggestion (if any) as regards improvement of our service."+chr(13)+chr(13)
msgResult=msgResult+"With regards."+chr(13)+chr(13)
msgResult=msgResult+"= = = = = = = = = = = = = = = = = = = = = = = = = ="+chr(13)+chr(13)
msgResult=msgResult+"Name:"+" "+cstr(session("strName"))+chr(13)+chr(13)
msgResult=msgResult+"Address:"+" "+cstr(strAddress)+chr(13)+chr(13)
msgResult=msgResult+"Phone No.:"+" "+cstr(strPhone)+chr(13)+chr(13)
msgResult=msgResult+"Email:"+" "+cstr(strEmail)+chr(13)+chr(13)
msgResult=msgResult+"Message:"+" "+cstr(strComments)+chr(13)+chr(13)
msgResult=msgResult+"= = = = = = = = = = = = = = = = = = = = = = = = = ="+chr(13)
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.Send "mlicoltd@citechco.net", strEmail, Subj, msgResult
Set objMail = Nothing
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.Send strEmail,"mlicoltd@citechco.net", subj, msgResult
Set objMail = Nothing
response.redirect("feedback_send.asp")
end if
%>
Meghna Life Insurance Co. Ltd.
Biman Bhaban
(2nd floor)
100, Motijheel C/A.,
Dhaka-1000.
Phone :
880-2-9558297,
9558993, 9556204
Fax No. : 880-2-7171942
e-mail : mlicoltd@citechco.net
|
|
