<%
Set Mail = Server.CreateObject("Persits.MailSender")
' Handle "Send Message" button
Mail.Host = "10.1.1.28" ' replace it with your own SMTP server address
If Request("Submit") <> "" Then
Mail.IsHTML = True
Mail.From = "PartRequesthfse.com"
Mail.FromName = "Part Request"
Mail.Subject = "A Part Request has been submitted"
MailMsg = "Someone has submitted the following information via http://www.hfse.com/PartRequest.html:"
MailMsg = MailMsg & "
"
MailMsg = MailMsg & "
"
MailMsg = MailMsg & "
Name:
" & Request("name") & "
"
MailMsg = MailMsg & "
Email Address:
" & Request("email") & "
"
MailMsg = MailMsg & "
Zip:
" & Request("zip") & "
"
MailMsg = MailMsg & "
Country:
" & Request("country") & "
"
MailMsg = MailMsg & "
Phone:
" & Request("phone") & "
"
MailMsg = MailMsg & "
Ext #:
" & Request("extension") & "
"
MailMsg = MailMsg & "
Part Information:
" & Request("Part Information") & "
"
MailMsg = MailMsg & "
Info Checkbox:
" & Request("infocheckbox") & "
"
MailMsg = MailMsg & "
Preferred Contact Method - Phone:
" & Request("phonecontact") & "
"
MailMsg = MailMsg & "
Preferred Contact Method - Email:
" & Request("emailcontact") & "
"
MailMsg = MailMsg & "
"
Mail.Body = MailMsg
Mail.AddAddress "PartRequest@hfse.com", "PartRequest"
ErrStr = ""
' send regular (no signature)
On Error Resume Next
if not Mail.Send Then
ErrStr = Err.Description
Else
'arrTo.RemoveAll
'arrCc.RemoveAll
'arrBcc.RemoveAll
'arrFiles.RemoveAll
ErrStr = "success"
End If
On Error Goto 0 ' cancel On Error Resume Next
End If
' Handle "Add Address" buttons
Session("Count") = Session("Count") + 1
'If Request("Address") <> "" Then arrTo.Add Session("Count"), CStr(Request("Address"))
'If Request("CCAddress") <> "" Then arrCc.Add Session("Count"), CStr(Request("CCAddress"))
'If Request("BccAddress") <> "" Then arrBcc.Add Session("Count"), CStr(Request("BccAddress"))
' Handle Delete command
'If Request("DeleteTo") <> "" Then arrTo.Remove CInt(Request("DeleteTo"))
'If Request("DeleteCc") <> "" Then arrCc.Remove CInt(Request("DeleteCc"))
'If Request("DeleteBcc") <> "" Then arrBcc.Remove CInt(Request("DeleteBcc"))
'MsgBox "Information Received. Thank you!"
%>
Heritage Food Service Equipment, Restaurant Equipment Parts, Repair Parts, Commercial Kitchen Parts, Restaurant Parts, Replacement Parts
.
Heritage Service Group represents one of the finest and LARGEST providers of Commercial Kitchen Equipment Repair Service and Replacement Parts in the United States.
WE KNOW SERVICE!
We understand the importance
of "Minimizing Downtime", especially on equipment critical to your daily operation. We'll get you up and running quickly and efficiently.
24 Hour Emergency Service – 7 Days A Week
Same Day/Next Day Service
Hot Side/Cold Side Equipment Repair
Factory Authorized Warranty Service
Preventative Maintenance Programs Available
Simple/Straightforward Invoices with "No Hidden Fees"
