Hi-tech Engineers >> Feedback |
<%
if request("Submit")= "Submit" then
nam=request("name")
email=request("email")
phone=request("phone")
mobile=request("mobile")
subj=request("subj")
msg=request("msg")
On Error Resume Next
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "hitechsugarequip.com"
objEmail.To = "hitechsugarequip.com"
objEmail.Subject = "Feed Back from hitechsugarequip.com"
objEmail.HTMLBody = "
Contact Information : Name : "&nam&" E-mail ID : "&email&" Phone : "&phone&" Mobile : "&mobile&" Subject : "&subj&" Message : "&msg
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.hitechsugarequip.com"
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = "1"
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mail@hitechsugarequip.com"
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "jinex1"
objEmail.Configuration.Fields.Update
objEmail.Send
If Not err.number=0 Then
Response.write "ERROR: " & err.Description
err.Clear
end if
response.Write("Thanks for your response, We Will contact u soon.")
else
%>
<%end if%> |
|
|
|