<% Response.Buffer=True %> Hawaiian Cold Storage
Hawaiian Cold Storage
Hawaiian Cold Storage

Main Page

<% If Request.form("Status") = "Submit" then errStr = "" FirstName = Request.Form("FirstName") LastName = Request.Form("LastName") Email=Request.Form("Email") Phone=request.form("Phone") Comments=request.form("Comments") Today=Now() If FirstName = "" Then errStr = errStr & "Missing First Name
" End If If LastName = "" Then errStr = errStr & "Missing Last Name
" End If If Email = "" Then If Phone = "" Then errStr = errStr & "Please enter an Email Address or Phone Number
" End If End If If (Phone <> "") Then phonenumber = validate_phone(Phone) If Not (phonenumber) Then errStr = errStr & "Invalid Phone Number
" End If End If If (Email <> "") Then If chkEmail(Email) = 1 Then errStr = errStr & "Invalid E-mail Address
" End If End If If Comments="" Then errStr = errStr & "Please fill in the Comment box
" End If If errStr = "" Then 'Send notification to administrator Set Mailer = Server.CreateObject("CDONTS.NewMail") Mailer.From = Email Mailer.to = "hcs1@hawaii.rr.com" Mailer.cc = "earth1@earthcenter.com" Mailer.Subject = "HCS Customer Comments Submitted" Message = "Customer Comments from HCS Web Site" & vbCrLf Message = Message & "Customer Name: " & FirstName & " " & LastName & vbCrLf Message = Message & "Date Submitted: " & Today & vbCrLf Message = Message & "Phone : " & Phone & vbCrLf Message = Message & "Email : " & Email & vbCrLf & vbCrLf Message = Message & "Comments: " & vbCrLf Message = Message & Comments & vbCrLf & vbCrLf Mailer.MailFormat=0 Mailer.Body = Message Mailer.Send Set Mailer = Nothing Response.Redirect "thankyou.htm" End If End if %>

Please send us any suggestions, questions, or comments you might have.
We will try our best to respond promptly.

You must fill in the fields with the * sign.
<%=errStr%>

First Name*:                                      Last Name*:  

Please fill in one of the following contact information:

Email Address*:               Phone*(nnn-nnn-nnnn): 

Comments:

About Us | Services | Information | Press Release | Contact Us | Rate Schedule | Terms and Conditions

Hawaiian Cold Storage
348A Puuhale Road
Honolulu, HI 96819
Phone: 808.845.3241    Fax: 808.842.1846
hcs1@hawaii.rr.com