<% Dim HTML Dim txt_Body txt_Body ="

Thank you for using our website. We will reply on your message soon

Submitted Info:

Full Name: "& Request.Form("fullname") & _ "
Email: "& Request.Form("emailaddress") If Request.Form("mobile")<> "" then txt_Body = txt_Body & "
Mobile: " & Request.Form("mobile") End If If Request.Form("comments")<> "" then txt_Body = txt_Body & "
Message: " & Request.Form("comments") End If HTML = "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "
" HTML = HTML & "
 

 

" & txt_Body & "

" HTML = HTML & "
" HTML = HTML & "" HTML = HTML & "" Set ObjMail = Server.CreateObject("CDO.Message") Set oMailConfig = Server.CreateObject ("CDO.Configuration") oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 oMailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 oMailConfig.Fields.Update Set ObjMail.Configuration = oMailConfig ObjMail.From = "webmaster@josephhaddad.info" ObjMail.To = "info@josephhaddad.info" ObjMail.Cc = Request.Form("emailaddress") ObjMail.Bcc = "proinnssarl@hotmail.com" ObjMail.Subject = "Contact Form sent by "& Request.Form("emailaddress") objMail.HTMLBody = HTML On Error Resume Next Msg = "" HiddenOp = Request.Form("H_Op") If strComp(HiddenOp, "submit", 1) = 0 Then ObjMail.Send Msg = "Your Mail Has Been Sent Successfully" End If On Error Resume Next If Err.Number <> 0 Then Msg = "Error Occured! " & Err.Description End If %>
Joseph Haddad // Services
  • Ski Instructor
  • Swimming Instructor
  • Water Polo Referee
  • Football & Basketball Trainer
// Contact Me
Mobile: +961 70 859 495

Email: info@josephhaddad.info