<%@LANGUAGE="VBSCRIPT"%>
<%
'
' To add more info to the Body of your email message:
' 1) comment in the '& vbcrlf&_ at the end of the Mail.Body line
' 2) edit the Additional Fields shown as examples
'
' NOTE: This server requires ASPEmail Server Component to be installed on your web server
' visit http://www.aspemail.com for more details
If Request.Form("submit") = "Submit" Then
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.mdindustries.com" ' Specify a valid SMTP server mail.yourserver.com
Mail.Username = "info@mdindustries.com"
Mail.Password = "bullet350"
' Mail.From = cStr(Request("varFrom")) 'Senders Email Address
' Mail.From = "MD Industries"
Mail.From = "testme@mdindustries.com"
' Mail.FromName = cStr(Request("varFromName")) ' Specify sender's name
Mail.FromName = "MD Industries"
Mail.AddAddress cStr(Request("Email")) 'Recipient Email Address
' Mail.AddCC cStr(Request("varCC")) 'Carbon Copy Email Address
Mail.AddCC "obiztek@gmail.com"
' Mail.Subject = cStr(Request("varSubject")) 'Email Subject
Mail.Subject = "Enquiry Form|www.mdindustries.com"
'Mail.Body = cStr(Request("varBody")) '& vbcrlf&_
' "Additional Field1 Value Name: " & cStr(Request("varYourField1"))& vbcrlf&_
' "Additional Field2 Value Name: " & cStr(Request("varYourField2"))& vbcrlf&_
For Each name In Request.Form
formName = name
formValue = Request.Form(formName)
strContent = strContent&formName&" : "&formValue& vbcrlf
Next
' Mail.Body = strContent
Mail.Body = strContent & vbcrlf&_
" Thank you.We will respond to your enquiry within next 4 working days"
On Error Resume Next
Mail.Send
Set Mail = Nothing 'Clean up your objects!!!
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
End If
Response.Redirect("do-enquiry-form.asp") 'comment this in to use this to redirect page after delivery
' Response.Write("Message Delivered") 'default response
End If
%>
Enquiry Form | M.D.Industries
Adjusting
the Gaps ...
Shims, Spacers, Thrust Washers
ENQUIRY FORM