Hasmit.biz - Contact Us

<%strBody= "Email From: " & request.form("Name") & vbcrlf & "Email Address: " & request.form("Email") & vbcrlf & "Contact No: " & request.form("Contact") & vbcrlf & "Inquiry: " & request.form("Inquiry") Set objMail = CreateObject("CDO.Message") Set objConfig = CreateObject("CDO.configuration") Set objFields = objConfig.Fields With objFields .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.hasmit.biz" .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "web@hasmit.biz" .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "oh123" .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")=10 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25 .Update End With With objMail Set .Configuration = objConfig if request.form("region")="Brunei" then .To ="marketing@hasmit.biz" else .To ="export@hasmit.biz" End if .bcc="esjay@blacksnail.biz" .From = "web@hasmit.biz" .Subject = "From hasmit.biz Subject: " & request.form("Subject") .TextBody = strBody On Error Resume Next .send If err.number <> 0 Then Response.Write "Form not Submitted! Please try again." & err.description else Response.write "Enquiry submitted successfully" End If end with %>