<%if request("j")<>"" then Dim maill dim stremail if Request.Form("em") <> "" then stremail = Request.Form("em") else stremail="webmaster@sharper-vision.com" end if Set maill = CreateObject("CDONTS.NewMail") maill.from=stremail maill.to="vision@sharper-vision.com" maill.subject="Website Contact - Sharper Vision" strBody= "First Name: " & Request.Form("first") & "
" strBody = strBody & "Last Name: " & Request.Form("last") & "
" strBody = strBody & "Company: " & Request.Form("company") & "
" strBody = strBody & "Telephone: " & Request.Form("tel") & "
" strBody = strBody & "Fax: " & Request.Form("fax") & "
" strBody = strBody & "E-mail: " & Request.Form("em") & "
" strBody = strBody & "Address: " & Request.Form("Address") & "
" strBody = strBody & "Country: " & Request.Form("country") & "
" strBody = strBody & "Subject: " & Request.Form("subject") & "
" strBody = strBody & "Comment: " & Request.Form("request") & "
" maill.mailformat=0 maill.bodyformat=0 maill.body=strBody maill.send Set maill = Nothing tex="Your comments have been successfully sent." end if%>
Sharper Vision
<%if tex<>"" then%>
<%=tex%>
<%end if%>
First Name *
:
Last Name *
:
Company
:
Telephone
:
Fax
:
Email
:
Address
:
Country
:
Subject
:
Comment *
:
SHARPER VISION S.A.R.L.
7 B Hamra Square, Hamra street - P.O. box: 11-253.
Beirut, Lebanon
Tel: (01) 346977 - 346988 / Fax: (01) 347098
Cellular: (03) 313939
Email:
vision@sharper-vision.com