<%
    Function DoubleQuotes(str)
        If NOT IsNull(str) Then DoubleQuotes = Trim(Replace(str,"""","&quot;")) Else DoubleQuotes = ""
    End Function
    
    Function NoTags(str)
        NoTags = Trim(Replace(Replace(str,">","&gt;"),"<","&lt;"))
    End Function
    
    Function SingleQuotes(str)
        SingleQuotes = Trim(Replace(str,"'","''"))
    End Function
    
    Function IsValidEmail(Email)
        ValidFlag = False
        If (Email <> "") And (InStr(1, Email, "@") > 0) And (InStr(1, Email, ".") > 0) Then
        atCount = 0
        SpecialFlag = False
        For atLoop = 1 To Len(Email)
        atChr = Mid(Email, atLoop, 1)
        If atChr = "@" Then atCount = atCount + 1
        If (atChr >= Chr(32)) And (atChr <= Chr(44)) Then SpecialFlag = True
        If (atChr = Chr(47)) Or (atChr = Chr(96)) Or (atChr >= Chr(123)) Then SpecialFlag = True
        If (atChr >= Chr(58)) And (atChr <= Chr(63)) Then SpecialFlag = True
        If (atChr >= Chr(91)) And (atChr <= Chr(94)) Then SpecialFlag = True
        Next
        If (atCount = 1) And (SpecialFlag = False) Then
        BadFlag = False
        tAry1 = Split(Email, "@")
        UserName = tAry1(0)
        DomainName = tAry1(1)
        If (UserName = "") Or (DomainName = "") Then BadFlag = True
        If Mid(DomainName, 1, 1) = "." then BadFlag = True
        If Mid(DomainName, Len(DomainName), 1) = "." then BadFlag = True
        ValidFlag = True
        End If
        End If
        If BadFlag = True Then ValidFlag = False
        IsValidEmail = ValidFlag
    End Function

formsubmitted = (Request.Form("formsubmitted")="1")
'Response.Write formsubmitted
'Response.End

if formsubmitted AND trim(request.form("name")) <> "" AND trim(request.form("city")) <> "" AND trim(request.form("state")) <> "" AND IsValidEmail(request.form("email")) AND trim(request.form("dwelling")) <> "" AND trim(request.form("content")) <> "" AND trim(request.form("liability")) <> "" then
        EmailBody = "Name: " & request.form("name") & chr(13) _
            & "Address: " & request.form("address") & chr(13) _
            & "City: " & request.form("city") & chr(13) _
            & "Zip: " & request.form("zip") & chr(13) _
            & "State: " & request.form("state") & chr(13) & chr(13)_
            & "Email: " & request.form("email") & chr(13) _
            & "Phone: " & request.form("phone") & chr(13) _
            & "Fax: " & request.form("fax") & chr(13) & chr(13) & chr(13) _
            & "Current Insurer: " & request.form("insurer") & chr(13) _
            & "Expiration Date: " & request.form("date") & chr(13) & chr(13) _
            & "Construction Type: " & request.form("construction") & chr(13) _
            & "Distance to hydrant: " & request.form("hydrant") & chr(13) _
            & "Smoke detectors: " & request.form("detector") & chr(13) _
            & "Fire extinguishers: " & request.form("extinguisher") & chr(13) _
            & "Dead bolt locks: " & request.form("deadboltt") & chr(13) & chr(13) _
            & "Amount of Insurance Requested" & chr(13) _
            & "Dwelling: " & request.form("dwelling") & chr(13) _
            & "Contents: " & request.form("content") & chr(13) _
            & "Liability: " & request.form("liability") & chr(13) _
            & "Deductible: " & request.form("deductible") & chr(13) & chr(13)_
            & "Respond by: " & request.form("respond") & chr(13) & chr(13) & chr(13) _
            & "Comments/Questions:" & chr(13) _
            & request.form("comments") & chr(13) & chr(13) _
            & "Submitted: " & FormatDateTime(Date(),2) & " at " & FormatDateTime(Now(),3) & " CST" & chr(13) & chr(13)
        
        EmailBody = "The following Home Insurance Quote was submitted through the Frontier Bank site:" & chr(13) & chr(13) & EmailBody
        
        '************USING CDONTS***********************************
        set objMail = CreateObject("CDONTS.NewMail")
            objMail.To = "insurance@frontierbk.com;"
            objMail.BCC = ""
            objMail.From = trim(request.form("email"))
            objMail.Subject = "Frontier Bank - Home Owner's Insurance Quote"
            objMail.Body = EmailBody
            objMail.Send        
        set objMail = nothing
        
        response.redirect("/quote_thanks.asp")
    end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html><!-- InstanceBegin template="/Templates/About.dwt" codeOutsideHTMLIsLocked="false" -->
    
    <head>
        <title><!--#include virtual="/library/globalpagetitle_ire.htm"--> - Insurance & Real Estate</title>
        <!--#include virtual="/include/head_ire.ink"-->
        <script langauge="JavaScript">
        <!--
            function popup_window(strURL, thewidth, theheight) {
                newWindow=window.open(strURL, '', 'toolbar=0,width='+thewidth+',height='+theheight+',left='+((screen.width/2)-(thewidth/2))+',top=100,directories=0,status=1,resizable=1,scrollbars=1,menubar=0');
                newWindow.focus();
            }
        //-->
        </script>
        <script langauge="JavaScript">
        <!--
            function getCalendarDate()
            {       
                var months = new Array(13);
                months[0] = "January";
                months[1] = "February";
                months[2] = "March";
                months[3] = "April";
                months[4] = "May";
                months[5] = "June";
                months[6] = "July";
                months[7] = "August";
                months[8] = "September";
                months[9] = "October";
                months[10] = "November";
                months[11] = "December";
                var now = new Date();
                var monthnumber = now.getMonth();
                var monthname = months[monthnumber];
                var monthday = now.getDate();
                var year = now.getYear();
                if(year < 2000) { year = year + 1900; }
                var dateString = monthname + 
                ' ' + 
                monthday + 
                ', ' + 
                year;
                return dateString;
                }
                
                function popup_window(strURL, thewidth, theheight) {
                    newWindow=window.open(strURL, '', 'toolbar=0,width='+thewidth+',height='+theheight+',left='+((screen.width/2)-(thewidth/2))+',top=100,directories=0,status=1,resizable=1,scrollbars=1,menubar=0');
                    newWindow.focus();
                }
            //-->
        </script>
        <link rel="Stylesheet" type="text/css" href="/stylesheets/style.css">
    </head>
    
    <script language="Javascript">
    <!--
        var testtext = this.location+'';
        if (testtext.indexOf('i=1') > -1) { alert('You are leaving the Frontier Bank site and entering the Frontier Insurance & Realty site.\n\nTo return to the Frontier Bank site at any time, click the "Back to Frontier Bank" button.'); }
    //-->
    </script>
    
    <body marginwidth=0 marginheight=0 leftmargin=0 rightmargin=0 topmargin=0 bottommargin=0 bgcolor="#FFFFFF">
        
        <!-- InstanceParam name="PageTitle" type="text" value="Insurance &amp; Real Estate" -->
        
        <table cellpadding=0 cellspacing=0 border=0 width="100%" height="100%"><tr>
            <td bgcolor="#DDDDDD" width="50%"><img src="pixel_clear.gif" width=1 height=1></td>
            <td bgcolor="#333333"><img src="pixel_clear.gif" width=1 height=1></td>
            <td valign="top" width=775>
                
                <table cellpadding=0 cellspacing=0 border=0 width=775>
                    <tr><td background="/images/bg4.gif" colspan=2>
                        <table cellpadding=0 cellspacing=0 border=0 width=775><tr>
                            <td width=165 background="/images/bg4.gif"><!--
                                --><img src="/images/common/pixel_clear.gif" width=111 height=34><!--
                                --><a href="/insurance_and_realestate.htm"><img src="/images/logo_1_ire.gif" width=54 height=34 border=0></a><!--
                            --></td>
                            <td valign=bottom nowrap align=right background="/images/bg4.gif"><!--
                                --><img src="/images/common/pixel_clear.gif" width=610 height=1><br>
                                <font class=smallblack><script language="Javascript">document.write(getCalendarDate());</script>&nbsp;</font>
                            </td>
                        </tr></table>
                    </td></tr>
                    <tr><td bgcolor="#6DAA6D" colspan=2><!--
                        --><img src="/images/common/pixel_clear.gif" width=109 height=5><!--
                        --><a href="/insurance_and_realestate.htm"><img src="/images/logo_2_ire.gif" width=31 height=5 border=0></a><!--
                        --><img src="/images/common/pixel_clear.gif" width=635 height=5><!--
                    --></td></tr>
                    <tr>
                        <td valign=top><!--
                            --><img src="/images/common/pixel_clear.gif" width=17 height=40><!--
                            --><a href="/insurance_and_realestate.htm"><img src="/images/logo_3_ire.gif" width=167 height=40 border=0></a><br><!--
                            --><img src="/images/common/pixel_clear.gif" width=1 height=4><!--
                        --></td>
                        <td valign=top align=right nowrap><!--
                            --><a href="/ire/real_estate.htm"><img src="/images/nav/ire_real_estate.gif" width=91 height=25 border=0></a><!--
                            --><a href="/ire/insurance.htm"><img src="/images/nav/ire_insurance.gif" width=79 height=25 border=0></a><!--
                            --><a href="http://www.frontierbk.com/default.asp"><img src="/images/nav/ire_back.gif" width=143 height=25 border=0></a><!--
                        --></td>
                    </tr>
                </table>
                <table cellpadding=0 cellspacing=0 border=0 width=775>
                    <tr>
                        <td nowrap><img src="/images/common/pixel_clear.gif" width=1 height=13></td>
                        <td valign=bottom nowrap width=33><img src="/images/misc3.gif" width=33 height=13></td>
                        <td valign=bottom width="100%" background="/images/bg1.gif"><img src="/images/common/pixel_clear.gif" width=550 height=13></td>
                    </tr>
                    <tr>
                        <td valign=top nowrap>
                            <table cellpadding=14 cellspacing=0 border=0><tr><td nowrap class=smallgrey>
                                <!--#include virtual="/library/locations_left.htm"-->
                            </td></tr></table>
                        </td>
                        <td width=33 background="/images/bg2.gif"><!--
                            --><img src="/images/common/pixel_clear.gif" width=33 height=50><!--
                            --><img src="/images/misc4.gif" width=33 height=201><!--
                        --></td>
                        <td width="100%" valign="top" class="black">
                        <!-- content start -->
                          <b class="bigblack"><!-- InstanceBeginEditable name="Page Title" -->Home Insurance Quote <!-- InstanceEndEditable --></b><br/>
                          <br/>
                          Fill out and submit the from below to receive a free home owner's quote. Final premium is subject to information verification.<br/>
                          <br/>
                          Marked fields (<font class="smallred">*</font>) are required.<br/>
                          <br/>
                          <form name="home" action="homequote.asp" method="post">
                          <b>Personal Information</b><br/>
                          <table width="550" cellpadding="1" cellspacing="0" border="0" class="black">
                          <tr>
                            <td width="80">Name:<font class="smallred">*</font></td>
                            <td width="470"><input type="text" name="name" value="<%if formsubmitted then Response.Write Request.Form("name")%>"><%if formsubmitted AND Trim(Request.Form("name"))="" then Response.Write " <font class=""smallred"">Type in your name.</font>"%></td>
                          </tr>
                          <tr>
                            <td width="80">Address:<font class="smallred">*</font></td>
                            <td width="470"><input type="text" name="address" value="<%if formsubmitted then Response.Write Request.Form("address")%>"></td>
                          </tr>
                          <tr>
                            <td width="80">City:<font class="smallred">*</font></td>
                            <td width="470"><input type="text" name="city" value="<%if formsubmitted then Response.Write Request.Form("city")%>"><%if formsubmitted AND Trim(Request.Form("city"))="" then Response.Write " <font class=""smallred"">Field cannot be empty.</font>"%></td>
                          </tr>
                          <tr>
                            <td width="80">Zip: </td>
                            <td width="470"><input type="text" size="8" name="zip" value="<%if formsubmitted then Response.Write Request.Form("zip")%>"></td>
                          </tr>
                          <tr>
                            <td width="80">State:<font class="smallred">*</font></td>
                            <td width="470">
                              <select name="state">
                                <option value="Iowa" <%if Request.Form("state")="Iowa" then Response.Write "selected"%>>Iowa</option>
                                <option value="South Dakota" <%if Request.Form("state")="South Dakota" then Response.Write "selected"%>>South Dakota</option>
                              </select>
                            </td>
                          </tr>
                          <tr>
                            <td colspan="2" height="10"><img src="/images/common/pixel_clear.gif" border="0" /></td>
                          </tr>
                          <tr>
                            <td width="80">Email:<font class="smallred">*</font></td>
                            <td width="470"><input type="text" name="email" value="<%if formsubmitted then Response.Write Request.Form("email")%>"><%if formsubmitted AND NOT IsValidEmail(Request.Form("email")) then Response.Write " <font class=""smallred"">Type in a valid email.</font>"%></td>
                          </tr>
                          <tr>
                            <td width="80">Phone:</td>
                            <td width="470"><input type="text" name="phone" value="<%if formsubmitted then Response.Write Request.Form("phone")%>"></td>
                          </tr>
                          <tr>
                            <td width="80">Fax:</td>
                            <td width="470"><input type="text" name="fax" value="<%if formsubmitted then Response.Write Request.Form("fax")%>"></td>
                          </tr>
                          <tr>
                            <td colspan="2" height="10"><img src="/images/common/pixel_clear.gif" border="0" /></td>
                          </tr>
                          <tr>
                            <td width="120">Current Insurer:</td>
                            <td width="430"><input type="text" name="insurer" value="<%if formsubmitted then Response.Write Request.Form("insurer")%>"></td>
                          </tr>
                          <tr>
                            <td width="120">Expiration Date:</td>
                            <td width="430"><input type="text" name="date" value="<%if formsubmitted then Response.Write Request.Form("date")%>"></td>
                          </tr>
                          <tr>
                            <td colspan="2" height="10"><img src="/images/common/pixel_clear.gif" border="0" /></td>
                          </tr>
                          </table>
                          <table width="550" cellpadding="1" cellspacing="0" border="0" class="black">
                          <tr>
                            <td width="120">Construction Type: </td>
                            <td width="430">
                              <select name="construction">
                                <option value="Frame" <%if Request.Form("construction")="Frame" then Response.Write "selected"%>>Frame</option>
                                <option value="Brick" <%if Request.Form("construction")="Brick" then Response.Write "selected"%>>Brick</option>
                                <option value="Ranch" <%if Request.Form("construction")="Ranch" then Response.Write "selected"%>>Ranch</option>
                                <option value="2 Story" <%if Request.Form("construction")="2 Story" then Response.Write "selected"%>>2 Story</option>
                              </select>
                            </td>
                          </tr>
                          <tr>
                            <td width="120">Build Year: </td>
                            <td width="430"><input type="text" size="4" name="build" value="<%if formsubmitted then Response.Write Request.Form("build")%>"></td>
                          </tr>
                          <tr>
                            <td width="120">Distance to hydrant: </td>
                            <td width="430">
                              <select name="hydrant">
                                <option value="Uncertain" <%if Request.Form("hydrant")="Uncertain" then Response.Write "selected"%>>Uncertain</option>
                                <option value="< 1000 ft." <%if Request.Form("hydrant")="< 1000 ft." then Response.Write "selected"%>>Less than 1000 ft</option>
                                <option value=">= 1000 ft." <%if Request.Form("hydrant")=">= 1000 ft." then Response.Write "selected"%>>More than or equal to 1000 ft</option>
                              </select>
                            </td>
                          </tr>
                          </table>
                          <table width="300" cellpadding="1" cellspacing="0" border="0" class="black">
                          <tr>
                            <td width="200">Do you have smoke detectors?</td>
                            <td width="50"><input type="radio" name="detector" value="Yes" />Yes</td>
                            <td width="50"><input type="radio" name="detector" value="No" />No</td>
                          </tr>
                          <tr>
                            <td width="200">Do you have fire extinguishers?</td>
                            <td width="50"><input type="radio" name="extinguisher" value="Yes" />Yes</td>
                            <td width="50"><input type="radio" name="extinguisher" value="No" />No</td>
                          </tr>
                          <tr>
                            <td width="200">Do you have dead bolt locks?</td>
                            <td width="50"><input type="radio" name="deadbolt" value="Yes" />Yes</td>
                            <td width="50"><input type="radio" name="deadbolt" value="No" />No</td>
                          </tr>
                          </table>
                          <br/>
                          <b>Amount of Insurance Requested</b><br/>
                          <table width="550" cellpadding="1" cellspacing="0" border="0" class="black">
                          <tr>
                            <td width="120">Dwelling:<font class="smallred">*</font></td>
                            <td width="430"><input type="text" name="dwelling" value="<%if formsubmitted then Response.Write Request.Form("dwelling")%>"><%if formsubmitted AND Trim(Request.Form("dwelling"))="" then Response.Write " <font class=""smallred"">Field cannot be empty.</font>"%></td>
                          </tr>
                          <tr>
                            <td width="120">Contents:<font class="smallred">*</font></td>
                            <td width="430"><input type="text" name="content" value="<%if formsubmitted then Response.Write Request.Form("content")%>"><%if formsubmitted AND Trim(Request.Form("content"))="" then Response.Write " <font class=""smallred"">Field cannot be empty.</font>"%></td>
                          </tr>
                          <tr>
                            <td width="120">Liability:<font class="smallred">*</font></td>
                            <td width="430"><input type="text" name="liability" value="<%if formsubmitted then Response.Write Request.Form("liability")%>"><%if formsubmitted AND Trim(Request.Form("liability"))="" then Response.Write " <font class=""smallred"">Field cannot be empty.</font>"%></td>
                          </tr>
                          <tr>
                            <td width="120">Deductible: </td>
                            <td width="430">
                              <select name="deductible">
                                <option value="$250" <%if Request.Form("deductible")="$250" then Response.Write "selected"%>>$250</option>
                                <option value="$500" <%if Request.Form("deductible")="$500" then Response.Write "selected"%>>$500</option>
                                <option value="$1000" <%if Request.Form("deductible")="$1000" then Response.Write "selected"%>>$1000</option>
                                <option value="$1500" <%if Request.Form("deductible")="$1500" then Response.Write "selected"%>>$1500</option>
                                <option value="$2000" <%if Request.Form("deductible")="$2000" then Response.Write "selected"%>>$2000</option>
                              </select>
                            </td>
                          </tr>
                          <tr>
                            <td colspan="2" height="10"><img src="/images/common/pixel_clear.gif" border="0" /></td>
                          </tr>
                          </table>
                          <br/>
                          <table width="550" cellpadding="1" cellspacing="0" border="0" class="black">
                          <tr>
                            <td width="200">How would you like us to respond</td>
                            <td width="250">
                              <select name="respond">
                                <option value="Phone">Phone</option>
                                <option value="Email">Email</option>
                                <option value="Fax">Fax</option>
                              </select>
                            </td>
                          </tr>
                          <tr>
                            <td colspan="2" height="10"><img src="/images/common/pixel_clear.gif" border="0" /></td>
                          </tr>
                          <tr>
                            <td colspan="2">
                              Please enter any questions or comments below. If you have any items to be scheduled such as jewelry, paintings,
                              silverware, computer equipment, etc., please enter item description and vlaue.<br/>
                              <textarea name="comments" class="black" rows="5" cols="80"><%=NoTags(request.form("comments"))%></textarea>
                            </td>
                          </tr>
                          </table>
                          <br/>
                          <input type=hidden name=formsubmitted value=1>
                          <input type=submit value=" SUBMIT QUOTE ">
                          </form>
                          <br/>
                          <br/>
                        <!-- content end -->
                        </td>
                    </tr>
                    <tr>
                        <td nowrap><img src="/images/common/pixel_clear.gif" width=1 height=13></td>
                        <td valign=top nowrap width=33><img src="/images/misc5.gif" width=33 height=12></td>
                        <td valign=top width="100%" background="/images/bg3.gif"><img src="/images/common/pixel_clear.gif" width=550 height=13></td>
                    </tr>
                    <tr><td colspan=3 align=right>
                        <!--#include virtual="/include/footerinfo.htm"-->
                    </td></tr>
                </table>
            </td>
            <td bgcolor="#333333"><img src="pixel_clear.gif" width=1 height=1></td>
            <td bgcolor="#EEEEEE" width="50%"><img src="pixel_clear.gif" width=1 height=1></td>
        </tr></table>
        
    </body>
    
<!-- InstanceEnd --></html>