<% submitted = request.form("submitted") if submitted then strName = request.form("name") strCompany = request.form("company") strAddress = request.form("address") strCity = request.form("city") strState = request.form("state") strZipCode = request.form("zip_code") strPhone = request.form("phone") strFax = request.form("Fax") strEmail = request.form("email") strPurchaseDate = request.form("expected_purchase_date") strLength = request.form("length") strWidth = request.form("width") strHeight = request.form("heigth") strTempRange = request.form("temperature_range") strCustTempRange = request.form("custom_temp_range") strTempControl = request.form("temperature_control_stability") strNotes = request.form("notes") For numIndex = 1 to Request.Form.Count strFieldName = Request.Form.key(numIndex) strFieldValue = Request.Form.Item(numIndex) If strFieldName <> "expected_purchase_date" And strFieldName <> "custom_temp_range" And strFieldName <> "length" And strFieldName <> "width" And strFieldName <> "height" And strFieldName <> "notes" Then If strFieldValue = "" Then strErrors = strErrors & replace(strFieldName,"_"," ") & " is required.
" ElseIf strFieldName = "email" then if Not ValidEmail(strFieldValue) then strErrors = strErrors & "Invalid email address.
" end if End If End If Next if lcase(strTempRange) = "custom range room" then strTempRange = strCustTempRange end if if len(strErrors) <= 0 then strBody = vbNewLine & _ "Name=" & strName & vbNewLine & vbNewLine & _ "Company=" & strCompany & vbNewLine & vbNewLine & _ "Address=" & strAddress & vbNewLine & vbNewLine & _ "City=" & strCity & vbNewLine & vbNewLine & _ "Zip Code=" & strZipCode & vbNewLine & vbNewLine & _ "Phone=" & strPhone & vbNewLine & vbNewLine & _ "Fax=" & strFax & vbNewLine & vbNewLine & _ "E-mail=" & strEmail & vbNewLine & vbNewLine & _ "Expected Purchase Date=" & strPurchaseDate & vbNewLine & vbNewLine & _ "Length=" & strLength & vbNewLine & vbNewLine & _ "Width=" & strWidth & vbNewLine & vbNewLine & _ "Height=" & strHeight & vbNewLine & vbNewLine & _ "Temperature Range=" & strTempRange & vbNewLine & vbNewLine & _ "Temperature Control Stability=" & strTempControl & vbNewLine & vbNewLine & _ "Additional Notes=" & strNotes & vbNewLine Call SendMailCDONTS("sales@thermmax.com", "Request Quote Form", strBody, "info@thermmax.com") response.redirect ("thanks.html") end if end if Public Function ValidEmail(value) If IsNull(value) = False Then ValidEmail = Len(RegExpTest((value), "^(?:[0-9A-Z_-]+(?:\.[0-9A-Z_-]+)*@[0-9A-Z-]+(?:\.[0-9A-Z-]+)*(?:\.[A-Z]{2,4}))$", True, True)) > 0 Else ValidEmail = False End If End Function Public Function RegExpTest(value, strPattern, flgIgnoreCase, flgGlobal) Dim strMatchResult Dim objRegExp Dim objMatch Dim objMatches Set objRegExp = New RegExp objRegExp.Pattern = strPattern objRegExp.IgnoreCase = flgIgnoreCase objRegExp.Global = flgGlobal Set objMatches = objRegExp.Execute(value) For Each objMatch In objMatches If Len(strMatchResult) > 0 Then strMatchResult = strMatchResult & ", " End If strMatchResult = strMatchResult & "" & objMatch.value & "" Next RegExpTest = strMatchResult Set objMatch = Nothing Set objMatches = Nothing Set objRegExp = Nothing End Function Sub SendMailCDONTS(aTo, Subject, TextBody, aFrom) Const CdoBodyFormatText = 1 Const CdoBodyFormatHTML = 0 Const CdoMailFormatMime = 0 Const CdoMailFormatText = 1 Dim Message 'As New cdonts.NewMail 'Create CDO message object Set Message = CreateObject("cdonts.NewMail") With Message 'Set email adress, subject And body .To = aTo .Subject = Subject .Body = TextBody 'set mail And body format .MailFormat = CdoMailFormatText .BodyFormat = CdoBodyFormatText 'Set sender address If specified. If Len(aFrom) > 0 Then .From = aFrom 'Send the message .Send End With End Sub %> Environmental Rooms | Walk-in Environmental Room & Cold Room Installation
Environmental Rooms | Thermmax Scientific ProductsEnvironmental Rooms | Thermmax Scientific Products 2975 Advance Lane
Colmar, PA 18915
Call Today: 800-899-3774
Fax: 267-308-1687
sales@thermmax.com		 Thermmax Scientific Products
Home | Thermmax Scientific Products
Thermmax Capabilities
Engineering Support for Environmental Room Projects
Environmental Room Construction Highlights
Condensing Units for Environmental Rooms
Controlled Environment Room | Instrumentation
Standard Environmental Room Specifications
Installation and Service of your Environmental Room
Thermmax | Recent Customers
Photo Gallery of Environmental Room Projects
Contact Thermmax Scientific Products
Download Thermmax Literature
Sitemap | Thermmax Scientific Products
Frequently Asked Questions about Environmental Room Services
Employment at Thermmax Scientific Products
UGI HVAC Enterprises
 

Request a Quote

  
 

<% if len(strErrors) > 0 then %> <% end if%>
Error(s):
<%=strErrors%>

ENVIROMENTAL ROOM WORKSHEET
Name*  
Company*  
Address*  
City*  
State*  
Zip Code*  
Phone*  
Fax*  
E-mail*  

Fields marked with * are required.
Expected Purchase Date:  

Room Specification

Room Dimensions
Length  
Width
Height

Temperature Range
value="Cold Room +4 Deg C" name="Temperature_Range">Cold Room:  +4°C
name="Temperature_Range" value="Freezer Room -20 Deg C">Freezer Room:  -20°C
name="Temperature_Range" value="Freezer Room -40 Deg C">Freezer Room:  -40°C
name="Temperature_Range" value="Ultra Low Temp Freezer -70 to -80 Deg C">Ultra-Low Temperature Walk-In Freezer:  -70°C to -80°C
name="Temperature_Range" value="Incubator Room +35 to +45 Deg C">Incubator Room: 35°C to 45°C
name="Temperature_Range" value="Environmental Room 0 to +60 Deg C">Environmental Room:  -40°C to +50°C
name="Temperature_Range" value="Custom Range Room">Custom Range Room: 

Temperature Control Stability: ± °C

Additional Notes


 
Copyright © 2006 Thermmax Scientific Products
Walk-in Controlled Environmental Room Design, Manufacture, and Installation for Scientific and Industrial Applications.