<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/ofthird.asp" -->

<%
' *** 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 & "?" & Request.QueryString
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%>
<%
' *** Insert Record: set variables

If (CStr(Request("MM_insert")) = "form1") Then

  MM_editConnection = MM_ofthird_STRING
  MM_editTable = "Table1"
  MM_editRedirectUrl = "thanks.htm"
  MM_fieldsStr  = "first name|value|rent or own|value|sell first|value|purchase within|value|income|value|price range|value|new home?|value|bedrooms|value|working with agent|value|mailing list|value|last name|value|address|value|address2|value|city|value|state|value|zip|value|email|value|home phone|value|work phone|value|fax|value|how did you hear?|value"
  MM_columnsStr = "FirstName|',none,''|RentOwn|',none,''|Plan2Sell|',none,''|Plan2Purchase|',none,''|AnnualIncome|',none,''|HomePriceRange|',none,''|ConsiderNewHome|',none,''|Bedrooms|',none,''|WorkingwithAgent|',none,''|MailingList|none,'Y','N'|LastName|',none,''|Address|',none,''|Address2|',none,''|City|',none,''|State|',none,''|Zip|',none,''|Email|',none,''|HomePhone|',none,''|WorkPhone|',none,''|Fax|',none,''|HowHeard|',none,''"

  ' create the MM_fields and MM_columns arrays
  MM_fields = Split(MM_fieldsStr, "|")
  MM_columns = Split(MM_columnsStr, "|")
  
  ' set the form values
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))
  Next

  ' append the query string to the redirect URL
  If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
    If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
      MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
    Else
      MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
    End If
  End If

End If
%>
<%
' *** Insert Record: construct a sql insert statement and execute it

Dim MM_tableValues
Dim MM_dbValues

If (CStr(Request("MM_insert")) <> "") Then




Dim objCDOMail      'Holds the CDONTS NewMail Object 

Set objCDOMail = Server.CreateObject("CDONTS.NewMail") 


objCDOMail.From = Request.Form("email") 
 
objCDOMail.To = "jgussman@dcproductions.com" 

objCDOMail.Subject = "form submit" 
 

'Set the main body of the e-mail
objCDOMail.Body = "form submitted" 
 

objCDOMail.Send 

