<%
Dim tester
tester = request.form("submit")
if tester = "Submit" then
Dim Message, email, objMail
email = request.form("email")
Message = "you have been contacted:" & chr(13)
Message = Message & "The user submitted the following information" & chr(13) & chr(13)
For Each Key In Request.Form ()
Message = Message & Key & " = " & Request.Form(Key) & chr(13)
Next
set objMail = CreateObject("CDONTS.NewMail")
objMail.To = "contact@hkktrading.com" ''''''''''''''''''''''''''''''''''''' FIX ME
objMail.From = email
objMail.subject = "Contact Form "
objMail.Body = Message
objMail.Send
Set objMail = nothing
else
%>
<% end if %>
Tel : + 961
9 223647 – 220769 – 220771
Fax: + 961 9 223648
Radio Liban Libre Bldg.,
3rd Fl., Adonis
P.O.Box: 1698 / Jounieh, Lebanon
|
|
| 
Tel: +971 4 3197825
Fax: +971 4 3303365
Level 41, Emirates Towers,
Sheikh Zayed Road,
P.O.Box: 31303, Dubai, U.A.E.
|
|
 |
| |
|
| 
Tel: + 965 5742270–5710133–5730884
Fax: + 965 5710083
P.O.Box: 1122 / Salmia 22012
|
|
| 
Tel : +17864281020
Fax: +17864281021
5200 NW 185 Street
Miami Lakes, FL 33014 – USA
Mail To: P.O.Box 4571
Miami Lakes, Fl 33014 - USA
|
|
| |
| |
|
|