%@LANGUAGE="VBSCRIPT"%>
<%
' *** Edit Operations: declare variables
Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd
Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId
Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If
' boolean to abort record edit
MM_abortEdit = false
' query string to execute
MM_editQuery = ""
%>
<%
' *** Mail form as Text format ***
If (CStr(Request("FX_sendForm")) = "form1") Then
names = ""
top = "\n"
body = "\n"
exclude = "Submit,null,FX_sendForm,MM_insert,MM_update"
reqArray = split(CStr(Request.Form),"&")
For i=0 To UBound(reqArray)
name = Left(reqArray(i),InStr(reqArray(i),"=")-1)
if (InStr(exclude,name) = 0) Then
if (InStr(names,name & ",") = 0) Then
body = body & UCase(name) & ": " & CStr(Request.Form(name)) & "\n"
names = names & name & ","
End If
End If
Next
bottom = "\n"
message = Replace(top & body & bottom, "\n", vbCrLf)
' send all
set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.From = CStr(Request.Form("name"))
objCDO.To = "chris@nmy.com"
objCDO.Cc = ""
objCDO.Bcc = ""
objCDO.Subject = "Form Submitted from Web Site"
objCDO.Body = message
objCDO.Send
set objCDO = Nothing
' redirecting
body = Server.URLEncode(Replace(body, "\n", "
"))
redirect = "Thankyou.asp"
If (redirect <> "") Then Response.Redirect(redirect) End If
End If
%>
How much does insulation cost? Not as much as you might guess. The cost is contingent upon how much insulation is used, which is dependent on square footage for new construction or how much insulation has settled in existing construction. In existing construction, a typical 1500 sq. ft. attic usually costs between $400 and $700 to insulate correctly. We will provide a FREE survey and evaluation of your present insulation or lack of insulation at a scheduled time convenient for you. Should your property lack adequate insulation, Tempco will provide a FREE written estimate that will cover all work and costs necessary to properly insulate your property. Call us at (318) 325-1485 or 1-800-287-4172 to set up your appointment, fill out our convenient online form or e-mail us at info@tempcoinsulation.com.
|