Set objCDOMail = Nothing 




  ' create the sql insert statement
  MM_tableValues = ""
  MM_dbValues = ""
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_formVal = MM_fields(MM_i+1)
    MM_typeArray = Split(MM_columns(MM_i+1),",")
    MM_delim = MM_typeArray(0)
    If (MM_delim = "none") Then MM_delim = ""
    MM_altVal = MM_typeArray(1)
    If (MM_altVal = "none") Then MM_altVal = ""
    MM_emptyVal = MM_typeArray(2)
    If (MM_emptyVal = "none") Then MM_emptyVal = ""
    If (MM_formVal = "") Then
      MM_formVal = MM_emptyVal
    Else
      If (MM_altVal <> "") Then
        MM_formVal = MM_altVal
      ElseIf (MM_delim = "'") Then  ' escape quotes
        MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
      Else
        MM_formVal = MM_delim + MM_formVal + MM_delim
      End If
    End If
    If (MM_i <> LBound(MM_fields)) Then
      MM_tableValues = MM_tableValues & ","
      MM_dbValues = MM_dbValues & ","
    End If
    MM_tableValues = MM_tableValues & MM_columns(MM_i)
    MM_dbValues = MM_dbValues & MM_formVal
  Next
  MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

  If (Not MM_abortEdit) Then
    ' execute the insert
    Set MM_editCmd = Server.CreateObject("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_editConnection
    MM_editCmd.CommandText = MM_editQuery
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close

    If (MM_editRedirectUrl <> "") Then
      Response.Redirect(MM_editRedirectUrl)
    End If
  End If

End If
%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>170 off Third</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<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 YY_checkform() { //v4.71
//copyright (c)1998,2002 Yaromat.com
  var a=YY_checkform.arguments,oo=true,v='',s='',err=false,r,o,at,o1,t,i,j,ma,rx,cd,cm,cy,dte,at;
  for (i=1; i<a.length;i=i+4){
    if (a[i+1].charAt(0)=='#'){r=true; a[i+1]=a[i+1].substring(1);}else{r=false}
    o=MM_findObj(a[i].replace(/\[\d+\]/ig,""));
    o1=MM_findObj(a[i+1].replace(/\[\d+\]/ig,""));
    v=o.value;t=a[i+2];
    if (o.type=='text'||o.type=='password'||o.type=='hidden'){
      if (r&&v.length==0){err=true}
      if (v.length>0)
      if (t==1){ //fromto
        ma=a[i+1].split('_');if(isNaN(v)||v<ma[0]/1||v > ma[1]/1){err=true}
      } else if (t==2){
        rx=new RegExp("^[\\w\.=-]+@[\\w\\.-]+\\.[a-zA-Z]{2,4}$");if(!rx.test(v))err=true;
      } else if (t==3){ // date
        ma=a[i+1].split("#");at=v.match(ma[0]);
        if(at){
          cd=(at[ma[1]])?at[ma[1]]:1;cm=at[ma[2]]-1;cy=at[ma[3]];
          dte=new Date(cy,cm,cd);
          if(dte.getFullYear()!=cy||dte.getDate()!=cd||dte.getMonth()!=cm){err=true};
        }else{err=true}
      } else if (t==4){ // time
        ma=a[i+1].split("#");at=v.match(ma[0]);if(!at){err=true}
      } else if (t==5){ // check this 2
            if(o1.length)o1=o1[a[i+1].replace(/(.*\[)|(\].*)/ig,"")];
            if(!o1.checked){err=true}
      } else if (t==6){ // the same
            if(v!=MM_findObj(a[i+1]).value){err=true}
      }
    } else
    if (!o.type&&o.length>0&&o[0].type=='radio'){
          at = a[i].match(/(.*)\[(\d+)\].*/i);
          o2=(o.length>1)?o[at[2]]:o;
      if (t==1&&o2&&o2.checked&&o1&&o1.value.length/1==0){err=true}
      if (t==2){
        oo=false;
        for(j=0;j<o.length;j++){oo=oo||o[j].checked}
        if(!oo){s+='* '+a[i+3]+'\n'}
      }
    } else if (o.type=='checkbox'){
      if((t==1&&o.checked==false)||(t==2&&o.checked&&o1&&o1.value.length/1==0)){err=true}
    } else if (o.type=='select-one'||o.type=='select-multiple'){
      if(t==1&&o.selectedIndex/1==0){err=true}
    }else if (o.type=='textarea'){
      if(v.length<a[i+1]){err=true}
    }
    if (err){s+='* '+a[i+3]+'\n'; err=false}
  }
  if (s!=''){alert('The required information is incomplete or contains errors:\t\t\t\t\t\n\n'+s)}
  document.MM_returnValue = (s=='');
}
//-->
</script>
<link href="styles.css" rel="stylesheet" type="text/css">
</head>

<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<form action="<%=MM_editAction%>" method="POST" name="form1" id="form1" onSubmit="YY_checkform('form1','first name','#q','0','Field \'first name\' is not valid.','last name','#q','0','Field \'last name\' is not valid.','address','#q','0','Field \'address\' is not valid.','city','#q','0','Field \'city\' is not valid.','state','#q','0','Field \'state\' is not valid.','zip','#q','0','Field \'zip\' is not valid.','email','#S','2','Field \'email\' is not valid.');return document.MM_returnValue">
 
        
  <table width="617"  border="0" cellpadding="4" cellspacing="0" bgcolor="#FFFFFF">
    <tr valign="top" class="contenttext"> 
      <td><p>  In conjunction with the San Francisco Mayor&rsquo;s Office of
          Housing, 170 Off Third is excited to offer 24 Below Market Rate (BMR)
          homes for sale. </p>
        <p> The 170 Off Third Sales team and the Mayor&rsquo;s Office of Housing
          held a public housing lottery Tuesday, January 9, 2007 at 12:30 p.m.
          in the Yerba Buena Center for the Arts ( 701 Mission Street, San Francisco). <br>
          <br>
          The first 150 names were pulled. The results can be viewed by <a href="results.pdf" target="_blank">clicking
          here</a>. </p>
        <p> The 170 Off Third Sales Team will begin to contact the first 24 names
          in the coming weeks. Should a person elect to not purchase a home,
          be ineligible or otherwise unable to purchase a home, the Sales Team
          will contact the next person on the list. This process will continue
          until each home is in contract. <br>
          <br>
          <FONT face=Arial color=black size=1><SPAN 
style="FONT-SIZE: 9pt; COLOR: black; FONT-FAMILY: Arial">For more information
          on our BMR program, please send an e-mail to <A 
href="mailto:marina@170offthird.com">marina@170offthird.com</A>. </SPAN></FONT> You
          may also contact the Mayor&rsquo;s Office of Housing by visiting <a href="http://www.sfgov.org/site/moh_index.asp" target="_blank">http://www.sfgov.org/site/moh_index.asp</a><br>
          <br>
        </p>
        <p><br>
        </p></td>
    </tr>
  </table>
  <input type=hidden name="recipient" value="info@170OffThird.com">
  <input type=hidden name="subject" value="170 Off Third Request">
  <input type=hidden name="redirect" value="../thanks.htm">
  <input type="hidden" name="MM_insert" value="form1">
</form>
</body>
</html>