:: Hassan Radhi & Associates ::

Firm Profile

Postal Address:


Hassan Radhi & Associates
P.O. Box 5366
Manama, Kingdom of Bahrain
Arabian Gulf
Office Address: Hassan Radhi & Associates
605 Diplomat Tower
Diplomat Area
Manama, Kingdom of Bahrain
Location Address: Building 315 - Road 1705 - Block 317
Telephone: 00973 17535252 (8:00 am - 7:00 pm, Sun-Thu)
Voice Mail: 00973 17535252 (24 hours, 7 days a week)
Fax: 00973 17533358 (24 hours, all days)
Email: radhilaw@batelco.com.bh

E-mail us directly: <% if request("Submit")="" then %>
* Name:   Company:
* Email:   Subject:
* Message:

 
<% else dim Cname, Ccompany, Cemail, Csubject, Cmessage Cname = request("Name") Ccompany = request("Company") Cemail = request("email") Csubject = request("Subject") Cmessage = request("Message") str="" str=str + "" str=str + "" str=str + "" str=str + "" str=str + "" str=str + "
Name:"&Cname&"
Company:"&Ccompany&"
E-Mail:"&Cemail&"
Subject:"&Csubject&"
Message:"&Cmessage&"
" 'Response.Write(str) dim objMessage Set objMessage = CreateObject("CDO.Message") 'objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="mail.alnadeem.com" objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 objMessage.Configuration.Fields.Update '//////////////////////////////////////////////////////////////// ' Modify below fields only '//////////////////////////////////////////////////////////////// objMessage.From = Cemail 'write "FROM" email address objMessage.To ="radhilaw@batelco.com.bh" 'write "TO" email addresses 'objMessage.To ="laila@alnadeem.com" 'write "TO" email addresses 'objMessage.CC ="laila@alnadeem.com" 'write "CC" List of email addresses 'objMessage.Bcc="ameerali@alnadeem.com" 'write "BCC" list of email addresses objMessage.Subject = "Feedback Form" 'Write the subject of the mail objMessage.HTMLBody = str 'write Body of the mail '//////////////////////////////////////////////////////////////// ' Ends '//////////////////////////////////////////////////////////////// objMessage.Send Set objMessage = Nothing response.write("Mail has been Sent") set objMail=nothing end if %>