<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../WA_Universal_Email/CDONTS_NewMail_VB.asp" -->
<!--#include file="../WA_Universal_Email/MailFormatting_VB.asp" -->
<%
function WA_Universal_Email_1_SendMail(RecipientEmail)
  dim MailObject, MailAttachments, MailBCC, MailCC, MailTo, MailBodyFormat, MailBody, MailImportance, MailFrom, MailSubject
  MailAttachments = ""
  MailBCC         = ""
  MailCC          = ""
  MailTo          = ""
  MailBodyFormat  = ""
  MailBody        = ""
  MailImportance  = ""
  MailFrom        = "benc@hillchamber.org"
  MailSubject     = "Golf Scramble - Team Entry"

  'Global Variables
  gAddBCC = ""
  gAddCC = ""
  gAddRecipient = ""
  gBodyFormat = ""
  gSetImportance = ""

  set WA_MailObject = WAUE_Definition()

  if (RecipientEmail <> "")     then
    set WA_MailObject = WAUE_AddRecipient(WA_MailObject,RecipientEmail)
    MailTo = gAddRecipient
    gAddRecipient = ""
  else
    'To Entries
  end if

  'Attachment Entries

  'BCC Entries
  MailBCC = gAddBCC

  'CC Entries
  MailCC = gAddCC

  'Body Format
  set WA_MailObject = WAUE_BodyFormat(WA_MailObject,1)
  MailBodyFormat = gBodyFormat

  'Set Importance
  set WA_MailObject = WAUE_SetImportance(WA_MailObject,"3")
  MailImportance = gSetImportance

  'Start Mail Body
MailBody = MailBody & "Entry Date: "
MailBody = MailBody & date()
MailBody = MailBody & "" & vbCrlf & ""
MailBody = MailBody & "" & vbCrlf & ""
MailBody = MailBody & "Team Name: "
MailBody = MailBody & Request.Form("TeamName_Organization")
MailBody = MailBody & "" & vbCrlf & ""
MailBody = MailBody & "----------------------------------------------" & vbCrlf & ""
MailBody = MailBody & "CAPTAIN INFO" & vbCrlf & ""
MailBody = MailBody & "----------------------------------------------" & vbCrlf & ""
MailBody = MailBody & "" & vbCrlf & ""
MailBody = MailBody & "First Name: "
MailBody = MailBody & Request.Form("Captain_FirstName")
MailBody = MailBody & "" & vbCrlf & ""
MailBody = MailBody & "Last Name: "
MailBody = MailBody & Request.Form("Captain_LastName")
MailBody = MailBody & "" & vbCrlf & ""
MailBody = MailBody & "Company: "
MailBody = MailBody & Request.Form("Captain_Company")
MailBody = MailBody & "" & vbCrlf & ""
MailBody = MailBody & "Street Address: "
MailBody = MailBody & Request.Form("Captain_StreetAddress")
MailBody = MailBody & "" & vbCrlf & ""
MailBody = MailBody & "Address cont: "
MailBody = MailBody & Request.Form("Captain_Address2")
MailBody = MailBody & "" & vbCrlf & ""
MailBody = MailBody & "City: "
MailBody = MailBody & Request.Form("Captain_City")
MailBody = MailBody & "" & vbCrlf & ""
MailBody = MailBody & "  State: "
MailBody = MailBody & Request.Form("Captain_State")
MailBody = MailBody & "" & vbCrlf & ""
MailBody = MailBody & "    Zip: " 
MailBody = MailBody & Request.Form("Captain_ZipCode")
MailBody = MailBody & "" & vbCrlf & ""
MailBody = MailBody & "Phone: "
MailBody = MailBody & Request.Form("Captain_WorkPhone")
MailBody = MailBody & "" & vbCrlf & ""
MailBody = MailBody & "FAX: "
MailBody = MailBody & Request.Form("Captain_FAX")
MailBody = MailBody & "" & vbCrlf & ""
MailBody = MailBody & "Email: "
MailBody = MailBody & Request.Form("Captain_Email")
MailBody = MailBody & "" & vbCrlf & ""
MailBody = MailBody & "Interested in Golf Sponsorships: "
MailBody = MailBody & Request.Form("Golf_sponsorships")
MailBody = MailBody & "" & vbCrlf & ""
MailBody = MailBody & " " & vbCrlf & ""
MailBody = MailBody & "" & vbCrlf & ""
MailBody = MailBody & "----------------------------------------------" & vbCrlf & ""
  'End Mail Body

  set WA_MailObject = WAUE_SendMail(WA_MailObject,MailAttachments,MailBCC,MailCC,MailTo,MailImportance,MailFrom,MailSubject,MailBody)

  set WA_MailObject = nothing
end function
%>
<%
if ((Request.ServerVariables("Request_Method")="POST") AND (InStr(cStr(Request.ServerVariables("HTTP_REFERER")), Request.ServerVariables("SERVER_NAME")&Request.ServerVariables("URL"))<>0))     then
  'WA Universal Email object="CDONTS NewMail"
  'Send Loop Once Per Entry
  WA_Universal_Email_1_SendMail("benc@hillchamber.org")

  'Send Mail All Entries
  if ("/golf/golf_thankyou.asp"<>"")     then
    Response.Redirect("/golf/golf_thankyou.asp")
  end if
