<%
sub SendToCompany
Dim from, body, username, password, port, subject
From=request.form("contact_email")
'UserName="mail@websonic.com"
'Password="r**3FFiy^"
'Port="2525"
UserName="david@thermochemistry.com"
Password="david"
Port="25"
Subject="Contact from ThermoChemistry.com"
body = "Name: " & request("contact_fullname") & " "
body = body & "Organization: " & request("contact_organization") & " "
body = body & "Address: " & request("contact_streetaddress") & " "
body = body & "Address2: " & request("contact_address2") & " "
body = body & "City: " & request("contact_city") & " "
body = body & "State: " & request("contact_state") & " "
body = body & "Zip Code: " & request("contact_zipcode") & " "
body = body & "Country: " & request("contact_country") & " "
body = body & "Work Phone: " & request("contact_workphone") & " "
body = body & "Fax: " & request("contact_fax") & " "
body = body & "Email: " & request("contact_email") & " "
body = body & "Comments: " & request("S1")
SendMailCDOSYS from,request("recipient"),subject,body,True, "mail.thermochemistry.com",username, password
end sub
sub SendToCustomer
Dim from, body, username, password, port, subject
From=request("recipient")
'UserName="mail@websonic.com"
'Password="r**3FFiy^"
'Port="2525"
UserName="david@thermochemistry.com"
Password="david"
Port="25"
Subject="Confirmation of email sent to Thermochemistry.com"
body = "This is an automated response confirming that we have received your contact form submission. We will contact you shortly."
body = body & "Thank you for visiting Thermochemistry.com!"
SendMailCDOSYS request("recipient"),request("contact_email"),subject,body,True, "mail.thermochemistry.com",username, password
end sub
%>
Accelerating rate, differential scanning calorimetry testing
Kinetica, Inc. ISO 17025 Certified
Thermoanalytical Testing Services for the Chemical Process Industry
CONTACT
US
.
.
<%if request("submit") <> "" then
SendToCompany
SendToCustomer
response.write "Thank you for your request. Customer service will contact you shortly."
else
%>
