<% '---------------------------------------------------------------------- ' ' ' Author: Colleen Tully ' RECOL, LLC ' http://www.recol.net ' webdesign@recol.com ' ' Date Created: ' 9/05 ' ' Modification History: ' '---------------------------------------------------------------------- set formerror=server.createobject("Scripting.Dictionary") If request("Validate") = 1 then strInstallGuide = request("InstallGuide") strBrochure = request("Brochure") strWallChart = request("WallChart") strQSBrochure = request("QSBrochure") strTechBull = request("TechBull") strSampleBinder = request("SampleBinder") strfa155_4x6 = request("fa155_4x6") strfa577_4x6 = request("fa577_4x6") strfa199_4x6 = request("fa199_4x6") strfa234_4x6 = request("fa234_4x6") strfa901_4x6 = request("fa901_4x6") strfa330_4x6 = request("fa330_4x6") strfa750_4x6 = request("fa750_4x6") strfa469_4x6 = request("fa469_4x6") strfw327_4x6 = request("fw327_4x6") strfw624_4x6 = request("fw624_4x6") strspecialname1 = request("specialname1") strspecialcode1 = request("specialcode1") strspecialname2 = request("specialname2") strspecialcode2 = request("specialcode2") strspecialname3 = request("specialname3") strspecialcode3 = request("specialcode3") strspecialname4 = request("specialname4") strspecialcode4 = request("specialcode4") strspecialname5 = request("specialname5") strspecialcode5 = request("specialcode5") strfirstname = request("firstname") strlastname = request("lastname") strcompanyname = request("companyname") straddr1 = request("addr1") straddr2 = request("addr2") strcity = request("city") strstate = request("state") strpostalcode = request("postalcode") strcountry = request("country") strphone = request("phone") stremail = request("email") If request("firstname")="" or isnull(firstname) then formerror.add "1", "You must enter your first name.
" End if If request("lastname")="" or isnull(lastname) then formerror.add "2", "You must enter your last name.
" End if If request("addr1")="" or isnull(addr1) then formerror.add "3", "You must enter your address.
" End if If request("city")="" or isnull(city) then formerror.add "4", "You must enter your city.
" End if If request("postalcode")="" or isnull(postalcode) then formerror.add "5", "You must enter your postal code.
" End if If request("country")="" or isnull(country) then formerror.add "6", "You must enter your country.
" End if If request("phone")="" or isnull(phone) then formerror.add "7", "You must enter your phone.
" End if If strEmail <> "" then if instr(strEmail,"@") = 0 or instr(strEmail,".") = 0 then formerror.add "8", "You must enter a valid email address.
" end if End If%> <% If formerror.count = 0 then End If If formerror.count = 0 then strBody = "The order form on your website has been filled out. Here is the information:" & vbcrlf & _ "" & request("") & vbcrlf & _ "firstname: " & request("firstname") & vbcrlf & _ "" & request("") & vbcrlf & _ "lastname: " & request("lastname") & vbcrlf & _ "" & request("") & vbcrlf & _ "companyname: " & request("companyname") & vbcrlf & _ "" & request("") & vbcrlf & _ "addr1: " & request("addr1") & vbcrlf & _ "" & request("") & vbcrlf & _ "addr2: " & request("addr2") & vbcrlf & _ "" & request("") & vbcrlf & _ "city: " & request("city") & vbcrlf & _ "" & request("") & vbcrlf & _ "state: " & request("state") & vbcrlf & _ "" & request("") & vbcrlf & _ "postalcode: " & request("postalcode") & vbcrlf & _ "" & request("") & vbcrlf & _ "country: " & request("country") & vbcrlf & _ "" & request("") & vbcrlf & _ "phone: " & request("phone") & vbcrlf & _ "" & request("") & vbcrlf & _ "email: " & request("email") & vbcrlf & _ "" & request("") & vbcrlf & _ "InstallGuide: " & request("InstallGuide") & vbcrlf & _ "" & request("") & vbcrlf & _ "Brochure: " & request("Brochure") & vbcrlf & _ "" & request("") & vbcrlf & _ "WallChart: " & request("WallChart") & vbcrlf & _ "" & request("") & vbcrlf & _ "QSBrochure: " & request("QSBrochure") & vbcrlf & _ "" & request("") & vbcrlf & _ "TechBull: " & request("TechBull") & vbcrlf & _ "" & request("") & vbcrlf & _ "SampleBinder: " & request("SampleBinder") & vbcrlf & _ "" & request("") & vbcrlf & _ "fa155_4x6: " & request("fa155_4x6") & vbcrlf & _ "fa577_4x6: " & request("fa577_4x6") & vbcrlf & _ "fa199_4x6: " & request("fa199_4x6") & vbcrlf & _ "fa234_4x6: " & request("fa234_4x6") & vbcrlf & _ "fa901_4x6: " & request("fa901_4x6") & vbcrlf & _ "fa330_4x6: " & request("fa330_4x6") & vbcrlf & _ "fa750_4x6: " & request("fa750_4x6") & vbcrlf & _ "fa469_4x6: " & request("fa469_4x6") & vbcrlf & _ "fw327_4x6: " & request("fw327_4x6") & vbcrlf & _ "fw624_4x6: " & request("fw624_4x6") & vbcrlf & _ "" & request("") & vbcrlf & _ "specialname1: " & request("specialname1") & vbcrlf & _ "specialcode1: " & request("specialcode1") & vbcrlf & _ "specialname2: " & request("specialname2") & vbcrlf & _ "specialcode2: " & request("specialcode2") & vbcrlf & _ "specialname3: " & request("specialname3") & vbcrlf & _ "specialcode3: " & request("specialcode3") & vbcrlf & _ "specialname4: " & request("specialname4") & vbcrlf & _ "specialcode4: " & request("specialcode4") & vbcrlf & _ "specialname5: " & request("specialname5") & vbcrlf & _ "specialcode5: " & request("specialcode5") & vbcrlf & _ "" & request("") & vbcrlf Set objMessage = CreateObject("CDO.Message") objMessage.Subject = "Order From" objMessage.From = Request("email") ' objMessage.Sender = request("email") objMessage.To = "David_Bell@Panolam.com" objMessage.TextBody = strBody '==This section provides the configuration information for the remote SMTP server. '==Normally you will only change the server name or IP. objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Name or IP of Remote SMTP Server objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.recol.net" 'Server port (typically 25) objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objMessage.Configuration.Fields.Update '==End remote SMTP server configuration section== objMessage.Send If Err <> 0 Then Response.Write "There is a problem with the server. Please try again later.

" & Err.State Else strMessage="Your email has been sent!

" End If Set mail=nothing response.redirect "thankyou.html" response.end End if End if%> Request FRL™ Samples

Note: Required fields are marked with an asterisk*
<% ' show validation error messages to the user ' for each errx in formerror %><%= formerror.item(errx) %><% next %>
Description Item Number Quantity
Installation Guide SMPBR000-055
Brochure SMPBRFRL-000
Wall Chart SMPBRFRL-001
QuickShip Brochure SMPBRFRL-002
Technical Bulletin SMPTBRFRL-000
Sample Binder SMPDBFRL-003
Stock samples are available in .088'' only with a suede finish.
Name FRL® Color Code 4" x 6"
Moroccan Fresco FA155
Sage Coral FA577
Amber Raffia FA199
Pepper Fiber FA234
Olive Serenity FA901
Sable Tapestry FA330
Negotiating in Geneva FA750
Gateway to the Future FA469
Hardrock Maple FW327
Oiled Cherry FW624
Special requests are available in a 12" x 12" sample in color only.
FRL® Core samples are not available.
Name FRL® Color Code Finish
*First Name
*Last Name
Company Name
*Address 1
Address 2
*City
*State/Province
*ZIP/Postal Code
*Country
*Telephone
*Email