end if
%>
<HTML>
<HEAD>
<TITLE>Chamber Golf Scramble Entry Form</TITLE>
<link href="/styles1.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style5 {font-family: Georgia, "Times New Roman"}
.style10 {font-size: 12px}
.style11 {
	font-size: 36px;
	color: #0000CC;
}
.style12 {font-family: Arial, Helvetica, sans-serif}
-->
</style>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_validateForm() { //v4.0
  var i,p,q,nm,test,num,min,max,errors='',args=MM_validateForm.arguments;
  for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=MM_findObj(args[i]);
    if (val) { nm=val.name; if ((val=val.value)!="") {
      if (test.indexOf('isEmail')!=-1) { p=val.indexOf('@');
        if (p<1 || p==(val.length-1)) errors+='- '+nm+' must contain an e-mail address.\n';
      } else if (test!='R') { num = parseFloat(val);
        if (isNaN(val)) errors+='- '+nm+' must contain a number.\n';
        if (test.indexOf('inRange') != -1) { p=test.indexOf(':');
          min=test.substring(8,p); max=test.substring(p+1);
          if (num<min || max<num) errors+='- '+nm+' must contain a number between '+min+' and '+max+'.\n';
    } } } else if (test.charAt(0) == 'R') errors += '- '+nm+' is required.\n'; }
  } if (errors) alert('The following error(s) occurred:\n'+errors);
  document.MM_returnValue = (errors == '');
}
//-->
</script>
</HEAD>
<BODY>
<table width="844" border="0">
  <tr>
    <td WIDTH="107" VALIGN="top"><!-- Left Side Menu -->
      <font FACE="Arial Narrow, Arial, Helvetica, san-serif" SIZE="2" color="#808080">A Hillsboro Chamber of Commerce Program</font><font COLOR="#CCCCCC" FACE="Arial Narrow, Arial, Helvetica, san-serif" SIZE="2">.</font> <font FACE="Impact, Arial Narrow, Arial, Helvetica, san-serif">
      <p><a href="../offers/index.htm">Offers<br>
        </a><a href="information.htm">Information</a><br>
        <a href="mission.htm">Our Mission</a><br>
        <a href="instructions.htm">Instructions</a><br>
        <a href="legal.htm">Legal Info</a><br>
        <a href="feedback.htm">Feedback</a><br>
        <a href="../offers/company.htm">Company List</a><br>
        <a href="../offers/classification.htm">Classification List</a><br>
        <img SRC="images/spacer.gif" HEIGHT="1" WIDTH="107"> 
      </font></td>
    <td height="699"><table width="770" border="0" align="center" cellpadding="10" cellspacing="0">
        <tr> </tr>
        <tr>
          <td><p align="center" class="text18 "><strong><span class="style11">V</span>antage Club Company Suggestion Form </strong></p></td>
        </tr>
        <tr>
          <td><p align="center" class="maintext style12">Please fill out in as much information as possible to aid in our research. Thank you!</p></td>
        </tr>
        <tr>
          <td bgcolor="#CCCCCC"><FORM action="" METHOD="POST" name="frmAdultReg" id="frmAdultReg" onSubmit="MM_validateForm('Captain_FirstName','','R','Captain_StreetAddress','','R','Captain_City','','R','Captain_LastName','','R','Captain_State','','R');return document.MM_returnValue" >
              <p>&nbsp;</p>
              <BLOCKQUOTE>
                <TABLE>
                  <TR>
                    <TD width="130" ALIGN="right"><div align="right" class="maintext">Organization</div></TD>
                    <TD width="403"><span class="maintext">
                      <INPUT TYPE=TEXT NAME="Captain_FirstName" SIZE=40>
                      <strong> *REQ</strong></span></TD>
                  </TR>
                  <TR>
                    <TD ALIGN="right" class="maintext"> Street <br>
                      Address </TD>
                    <TD><span class="maintext">
                      <textarea name="Captain_StreetAddress" cols="40" rows="4"></textarea>
                      <strong> *REQ</strong> </span></TD>
                  </TR>
                  <TR>
                    <TD ALIGN="right" class="maintext">Phone:</TD>
                    <TD class="maintext"><INPUT NAME="Captain_Company" TYPE=TEXT id="Captain_Company" SIZE=40>
                      <strong> *REQ</strong></TD>
                  </TR>
                  <TR>
                    <TD ALIGN="right" class="maintext"> Web Site </TD>
                    <TD><span class="maintext">
                      <input name="Captain_LastName" type="text" value="" size="35">
                      </span></TD>
                  </TR>
                  <TR> </TR>
                </TABLE>
                <p> <span class="style5">
                  <input name="Golf_sponsorships" type="checkbox" id="Golf_sponsorships" value="ON">
                  Please add me to the Vantage Club Mailing List&nbsp;</span></p>
              </BLOCKQUOTE>
              <p class="style5">
                <INPUT name="SUBMIT" TYPE=SUBMIT class="text16bold" VALUE="Submit Form">
              </p>
            </FORM></td>
        </tr>
        <tr>
          <td><p class="maintext style5"><span class="style10">Greater Hillsboro Area Chamber of Commerce. Copyright &copy; 2007.&nbsp; All rights reserved. </span><BR>
            </p></td>
        </tr>
      </table></td>
  </tr>
</table>
</BODY>
</HTML>